下面是ASP+文本計(jì)數(shù)器代碼首先，在要引用JS的網(wǎng)頁(yè)中加入 然后在同一目錄中新建文件counttxt，輸入任何數(shù)值再新建countasp，內(nèi)容如下lt #39計(jì)數(shù)器程序作者是jelin信箱lgjie@163com92#39由yanjibao，yanjib；1可能是你設(shè)置的時(shí)間差太大了吧 2在開始加個(gè)aplicationlock 然后在后面在加個(gè)aplicationunlock 有個(gè)例子參考下 lt Function CountsCounterFileDim objFSO， objTS ApplicationLock Set objFSO = ServerCreateObjectquot。

#39 文件名稱countasp #39 功 能網(wǎng)站計(jì)數(shù)器 #39 改編作者法盲 #39 作者郵件famang@sinacom #39 創(chuàng)建日期星期五，2005年12月23日 084227 #39 使用說(shuō)明#39 在需要計(jì)數(shù)的頁(yè)面添加lt！#include file=quotcount；一個(gè)簡(jiǎn)單的網(wǎng)頁(yè)瀏覽計(jì)數(shù)器代碼 在一個(gè)ASP文件中的適當(dāng)位置，加入下列代碼lt #39一個(gè)簡(jiǎn)單的網(wǎng)頁(yè)計(jì)數(shù)器 Set fs=CreateObjectquotScriptingFileSystemObjectquotSet a=fsopenTextFileservermappathquotcounttxtquotcount=。

新建一個(gè)空的文本文件counttxt用來(lái)儲(chǔ)存計(jì)數(shù)器值，然后打開counttxt輸入默認(rèn)值0，再把下面代碼保存為countasp，與counttxt放在同一目錄下lt function digitalcounterdim i，mystr，scounter scounter=cstrcounterfor i；下面是代碼lt ip = RequestServerVariablesquotREMOTE_ADDRquot#39獲取訪問ip sj=now#39獲取訪問時(shí)間 set conn=serverCreateObjectquotadodbconnectionquotmypath=servermappathquotdata！##jxc##！mdbquotconnopen quotprovider=。

#39消息計(jì)數(shù)器，用來(lái)判斷是否到達(dá)分頁(yè)條目 #39初始化消息計(jì)數(shù)器 count=0 #39定義每頁(yè)顯示記錄數(shù) pageSize=2 #39數(shù)據(jù)庫(kù)文件 dbstr=quotstudentmdbquot#39SQL命令，不區(qū)分大小寫 sql=quotselect from studentquot#39使用Sevrer對(duì)象的CreateObject方法；cnlibraryfxk122b4VS80aspx 看看吧，或許有用。

總結(jié)計(jì)數(shù)器指令的使用方法

1將以下代碼加在你需要得位置 2在根目錄下創(chuàng)建名為count的文件夾，并在里面創(chuàng)建countertxt文件，文件初始值為0可更改 3將設(shè)置好的網(wǎng)頁(yè)保存為asp格式 4ok 您是第 lt% Const ForReading = 1。

這是用ASPNET編寫的，是帶圖片的，現(xiàn)在只給你主程度，自己把圖片的那一小段代碼改改吧 sub jishucontainer as objectdim img as image dim lbl as label dim count as string dim graph as string dim i as。

你把判斷放在最外層了，當(dāng)然，刷新后就不執(zhí)行你后面的顯示語(yǔ)句了，改成lt dim count Set fs=CreateObjectquotscriptingfilesystemobjectquotSet hs=fsopentextfileserverMappathquotcounttxtquotcount=hsreadline if session。

建一個(gè)Counttxt文件，里面寫一個(gè)初始值，絕對(duì)可用的ASP網(wǎng)頁(yè)計(jì)數(shù)器代碼2today=new Datefunction initArray thislength= forvar i=0iltthislengthi++thisi+1=。

為了統(tǒng)計(jì)網(wǎng)站的在線人數(shù)，我們可以在Globalasa文件中包含如下代碼ltSCRIPT LANGUAGE=quotVBScriptquot RUNAT=quotServerquot Sub Application_OnStart #39 當(dāng)服務(wù)器開啟時(shí)，設(shè)置用戶計(jì)數(shù)器為0 ApplicationquotActiveUsersquot = 0 End Sub。

application計(jì)數(shù)器

quot documentgetElementById#39date#39innerHTML=ssetTimeouttime，1000 題目1沒接觸過(guò)asp 幫不了你了。

這是以前用的一個(gè)計(jì)數(shù)器，你看看吧 Dim CountFileDir，CountFile，CounterLenth，CountNum CounterLenth = 6 #39顯示數(shù)據(jù)最小長(zhǎng)度 CountFileDir = ServerMapPathquotCounttxtquot #39數(shù)據(jù)文件地址 Function PrintNumberx。