How to make a counter and let others apply for it? _ Programming 10000 Q

The first step is to create a counter (the simplest numeric counter, not a picture-style ):

<% @language = "VBScript"%>

<%

Set Fsfilesys=createobject ("Scripting.FileSystemObject")

Set Mytext=fsfilesys.opentextfile (Server.MapPath ("/count") & "\count.txt") count=mytext.readline

' read the count value stored in the count.txt , You can write the 8771990 first.

My Text.close

Count=count+1

Set Mytext=fsfilesys.createtextfile (Server.MapPath ("/count") & "\count.txt")

' overrides the Count value .

Mytext.writeline (count)

Mytext.close

Response.Write "document.write (' <%=count%> ')"

%>

' send a number to the client .

The second step is to provide the application with the following statement:

<scriptlanguage= "javascript1.1"src= "http://flashdays.126.com/count/count.asp" > 　 　

[1]