Question

asp记录网站总访问量完整代码？

求asp记录网站总访问量完整代码，效果例如出现：总访问量（X）次。我在网上找了很多调试都不成功，很是郁闷，例如下面几种情况都不行，不是出现初值不变就是干脆不显示数字。 第一种：（现象：本地测试可以，上传后就不可以了）==========================================<% dim count Set fs=CreateObject("scripting.filesystemobject") Set hs=fs.opentextfile(server.Mappath("count.txt")) count=hs.readline if session("iscount")="" then session("iscount")="iscount" count=count+1 end if response.write "您是第" & count & "位访问者！" Set hs=fs.createtextfile(server.Mappath("count.txt")) hs.writeline(count) hs.close set fs=nothing %>其中：上面代码就是放在所要显示访问量的地方，count.txt 就是计数的文件。========================================================= 第二种：（现象：和上面差不多，上传后，第一次访问就有个1，但是刷新以后消失了）=========================================================<%application.lock application("user_number")=application("user_number")+1 application.UnLock response.write "您是第" & application("user_number")&"位访客" %>说明：user_number.txt计数文件========================================================== 第三种：（现象：上传后干脆不显示）===========================================================<%CountFile=Server.MapPath("count.txt")Set FileObject=Server.CreateObject("Scripting.FileSystemObject")Set Out=FileObject.OpenTextFile(CountFile,1,FALSE,FALSE)counter=Out.ReadLineOut.CloseSET FileObject=Server.CreateObject("Scripting.FileSystemObject")Set Out=FileObject.CreateTextFile(CountFile,TRUE,FALSE)Application.lockcounter= counter+1Out.WriteLine(counter)Application.unlockResponse.Write"document.write("&counter&")"Out.Close%>上面代码保存为count.asp文件，下面代码（调用）放在网站需要显示总访问量的地方。同时在同一目录建立一个count.txt计数文件。总访问量:<script language="JavaScript" src="count.asp";></script>=======================================================  求一段完整的记录访客总访问量代码！！再下不胜感激！谢谢！若是代码贴不上回答栏，希望发到我的电子邮箱：913526270@qq.com;PS：要是不能解决以上问题的话，希望帮忙写出一段asp直接调用Access数据库最大id数的代码给我！以前我记得有这么一段可以直接调用：<%rs=("id")%>，今天试了却不行了，希望得到解决。 得到解决后，加分不是问题，谢谢。

Answer 1

<%
dim count,path
count= 1
path = server.Mappath("count.txt")
Set fs=CreateObject("scripting.filesystemobject")
if(fs.FileExists(path))then
Set hs=fs.opentextfile(path)
count=hs.ReadLine
if session("iscount")="" then
session("iscount")="iscount"
count=count+1
end if
hs.close
Set hs=fs.opentextfile(path,2,true)
hs.writeline(count)
else
Set hs=fs.createtextfile(path)
hs.writeline(1)
end if
response.write "您是第"&count&"位访问者！"
hs.close
set fs=nothing
%>
这样就可以， 每次新打开浏览器才会记录，而不是每次刷新就记录，如果你要每次刷新都记录也可以，追问下，我改改

Answer 2

建议建立数据库记录访问量，访问一次+1