国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 編程 > ASP > 正文

四步完成asp網頁設計流量統計

2024-05-04 10:59:22
字體:
來源:轉載
供稿:網友

按照以下步驟,逐步操作,你很快就會擁有精美的圖形化計數器。 
步驟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>            
發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板: 凌海市| 濮阳市| 凤山市| 武义县| 清涧县| 商洛市| 家居| 和静县| 潮安县| 鲜城| 九龙县| 南京市| 疏附县| 双鸭山市| 城步| 通山县| 封丘县| 电白县| 岗巴县| 蓝田县| 酉阳| 仙居县| 青冈县| 历史| 临洮县| 梁平县| 潞西市| 广德县| 石泉县| 融水| 仪征市| 延边| 龙岩市| 扶绥县| 凉城县| 新乐市| 清原| 东阿县| 蚌埠市| 南部县| 潜山县|