下面是ASP+文本计数器代码首先，在要引用JS的网页中加入 然后在同一目录中新建文件counttxt，输入任何数值再新建countasp，内容如下lt #39计数器程序作者是jelin信箱lgjie@163com92#39由yanjibao，yanjib；1可能是你设置的时间差太大了吧 2在开始加个aplicationlock 然后在后面在加个aplicationunlock 有个例子参考下 lt Function CountsCounterFileDim objFSO， objTS ApplicationLock Set objFSO = ServerCreateObjectquot。

#39 文件名称countasp #39 功 能网站计数器 #39 改编作者法盲 #39 作者邮件famang@sinacom #39 创建日期星期五，2005年12月23日 084227 #39 使用说明#39 在需要计数的页面添加lt！#include file=quotcount；一个简单的网页浏览计数器代码 在一个ASP文件中的适当位置，加入下列代码lt #39一个简单的网页计数器 Set fs=CreateObjectquotScriptingFileSystemObjectquotSet a=fsopenTextFileservermappathquotcounttxtquotcount=。

新建一个空的文本文件counttxt用来储存计数器值，然后打开counttxt输入默认值0，再把下面代码保存为countasp，与counttxt放在同一目录下lt function digitalcounterdim i，mystr，scounter scounter=cstrcounterfor i；下面是代码lt ip = RequestServerVariablesquotREMOTE_ADDRquot#39获取访问ip sj=now#39获取访问时间 set conn=serverCreateObjectquotadodbconnectionquotmypath=servermappathquotdata！##jxc##！mdbquotconnopen quotprovider=。

#39消息计数器，用来判断是否到达分页条目 #39初始化消息计数器 count=0 #39定义每页显示记录数 pageSize=2 #39数据库文件 dbstr=quotstudentmdbquot#39SQL命令，不区分大小写 sql=quotselect from studentquot#39使用Sevrer对象的CreateObject方法；cnlibraryfxk122b4VS80aspx 看看吧，或许有用。

总结计数器指令的使用方法

1将以下代码加在你需要得位置 2在根目录下创建名为count的文件夹，并在里面创建countertxt文件，文件初始值为0可更改 3将设置好的网页保存为asp格式 4ok 您是第 lt% Const ForReading = 1。

这是用ASPNET编写的，是带图片的，现在只给你主程度，自己把图片的那一小段代码改改吧 sub jishucontainer as objectdim img as image dim lbl as label dim count as string dim graph as string dim i as。

你把判断放在最外层了，当然，刷新后就不执行你后面的显示语句了，改成lt dim count Set fs=CreateObjectquotscriptingfilesystemobjectquotSet hs=fsopentextfileserverMappathquotcounttxtquotcount=hsreadline if session。

建一个Counttxt文件，里面写一个初始值，绝对可用的ASP网页计数器代码2today=new Datefunction initArray thislength= forvar i=0iltthislengthi++thisi+1=。

为了统计网站的在线人数，我们可以在Globalasa文件中包含如下代码ltSCRIPT LANGUAGE=quotVBScriptquot RUNAT=quotServerquot Sub Application_OnStart #39 当服务器开启时，设置用户计数器为0 ApplicationquotActiveUsersquot = 0 End Sub。

application计数器

quot documentgetElementById#39date#39innerHTML=ssetTimeouttime，1000 题目1没接触过asp 帮不了你了。

这是以前用的一个计数器，你看看吧 Dim CountFileDir，CountFile，CounterLenth，CountNum CounterLenth = 6 #39显示数据最小长度 CountFileDir = ServerMapPathquotCounttxtquot #39数据文件地址 Function PrintNumberx。