请教“网页计数器”

Question

javascript 做不了的你需要使用服务器端技术，比如asp php 等

Answer 1

asp 怎样弄？我在index.asp里写了一句：
<TD align=middle>&nbsp;您是本站的第<%=Application("Counter")%>位访问者！<BR></TD>好像不行

Answer 2

<%
Application("Counter")=Application("Counter")+1
response.write Application("Counter")%>

Answer 3

CountFile=Server.MapPath("simplecounter.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)
Application.lock
counter= counter + 1
Out.WriteLine(counter)
Application.unlock 
response.Write("你是第"&counter&"位访客")
out.close
直接可以使用

Answer 4

错误类型：
Microsoft VBScript 运行时错误 (0x800A0035)
文件未找到
/test.asp, 第 19 行   Set Out=FileObject.OpenTextFile(CountFile,1,FALSE,FALSE)
浏览器类型：
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; Maxthon)

Answer 5

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("index/count.txt")
End If调用:<%= Session("Counter")%>

Answer 6

以上都不够理想，如果自己不会做，可以到网上注册个勉费     的。统计的很详细！lastidea.net
我的BLOG底部有个自己做的小记数器，同一个20分钟内涮新不记数！用到ASP+ACCESS
后面是站长注册的站点记数器