網(wǎng)頁計(jì)數(shù)器DIY

隨著網(wǎng)絡(luò)大行其道，網(wǎng)頁計(jì)數(shù)器也流行起來。事實(shí)上大多數(shù)網(wǎng)站均有網(wǎng)頁計(jì)數(shù)器，用以反映該網(wǎng)站的訪問量。計(jì)數(shù)器的來源很廣，F(xiàn)rontpage等網(wǎng)頁編輯器自帶了網(wǎng)頁計(jì)數(shù)器，有的站點(diǎn)也提供免費(fèi)的計(jì)數(shù)器下載。其實(shí)熟悉了ASP編程后，自己做一個(gè)計(jì)數(shù)器很容易。下面介紹一種實(shí)現(xiàn)方法。
計(jì)數(shù)器原理是:在第一次使用網(wǎng)頁時(shí)置初始值1，以后每請(qǐng)求網(wǎng)頁一次，將計(jì)數(shù)器值加1。這樣我們只要在服務(wù)器上放置一個(gè)文本文件counter.txt，文本文件的內(nèi)容有計(jì)數(shù)器的值，以后每請(qǐng)求一次頁面，讀出文本文件的計(jì)數(shù)器的數(shù)值，加1顯示，然后再將原來的值改變?yōu)榧?后的值，保存到文本文件。至于初始置1，在服務(wù)器上可先不建counter.txt，在網(wǎng)頁中，先判斷服務(wù)器上是否有counter.txt文件，沒有就生成counter.txt，在counter.txt中寫入1，網(wǎng)頁上顯示計(jì)數(shù)器值1，完成初始置1。以后每次只要到指定目錄下將counter.txt文件刪除即可置初始值。
具體操作時(shí)要有顯示數(shù)字0、1、2….9的圖像文件，0.gif、1.gif、2.gif…9.gif，文件不能太大，一般18*25即可。將你要放計(jì)數(shù)器的網(wǎng)頁布局設(shè)計(jì)完畢，再改成ASP文件，將下面代碼輸入到要顯示計(jì)數(shù)器的地方，使用時(shí)，程序?qū)⒆詣?dòng)在虛擬目錄count下建立counter.txt文件。置初始值時(shí)將文件刪除即可。對(duì)了，虛擬目錄count必須給everyone有寫的權(quán)限。
<%
Const ForReading = 1, ForWriting = 2, ForAppending =3
Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0
filepath=server.mappath("/count")
filename=filepath+"\counter.txt"
set fs=createobject("scripting.filesystemobject")
if fs.fileexists(filename) then



    set f=fs.getfile(filename)
    Set ts = f.OpenAsTextStream(ForReading,
TristateUseDefault)
    s=ts.readline+1
    ts.close
else
    fs.createtextfile(filename)
    set f=fs.getfile(filename)
    s=1
end if

'向counter.txt中寫數(shù)據(jù)
Set ts = f.OpenAsTextStream(ForWriting,
TristateUseDefault)
ts.writeline(cstr(s))
ts.close

'顯示計(jì)數(shù)器
s=cstr(s+1000000)
s=mid(s,2,6)
for i=1 to 6
   response.write "<img src='http://www.okasp.com/images/"&mid(s,i,1)
&".gif' width='18' height='25'>"
next

%>
性急的朋友要問，你的這個(gè)計(jì)數(shù)器值顯示6位計(jì)數(shù)，如果要顯示8位計(jì)數(shù)，怎么辦？別著急，等我講完下一個(gè)例子我會(huì)給一個(gè)通式的。
這個(gè)計(jì)數(shù)器有一個(gè)缺點(diǎn)，就是每次刷新頁面計(jì)數(shù)器都加1，這是因?yàn)槊克⑿乱淮雾撁妫�系統(tǒng)認(rèn)為你重新請(qǐng)求頁面；而且，如果你不從主頁面進(jìn)入網(wǎng)站，計(jì)數(shù)器不會(huì)改變計(jì)數(shù)。如果想要



更精確一點(diǎn)，只要將上面的代碼略加修改，放到你的global.asa的session_onstart中，這樣，只有新用戶進(jìn)入網(wǎng)站，計(jì)數(shù)器才會(huì)加1。已經(jīng)進(jìn)入網(wǎng)站的用戶刷新頁面，不會(huì)引起計(jì)數(shù)器計(jì)數(shù)的改變，而且不管你從哪個(gè)頁面進(jìn)站，計(jì)數(shù)器都能捕捉到你。
<script language=vbscript runat=server>
sub application_onstart
filepath=server.mappath("/count")
filename=filepath+"\counter.txt"
set fs=createobject("scripting.filesystemobject")
if not fs.fileexists(filename) then
  fs.createtextfile(filename)
    set f=fs.getfile(filename)
           s=1
Set ts = f.OpenAsTextStream(2, -2)
ts.writeline(cstr(s))
ts.close
          else
    set f=fs.getfile(filename)
    Set ts = f.OpenAsTextStream(1, -2)
    s=ts.readline+1
    ts.close
end if
application(“visitor”)=s
end sub

sub session_onstart
session.timeout=5
application(“visitor”)=application(“visitor”)+1
set f=fs.getfile(filename)
     Set ts = f.OpenAsTextStream(2, -2)
      


ts.writeline (cstr(application(“visitor”)))
ts.close
end sub
</script>
在網(wǎng)頁相應(yīng)部分根據(jù)application(“visitor”)的值顯示計(jì)數(shù)器的圖像。
<%
s=cstr(application("visitor")+10^6)
s=mid(s,2,6)
for i=1 to 6
   response.write "<img src='http://www.okasp.com/images/"
&mid(s,i,1)&".gif' width='18' height='25'>"
next
%>
要顯示n位計(jì)數(shù)器只要將上面代碼改為：
<%
s=cstr(application(“visitor”)+10 ^n)
s=mid(s,2,n)
for I=1 to n
   response.write "<img src='http://www.okasp.com/images/"
&mid(s,i,1)&".gif' width='18' height='25'>"
next
%>
這樣要得到8位計(jì)數(shù)器，只要加上n=8即可。
要是覺得每次有用戶進(jìn)入網(wǎng)站，均對(duì)counter.txt寫入太頻繁，可以在session_onstart中設(shè)置，在application
(“visitor”)為十的倍數(shù)時(shí)將計(jì)數(shù)值寫進(jìn)counter.txt。
怎么樣？現(xiàn)在就動(dòng)手吧！