代码如下:
新建网页 1You are the <%
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
%>
st visitor
你可以贴到FRONTPAGE
里再在同一目录里建一“number.txt"
文件即可。 但要在里面加个数字
**(******
我也是菜鸟
********)***