|
您是第<%
Sub NumberAppend()
Set files=Server.CreateObject("Scripting.FileSystemObject")
Set numtxt=files.OpenTextFile(Server.MapPath("/Number.txt"))
Application("Number")=numtxt.ReadLine
numtxt.Close
Application("Number")=Application("Number")+1
Response.Write Application("Number")
Set numtxt=files.CreateTextFile(Server.MapPath("/Number.txt"),True)
numtxt.WriteLine(Application("Number"))
numtxt.Close
End Sub
Application.Lock
NumberAppend
Application.UnLock
%>位访问者
|