|
|
|
<%
Set fso = CreateObject("Scripting.FileSystemObject")
filename=Server.mappath("count.txt")
set f=fso.getfile(filename)
Set marquee = f.OpenAsTextStream
count=marquee.readall
marquee.close
count=count+1
Set marquee= fso.opentextfile(filename, 2, True, 0)
marquee.Write (count)
marquee.Close
set marquee=nothing
num=7
for i=1 to num-len(count)
my=my&"0"
next
my=my&count
response.write my%>
|
|
|
电子邮箱:wuhanlw@wuhanlw.com |