1、說明：1、在網(wǎng)站目錄下新建一個文本：在文本填寫 1 或其他識字2、新建一 asp 文件：，加入以下代碼： 3、在需要計數(shù)的網(wǎng)頁加入：總訪問 次 現(xiàn)在看網(wǎng)頁就是可以計數(shù)了！ 與頁面分離的圖象計數(shù)器人們的追求是永無止境的， 也許你需要一個更有個性的圖形數(shù)字計數(shù)器， 而不是簡單的 文本數(shù)字計數(shù)器。沒問題，現(xiàn)在我們就來看看用 ASP 是怎樣來實現(xiàn)圖形計數(shù)器功能的。要 實現(xiàn)圖形計數(shù)器， 關(guān)鍵點在于如何實現(xiàn)把計數(shù)器文件中的數(shù)據(jù)值轉(zhuǎn)變?yōu)閷?yīng)的圖象表示。 因 為十進制數(shù)有 0,1,2,3,4,5,6,7,8,9 共十個不同的數(shù)數(shù)字， 我們需要有十個對應(yīng)的圖象， 且圖象 的文件名字要與顯示的數(shù)字對應(yīng)起來， 比如

2、 0 對應(yīng)的數(shù)字圖象的文件名字就是， 1 對應(yīng)的就 是，.(圖象自己可以用 Photoshop 等工具制作， 或者從網(wǎng)絡(luò)上下載 )。這里我們要用到 VBScript 函數(shù) Len(string | varname) 、Mid(string,start,length) 。由 Len(counter) 可得到計數(shù)器值的位數(shù) , 由 Mid(counter,i,1) 可以得到計數(shù)器值的第 i 位上的數(shù)字，我們可利用這個值來調(diào)用相應(yīng)的數(shù) 字圖象。用 For 循環(huán)語句 ,我們不難得出計數(shù)器值各個位上的數(shù)字并轉(zhuǎn)化成對應(yīng)的數(shù)字圖象， 這樣，我們就能實現(xiàn)文本數(shù)值到圖象數(shù)字的轉(zhuǎn)變。下面就是一個用 ASP 編寫的

3、圖象計數(shù)器 實例，因為大部分代碼前面都分析過，所以代碼中只注釋了部分語句。與頁面分離的圖象計數(shù)器代碼 % dim images(20) 定義一數(shù)組，用來存放顯示每一位數(shù)字圖象的語句CountFile=()Set FileObject=()Set Out=(CountFile,1,FALSE,FALSE) counter=SET FileObject=()Set Out=(CountFile,TRUE,FALSE) counter= counter + 1 (counter)countlen=len(counter) 得到計數(shù)器值的位數(shù) for i=1 to countlenimages(i)=

4、由循環(huán)語句得到各個位上數(shù)值對應(yīng)圖象的顯示代碼(html) ，并把它存在數(shù)組中具體使用時請注意圖象的實際服務(wù)器及目錄路徑 (&images(i)&);調(diào)用函數(shù)輸出顯示數(shù)字圖象的html 代碼next%在要計數(shù)的頁面加入如下的代碼：您是第 /引用時注意ASP計數(shù)器所在的服務(wù)器及目錄路徑。位來客計數(shù)器設(shè)計詳解ASP內(nèi)含五個內(nèi)置的Active Server Components(ActiveX 服務(wù)器組件)，即 Database AccessAccesscomponent（ 數(shù) 據(jù) 庫 訪 問組 件 ）、 File Access component（ 文 件 訪 問組 件 ） 、 Ad Rotator

5、 component（ 廣告輪播器組件 ）、Brower Capabilities component（ 瀏覽器信息組件 ）、 Content Linking component（ 內(nèi)容鏈接組件 ）。我們下面要設(shè)計的計數(shù)器，就是通過其中的Filecomponent（ 文件訪問組件 ）來讀寫服務(wù)器文件來實現(xiàn)。算法思路是:在服務(wù)器端用一個文本 （ASCII）文件存放計數(shù)數(shù)值，每當頁面被訪問時就從文件中讀出數(shù)值，顯示給用戶，并且使數(shù) 值加 1，把增加后的數(shù)值寫回到文件。寫入數(shù)據(jù)到一個服務(wù)器計數(shù)文件的ASP語句和說明如下:Cou nFile=（用來存放計數(shù)器值的文件名)轉(zhuǎn)換Server 服務(wù)器訪問方法

6、 MapPath（path） 是將存放計數(shù)器值的文件所在的路徑成物理路徑SET FileObject=()使用方法 CreateObject 定義對象 FileSystemObjectSET OutStream=(FileObject,True,False)使用對象 FileSystemObject 提供方法 CreateTextFile 產(chǎn)生文本文件，其中參 True表示覆蓋原來的文件，F(xiàn)alse表示文件為ASCII類型要寫入的數(shù)據(jù) 為往文件寫入一行數(shù)據(jù)從一個服務(wù)器文件讀取數(shù)據(jù)的ASP語法如下:Cou nFile=（用來存放計數(shù)器值的文件名)SET FileObject=()SET InSt

7、ream=(FileObject,1,false,false)使用對象 FileSystemObject提供方法 OpenTextFile產(chǎn)生文本文件, 其中參數(shù)True表示覆蓋原來的文件，F(xiàn)alse表示文件為ASCII類型 要讀取的數(shù)據(jù) = 其中為從文件中讀取的一行數(shù)據(jù)面是一個用 ASP 實現(xiàn)頁面計數(shù)器功能的計數(shù)器例子，我在代碼中詳細注釋了語句。ASP且你你可以把以下代碼粘貼到你需要計數(shù)的頁面代碼中。當然，你的服務(wù)器必須支持已經(jīng)在主頁所在的目錄下創(chuàng)建了一個內(nèi)容為 0 的文本文件。簡單的ASP計數(shù)器代碼及注釋:%CountFile=() 文件是用來儲存數(shù)字的文本文件，初始內(nèi)容一般是Set FileObject=()Set Out=(CountFile,1,FALSE,FALSE) counter= 讀取計數(shù)器文件中的值關(guān)閉文件SET FileObject=()Set Out=(CountFile,TRUE,FALSE)方法禁止別的用戶更改計數(shù)器的值 counter= counter + 1 計數(shù)器的值增加 1 (cou