count.asp

来自「西亚电子购物系统」· ASP 代码 · 共 24 行

<%
Function Counts(CounterFile)
    Dim objFSO, objTS
    Application.Lock 
    Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
    Set objTS = objFSO.OpenTextFile(Server.MapPath(CounterFile), 1, True)
    If Not objTS.AtEndOfStream Then '检查是否到达文件结尾
        Counts = CLng(objTS.ReadLine)
    End If
    Counts = Counts + 1
    objTS.Close
 
    Set objTS = objFSO.OpenTextFile(Server.MapPath(CounterFile), 2, True)  
    objTS.WriteLine(Counts)
    objTS.Close
    Application.Unlock
End Function

If Session("Counter") = Empty Then
    Session("Counter") = Counts("count.txt")
End If
%>
document.writeln('您是本商场自2004年3月1号第<%=Session("Counter")%>位访问者');