最近有网友问，如何在用ASP代码来做一个网站统计呢？今天紫薇网络来给大家分享一个用ASP代码做网站统计器的简单代码，原理是先检测是否有统计文本代码，我们先给它命名为 stat.txt

<% DIM OBJFSO,OBJTS,COUNTS,STRCOUNTS%>
<%WJLJ=SERVER.MAPPATH("stat.txt")%>
<%APPLICATION.LOCK()%>
<%SET OBJFSO = SERVER.CREATEOBJECT("SCRIPTING.FILESYSTEMOBJECT")%>
<%SET OBJTS=OBJFSO.OPENTEXTFILE(WJLJ,1,TRUE)%>
<%IF NOT OBJTS.ATENDOFSTREAM THEN%>
<%COUNTS=CLNG(OBJTS.READLINE)%>
<%END IF%>
<%COUNTS=COUNTS+1%>
<%OBJTS.CLOSE%>
<%SET OBJTS=OBJFSO.OPENTEXTFILE(WJLJ,2,TRUE)%>
<%OBJTS.WRITELINE(COUNTS)%>
<%OBJTS.CLOSE%>
<%APPLICATION.UNLOCK()%>
您好，欢迎光临！您是本站第<%=COUNTS%>位访客。

上面代码的原理，首先会检测和这个统计代码所在的目录里面是否有 stat.txt 文本，如果没有，就会自动创建一个，如果有，就会在原有的文本基数加一。

其中，<%=COUNTS%> 是统计结果，会得到数字。如果需要数字变为有逗号那种识别性，可以把 <%=COUNTS%> 代码改为：<%=FORMATNUMBER(COUNTS)%> 即可！

这个代码有一个弊端，就是可以无限制刷新，不像我们紫薇网络的文章阅读那样会进行限制。我们紫薇网络的文章阅读页面，同一 IP 在 60 秒内重复刷新是不会增加阅读量的，只有超过 60 秒或者更换 IP 才会进行增加阅读量，因为我们用的是 MSSQL 数据库。