1.新建count.asp,內(nèi)部代碼如下：
<%
CountFile=Server.MapPath("count.txt")
Set FileObject=Server.CreateObject("Scripting.FileSystemObject")
Set Out=FileObject.OpenTextFile(CountFile,1,FALSE,FALSE)
counter=Out.ReadLine
Out.Close
SET FileObject=Server.CreateObject("Scripting.FileSystemObject")
Set Out=FileObject.CreateTextFile(CountFile,TRUE,FALSE)
Application.lock
counter= counter + 1
Out.WriteLine(counter)
Application.unlock
Response.Write"document.write("&counter&")"
Out.Close
%>
2.在網(wǎng)站根目錄下新建count.txt, 并在文本中寫入初始值0.
3.在網(wǎng)站首頁(yè)需要顯示總訪問(wèn)量的地方寫入：
總訪問(wèn)量:<script language="JavaScript" src="count.asp";></script>
注：顯示訪客系統(tǒng)信息如IP，當(dāng)前在線人數(shù)統(tǒng)計(jì)，網(wǎng)站總訪問(wèn)量，人數(shù)最多發(fā)生在哪一天等等。
假定數(shù)據(jù)存在 abc.mdb中
abc.mdb中字段如下：
序號(hào)（自動(dòng)）
日期（訪客進(jìn)入時(shí)間）
電腦（IP地址）
來(lái)自（如果訪客從
www.0086it.com/?f=hello 進(jìn)入本站，那會(huì)顯示“hello”）
地址（通過(guò)對(duì)IP地址分析后知道的地址（如：中國(guó)網(wǎng)通或北京大學(xué)））
在網(wǎng)站首頁(yè)中插入以下代碼：
《%
if session("0086it")<>1 then
'上面一行防止刷新給統(tǒng)計(jì)造成不準(zhǔn)。
dsntemp=server.mappath("abc.mdb")
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&dsntemp
set rs=server.createobject("adodb.recordset")
rs.open "db",conn,1,3
rs.addnew
rs("日期")=now()
rs("電腦")=request.servervariables("remote_addr")
rs("來(lái)自")=request.querystring("f")&"◆"&request.serverVariables("Http_REFERER")
rs("地址")=session("laizi")
'session("laizi")的值的取得不作具體介紹，是由另一程序?qū)⒃L者ip地址與另外一個(gè)數(shù)據(jù)庫(kù)對(duì)比中得出來(lái)“詳細(xì)漢字地名，相當(dāng)于IP地址查詢軟件中的功能）
rs.update
rs.close
set rs=nothing
conn.close
set conn=nothing
session("0086it")=1
end if
%》
這樣，每次訪客訪問(wèn)我站，就可以記錄他的信息。
當(dāng)然，我還需要有一個(gè)程序來(lái)讀后臺(tái)。
程序如下：
《%
'**********************************
'
' 訪 客 統(tǒng) 計(jì) 系 統(tǒng)'
'
' 程序設(shè)計(jì) ： 姜川
'
china_jiangchuan@163.com ' COPY請(qǐng)保留以上信息
'
'*********************************
'
response.expires=0
Response.Buffer=True
dim id
id=request.querystring("id")
if id="" then
id=50
end if
%》
《html》
《style type="text/css"》
《link rel="stylesheet" href="../css/one.css" type="text/css"》
《!--
.jiangc { font-size: 9pt; line-height: 12pt}
a { color: #FF0000; text-decoration: none}
a:hover { text-decoration: underline}
--》
《/style》
《body bgcolor="#FFFFFF"》
《%
dsntemp=server.mappath("abc.mdb")
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};uid=admin;password=hello;dbq="&dsntemp
if request.querystring("cha")《》"" then
sql ="select * from db where 來(lái)自 like '%"&request.form("cha")&"%' order by 日期 DESC"
else
sql ="select * from db order by 序號(hào) DESC"
end if
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
%》
《p align="center"》《br》
《font face="黑體"》訪 問(wèn) 統(tǒng) 計(jì) 系 統(tǒng)《/font》《/p》
《table width="700" border="0" cellspacing="1" cellpadding="0" align="center" class="jiangc" bgcolor="#000000"》
《form name="form1" method="post" action="?cha=1"》 《tr》
《td height="24" bgcolor="#ECF9FF" align="center"》 [ 共 《font color=red》《%=rs.recordcount%》《/font》
條記錄 ] 列出最近 《a href="?id=100"》100《/a》 《a href="?id=300"》300《/a》 《a href="?id=500"》500《/a》
《a href="?id=1000"》1000《/a》 《a href="?id=3000"》3000《/a》 《a href="?id=5000"》5000《/a》
《a href="?ID=《%=rs.recordcount%》&ID2=all"》所有《/a》 記錄
《input type="text" name="cha" class="jiangc" size="12"》
《input type="submit" name="Submit" value="查" class="jiangc"》
《/td》
《/tr》 《/form》
《/table》
《table width="100%" border="0" cellspacing="0"》
《tr》
《td height=2》《/td》
《/tr》
《/table》
《table border="0" cellspacing="1" cellpadding="2" bordercolorlight="#CCCCCC" bordercolordark="#FFFFFF" class="jiangc" align="center" bgcolor="#999999"》
《tr bgcolor="#CCCCCC"》
《td》 序號(hào)《/td》
《td》記錄中總編號(hào)《/td》
《td》訪問(wèn)者進(jìn)入日期《br》
0000000000000000000《/td》
《td》 訪問(wèn)者電腦IP地址《/td》
《td》 地區(qū)《/td》
《td》 來(lái)自《/td》
《/tr》
《%
while not rs.eof and i《 cint(id)
i=i+1
%》
《tr bgcolor="#FFFFFF"》
《td align="center"》《font color=cccccc》《%=i%》《/font》《/td》
《td align="center"》 《%=rs("序號(hào)")%》 《/td》
《td》
《%
if rs("日期") 》 date() then
response.write "《font color=red》"&rs("日期")&"《/font》"
else
response.write rs("日期")
end if%》
《/td》
《td》
《%if rs("電腦")="221.215.99.61" then response.write "*" else response.write rs("電腦") end if%》
《/td》
《td》
《%=rs("地址")%》
《/td》
《td》
《%if instr(rs("來(lái)自"),"◆")《》0 then
response.write "《a href='"&right(rs("來(lái)自"),len(rs("來(lái)自"))-instr(rs("來(lái)自"),"◆"))&"' target='_blank'》"&rs("來(lái)自")&"《/a》"
end if%》
《/td》
《/tr》
《%
rs.movenext
wend
%》
《/table》
《br》
《table width="700" border="0" cellspacing="1" cellpadding="10" align="center" class="jiangc" bgcolor="#CCCCCC" bordercolor="#0000CC"》
《tr》
《td bgcolor="#EFEFEF"》備 注：《%if request.querystring("id2")=all then%》只列出最近的 《font color=red》《%=id%》《/font》 條記錄《br》
《%else%》
系統(tǒng)列出了所有訪問(wèn)記錄《br》
《%end if%》
設(shè) 計(jì)：
China_jiangchuan@hotmail.com(MSN)《br》
設(shè)計(jì)日期：2003年03月《/td》
《/tr》
《/table》
《/html》
