asp網頁設計流量統計代碼

按照以下步驟，逐步操作，你很快就會擁有精美的圖形化計數器。??
?? 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調試；

轉載于:https://www.cnblogs.com/shuang121/archive/2012/06/28/2568415.html