LINE 的计数器源程序（附源代码） (1)

%26lt;%
bUseImages = CBool(Request.QueryString(%26quot;images%26quot;))
strCountFileName = Server.MapPath(Request.ServerVariables(%26quot;SCRIPT_NAME%26quot;) %26amp; %26quot;.dat%26quot;)
Set objFSO = Server.CreateObject(%26quot;Scripting.FileSystemObject%26quot;)
' Open the file as a text stream (1 = ForReading, True = Create)
Set objCountFile = objFSO.OpenTextFile(strCountFileName, 1, True)
If Not objCountFile.AtEndOfStream Then
iCount = CLng(objCountFile.ReadAll)
Else
iCount = 0
End If
objCountFile.Close
Set objCountFile = Nothing
iCount = iCount + 1
Set objCountFile = objFSO.CreateTextFile(strCountFileName, True)
objCountFile.Write iCount
objCountFile.Close
Set objCountFile = Nothing
Set objFSO = Nothing
If bUseImages Then
For I = 1 to Len(iCount)
Response.Write %26quot;%26lt;IMG SRC=%26quot;%26quot;./images/digit_%26quot;
Response.Write Mid(iCount, I, 1)
Response.Write %26quot;.gif%26quot;%26quot; ALT=%26quot;%26quot;%26quot;
Response.Write Mid(iCount, I, 1)
Response.Write %26quot;%26quot;%26quot; width=20 height=27%26gt;%26quot;
Next
Else
Response.Write iCount
End If
%%26gt;