如何给网页加上计数器，给高分

如果用java做后台，就容易实现计数器了，如果是单独的网页，还是申请一个计数器吧

解决方案 »

  1.   

    <%
    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 FunctionIf Session("Counter") = Empty Then
        Session("Counter") = Counts("visitor_counter.txt")
    End If%><body text="#000000"> <font color="#000000" align="center"><font color="#000000" size="2">Total:</font><font size="2"><%= Session("Counter") %></font></font>
      

  2.   

    如果你的空间支持ASP的话,可以这样子.
    如果不支持的话,可以自己审请个计数器.demo.asp<% 
    CountFile=Server.MapPath("counter.txt") 
    Set FileObject=Server.CreateObject("Scripting.FileSystemObject") 
    Set Out=FileObject.OpenTextFile(CountFile,1,FALSE,FALSE) 
    counter=Out.ReadLine 
    Out.Close 
    SET FileObject=Server.CreateObject("Scripting.FileSystemObject") 
    Set Out=FileObject.CreateTextFile(CountFile,TRUE,FALSE) 
    counter= counter + 1 
    Out.WriteLine(counter) 
    %>
    <script>
    document.write("<font color=red>")
    document.write("<%=counter%>")
    document.write("</font>")
    </script>
    <%
    Out.Close
    %>counter.txt
    0
      

  3.   

    找个ASP，PHP的不就行了，现在网上有很多免费全站统计的啊。