四步完成asp網(wǎng)頁(yè)設(shè)計(jì)流量統(tǒng)計(jì)
按照以下步驟,逐步操作,你很快就會(huì)擁有精美的圖形化計(jì)數(shù)器。
步驟1:在網(wǎng)站的某個(gè)目錄如count下建立文本文件,如counter.dat ,用于存放訪問(wèn)量。文件內(nèi)容僅有一行數(shù)字,表示網(wǎng)站初始訪問(wèn)量,一般為0。
步驟2:在相同目錄下建立計(jì)數(shù)器的ASP程序,可命名為mycount.asp,內(nèi)容如下:
<% '自編ASP圖形化計(jì)數(shù)器 V1.1 '用于網(wǎng)頁(yè)瀏覽統(tǒng)計(jì),免費(fèi)使用,自由拷貝! dim vistors '獲取計(jì)數(shù)文件counter.dat的地址 countfile=server.mappath("counter.dat") '創(chuàng)建filesystemobject對(duì)象實(shí)例fs set fs=server.createobject("scripting.filesystemobject") '以讀方式打開(kāi)文件,其中1為讀方式 set thisfile=fs.opentextfile(countfile,1,FALSE,FALSE) '讀取計(jì)數(shù)文件的內(nèi)容 visitors=thisfile.readline '關(guān)閉文件 thisfile.close set fs=server.createobject("scripting.filesystemobject") '以覆蓋方式(TRUE)、以ASCII格式(FALSE)創(chuàng)建文件 set thisfile=fs.createtextfile(countfile,TRUE,FALSE) '計(jì)數(shù)器的關(guān)鍵處: '增加了變量connected,用于判斷訪問(wèn)者是否為新的連接者 '此舉可防止同一用戶在同一次瀏覽中,由于多次按瀏覽器的“刷新”按鈕, '從而使計(jì)數(shù)器值不斷升高的現(xiàn)象發(fā)生 if IsEmpty(session("connected")) then application.lock '禁止其它用戶更改計(jì)數(shù)器的值 visitors=visitors+1 '計(jì)數(shù)器值加1 thisfile.writeline(visitors) '將結(jié)果寫入文件 application.unlock '取消鎖定,允許用戶更改計(jì)數(shù)器的值 else application.lock visitors=visitors thisfile.writeline(visitors) application.unlock end if session("connected")=TRUE '設(shè)定來(lái)訪者為已連接者(TRUE),此時(shí)再按“刷新”按鈕計(jì)數(shù)器值不會(huì)變化。 countlen=len(visitors) '獲得計(jì)數(shù)器值的長(zhǎng)度(即數(shù)值的位數(shù)) '如果您不想使用圖形,可用如下內(nèi)容代替for/next循環(huán) '文本計(jì)數(shù)器: response.write "document.write("&visitors&");" '逐位顯示圖形化數(shù)字 for i=1 to countlen response.write "document.write('<img src="&"images/"&"/"&mid (visitors,i,1)&".gif></img>');" next '關(guān)閉文件 thisfile.close set fs=nothing %>
步驟3:將counter.dat、mycount.asp文件放在同一目錄下(也可分開(kāi)存放,但此時(shí)需指定文件路徑),并在該目錄下建立images目錄,存放圖形化的數(shù)字文件,要求數(shù)字0對(duì)應(yīng)0.gif,數(shù)字1對(duì)應(yīng)1.gif,以此類推(展現(xiàn)你個(gè)性的機(jī)會(huì)來(lái)了,你可以將數(shù)字做得非常Cool)。
步驟4:至此,大功即將告成。你只要在網(wǎng)頁(yè)中使用以下格式調(diào)用計(jì)數(shù)器即可:
<script language="javascript" src="count/mycount.asp"> </script>
注意: (1)如果你采用不同的目錄名、文件名,請(qǐng)作相應(yīng)修改;
(2)計(jì)數(shù)器程序采用ASP編程,請(qǐng)?jiān)诰W(wǎng)站上試驗(yàn)或在個(gè)人服務(wù)器PWS調(diào)試;
只要以上四大步驟大家認(rèn)真仔細(xì)研究,相信大家一定會(huì)制作出一個(gè)具有自己風(fēng)格特點(diǎn)的asp網(wǎng)頁(yè)設(shè)計(jì)流量統(tǒng)計(jì)。
- ASP制作在線人數(shù)統(tǒng)計(jì)實(shí)例
- 統(tǒng)計(jì)有多少行JS代碼和ASP代碼
- ASP程序代碼執(zhí)行時(shí)間統(tǒng)計(jì)類
- asp論壇在線人數(shù)統(tǒng)計(jì)研究
- 實(shí)現(xiàn)ASP程序執(zhí)行時(shí)間統(tǒng)計(jì)類的代碼
- asp實(shí)現(xiàn)一個(gè)統(tǒng)計(jì)當(dāng)前在線用戶的解決方案
- ASP訪問(wèn)數(shù)量統(tǒng)計(jì)代碼
- asp.net aspnetpager分頁(yè)統(tǒng)計(jì)時(shí)與實(shí)際不符的解決辦法
- asp.net中調(diào)用Office來(lái)制作3D統(tǒng)計(jì)圖的實(shí)例代碼
- ASP.net中網(wǎng)站訪問(wèn)量統(tǒng)計(jì)方法代碼
- php模仿asp Application對(duì)象在線人數(shù)統(tǒng)計(jì)實(shí)現(xiàn)方法
相關(guān)文章
asp利用Split函數(shù)進(jìn)行多關(guān)鍵字檢索
怎樣提取數(shù)據(jù)庫(kù)用|隔開(kāi)的字!2009-09-09通過(guò)客戶端驗(yàn)證上傳圖片文件大小的ASP源碼
ASP_Upload的例子-動(dòng)態(tài)表單部分2008-03-03Cookies 欺騙漏洞的防范方法(vbs+js 實(shí)現(xiàn))
考慮到 ASP 開(kāi)發(fā)可以采用 vbs 和 js 兩種語(yǔ)言,這里同時(shí)提供兩種語(yǔ)言的程序代碼(雙語(yǔ)版?YY中……)2009-12-12ASP語(yǔ)言實(shí)現(xiàn)對(duì)SQL SERVER數(shù)據(jù)庫(kù)的操作
目前有很多介紹用ASP開(kāi)發(fā)網(wǎng)絡(luò)數(shù)據(jù)庫(kù)的程序例子,但絕大部分是利用ACCESS作底層數(shù)據(jù)庫(kù)。相對(duì)于ACCESS而言,SQL SERVER數(shù)據(jù)庫(kù)系統(tǒng)要復(fù)雜得多,因此在程序開(kāi)發(fā)中需要多做一些工作。筆者結(jié)合自己開(kāi)發(fā)管理信息系統(tǒng)的經(jīng)驗(yàn),在此試舉一例,與感興趣的朋友共同交流2015-09-09ASP讀取日期單日期自動(dòng)補(bǔ)零函數(shù)代碼
fillzero 函數(shù):月和日這兩個(gè)日期如果是單數(shù)的話前面補(bǔ)0。如2011年3月3日一般格式是2011-3-3通過(guò)函數(shù)轉(zhuǎn)化成2011-03-03這樣的格式。2011-01-01用QuickWAP組件結(jié)合ASP建設(shè)Wap站點(diǎn)
用QuickWAP組件結(jié)合ASP建設(shè)Wap站點(diǎn)...2007-03-03Asp下實(shí)現(xiàn)限制IP訪問(wèn)的程序代碼
Asp下實(shí)現(xiàn)限制IP訪問(wèn)的程序代碼...2007-04-04msxml3.dll 錯(cuò)誤 800c0019 系統(tǒng)錯(cuò)誤:-2146697191解決方法
今天發(fā)現(xiàn)一個(gè)asp后臺(tái)使用了XMLHTTP組件的頁(yè)面無(wú)法無(wú)法生成靜態(tài)頁(yè)面了,運(yùn)行時(shí)提示msxml3.dll 錯(cuò)誤 800c0019 系統(tǒng)錯(cuò)誤:-2146697191,經(jīng)過(guò)搜索如下方法解決了問(wèn)題2020-11-11asp下的一個(gè)檢測(cè)鏈接是否正常的函數(shù)
很簡(jiǎn)單的函數(shù),用來(lái)檢測(cè)網(wǎng)站域名是否能正常訪問(wèn)。2008-07-07