文章詳情頁
四步完成asp網頁設計流量統計
瀏覽:212日期:2022-06-05 16:08:37
按照以下步驟,逐步操作,你很快就會擁有精美的圖形化計數器。
步驟1:在網站的某個目錄如count下建立文本文件,如counter.dat ,用于存放訪問量。文件內容僅有一行數字,表示網站初始訪問量,一般為0。
步驟2:在相同目錄下建立計數器的ASP程序,可命名為mycount.asp,內容如下:
<%
"自編ASP圖形化計數器 V1.1
"用于網頁瀏覽統計,免費使用,自由拷貝!
dim vistors
"獲取計數文件counter.dat的地址
countfile=server.mappath("counter.dat")
"創建filesystemobject對象實例fs
set fs=server.createobject("scripting.filesystemobject")
"以讀方式打開文件,其中1為讀方式
set thisfile=fs.opentextfile(countfile,1,FALSE,FALSE)
"讀取計數文件的內容
visitors=thisfile.readline
"關閉文件
thisfile.close
set fs=server.createobject("scripting.filesystemobject")
"以覆蓋方式(TRUE)、以ASCII格式(FALSE)創建文件
set thisfile=fs.createtextfile(countfile,TRUE,FALSE)
"計數器的關鍵處:
"增加了變量connected,用于判斷訪問者是否為新的連接者
"此舉可防止同一用戶在同一次瀏覽中,由于多次按瀏覽器的“刷新”按鈕,
"從而使計數器值不斷升高的現象發生
if IsEmpty(session("connected")) then
application.lock
"禁止其它用戶更改計數器的值
visitors=visitors+1
"計數器值加1
thisfile.writeline(visitors)
"將結果寫入文件
application.unlock
"取消鎖定,允許用戶更改計數器的值
else
application.lock
visitors=visitors
thisfile.writeline(visitors)
application.unlock
end if
session("connected")=TRUE
"設定來訪者為已連接者(TRUE),此時再按“刷新”按鈕計數器值不會變化。
countlen=len(visitors)
"獲得計數器值的長度(即數值的位數)
"如果您不想使用圖形,可用如下內容代替for/next循環
"文本計數器: response.write "document.write("&visitors&");"
"逐位顯示圖形化數字
for i=1 to countlen
response.write "document.write("<img src="&"images/"&"/"&mid (visitors,i,1)&".gif></img>");"
next
"關閉文件
thisfile.close
set fs=nothing
%>
步驟3:將counter.dat、mycount.asp文件放在同一目錄下(也可分開存放,但此時需指定文件路徑),并在該目錄下建立images目錄,存放圖形化的數字文件,要求數字0對應0.gif,數字1對應1.gif,以此類推(展現你個性的機會來了,你可以將數字做得非常Cool)。
步驟4:至此,大功即將告成。你只要在網頁中使用以下格式調用計數器即可:
<script language="javascript" src="count/mycount.asp"> </script>
注意: (1)如果你采用不同的目錄名、文件名,請作相應修改;
(2)計數器程序采用ASP編程,請在網站上試驗或在個人服務器PWS調試;
只要以上四大步驟大家認真仔細研究,相信大家一定會制作出一個具有自己風格特點的asp網頁設計流量統計。
標簽:
ASP
上一條:asp循環語句總結下一條:簡單的ASP統計制作實例
排行榜

網公網安備