推薦：flash結(jié)合asp制作出的顯ip,版本,登陸時(shí)間,訪問(wèn)次數(shù)
也不知道算不算原創(chuàng)，反正是沒(méi)有參照任何東西，自己動(dòng)手做的。 首先需要2個(gè)asp文件，1個(gè)文本文件，還有就是1個(gè)swf文件了。 -------------------info.asp---------------------------- //這里是顯示ip,版本，登陸時(shí)間的 !--#include file=num.asp-- % set user

在Internet上，用ASP編寫(xiě)的計(jì)數(shù)器到處都是，本人覺(jué)得再在這里談ASP編寫(xiě)計(jì)數(shù)器已沒(méi)有多大意義。后來(lái)想想還是有必要談一下，因?yàn)檫@不僅僅只是在談?dòng)?jì)數(shù)器的編寫(xiě)，而是在向大家介紹ASP的知識(shí)與應(yīng)用技巧。

程序原代碼如下：

　　$#@60;％countlong=8
′countlong定義計(jì)數(shù)器顯示位數(shù)
　　On Error Resume Next
′ 忽略所有的錯(cuò)誤
　　count=server.mappath(″count.txt″)
　　set cou = server.createobject(″scripting.filesystemobject″)
　　set out=cou.opentextfile(count,1,false,false)
　　counter=out.readline
　　out.close
　　′以上代碼是打開(kāi)文件count.txt并讀取一行,讀出目前計(jì)數(shù)器的值
　　if session(″in″)$#@60;$#@62;″in″ then
　　′判斷用戶(hù)是否已進(jìn)入主頁(yè)，以確保他按刷新或再次來(lái)到此頁(yè)面時(shí)計(jì)數(shù)器不會(huì)再加1
　　session(″in″)=″in″
　　set out = cou.createtextfile(count,true,false)
　　application.lock
　　counter=counter＋1
′計(jì)數(shù)器加1
　　out.writeline(counter)
　　application.unlock
　　out.close
　　′以上代碼是建立一個(gè)新的文件count.txt并寫(xiě)入一行，寫(xiě)入加1后計(jì)數(shù)器的值
　　end if
　　co=cstr(counter)
′cstr函數(shù)用來(lái)把數(shù)字型變量轉(zhuǎn)換成字符型
　　for i = 1 to countlong－len(co)
　　response.write ″″
　　next
　　′上面的循環(huán)語(yǔ)句是完成計(jì)數(shù)器前面的0圖片的添加
　　′len(co)函數(shù)是得到變量co的長(zhǎng)度，countlong－len(co)就得到前面0圖片的個(gè)數(shù)
　　for i= 1 to len(co)
　　response.write ″″
　　next
　　′mid(co,i,1)函數(shù)是用來(lái)從變量co的第i位開(kāi)始讀一個(gè)字符％$#@62;
這個(gè)計(jì)數(shù)器做得比較成功的地方是使用session防止用戶(hù)對(duì)計(jì)數(shù)器的多次刷新; 使用了文本文件記錄計(jì)數(shù)器的值，雖然代碼寫(xiě)起來(lái)比較長(zhǎng)，但比起用application對(duì)象要好得多，因?yàn)楫?dāng)服務(wù)器reboot或改動(dòng)global.asa時(shí),application對(duì)象的值就會(huì)被清空; 還有就是用圖片代替了字符，看起來(lái)更美觀大方！

計(jì)數(shù)器的圖片你可以自己設(shè)計(jì)一下，0用文件名0.gif，1用1.gif,以此類(lèi)推。

分享：ASP中20個(gè)非常有用的技巧
1.如何用Asp判斷你的網(wǎng)站的虛擬物理路徑 答：使用Mappath方法 p align=center font size=4 face=Arial b The Physical path to this virtual website is: /b /font font color=#FF0000 size=6 face=Arial %= Server.MapPath(\)% /font /p 2.我如何知道使用者