<%
set fs=CreateObject("Scripting.FileSystemObject")
filename=server.MapPath(".")&"\bjwj\manage\zj"
if fs.FileExists(filename) then
set ts=fs.OpenTextFile(filename)
if not ts.atendofstream then
content=ts.readall
else
content=""
end if
else
content=""
end if
filename=server.MapPath(".")&"\bjwj\manage\zz"
if fs.FileExists(filename) then
set ts=fs.OpenTextFile(filename)
if not ts.atendofstream then
content1=ts.readall
else
content1=""
end if
else
content1=""
end if
filename=server.MapPath(".")&"\ji.txt"
num=0
if fs.FileExists(filename) then
set os=fs.OpenTextFile(filename)
do while not os.atendofstream
num=os.readline
exit do
loop
end if
set ts=fs.CreateTextFile(filename)
num=num+1
ts.writeline num
set ts=nothing
set fs=nothing
x=num
for i=1 to 4-len(num)
x="0"&x
next
%>
ok8810金球足球资迅中心
