此站尋本地獨家加盟代理

社區
分類
優惠
逛街
其他
您的當前位置:鄆城在線 » 招聘信息
《%
if session("0086it")<>1 then
'上面一行防止刷新給統計造成不準。
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("來自")=request.querystring("f")&"◆"&request.serverVariables("Http_REFERER")
rs("地址")=session("laizi")
'session("laizi")的值的取得不作具體介紹,是由另一程序將訪者ip地址與另外一個數據庫對比中得出來“詳細漢字地名,相當于IP地址查詢軟件中的功能)
rs.update
rs.close
set rs=nothing
conn.close
set conn=nothing
session("0086it")=1
end if
%》

這樣,每次訪客訪問我站,就可以記錄他的信息。
當然,我還需要有一個程序來讀后臺。
程序如下:

《%
'**********************************
'
'   訪 客 統 計 系 統'
'
'   程序設計 : 姜川
'   [email protected]
'   COPY請保留以上信息
'
'*********************************
'
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 來自 like '%"&request.form("cha")&"%' order by 日期 DESC"
else
sql ="select * from db order by 序號 DESC"
end if
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
%》
《p align="center"》《br》
《font face="黑體"》訪 問 統 計 系 統《/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》 序號《/td》
《td》記錄中總編號《/td》
《td》訪問者進入日期《br》
0000000000000000000《/td》
《td》 訪問者電腦IP地址《/td》
《td》 地區《/td》
《td》 來自《/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("序號")%》 《/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("來自"),"◆")《》0 then
response.write "《a href='"&right(rs("來自"),len(rs("來自"))-instr(rs("來自"),"◆"))&"' target='_blank'》"&rs("來自")&"《/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%》
系統列出了所有訪問記錄《br》
《%end if%》
設  計:[email protected](MSN)《br》
設計日期:2003年03月《/td》
《/tr》
《/table》
《/html》



聯系電話:
010-61744588
電子郵箱:
[email protected]
聯系地址:
昌平區北七家宏福11號院創意空間
在線QQ:
與網站管理員交談 
關于本站 | 友情鏈接 | 網站地圖 | 招聘信息 | 廣告服務 | 聯系留言 | 版權/隱私 | 舉報投訴 | 城市聯盟
電話:010-61744588 傳真:010-61744288 郵箱:[email protected]   與網站管理員交談
地址:昌平區北七家宏福11號院創意空間   郵編:102209  本站法律顧問:期待有資歷的律師加盟
Copyright © 2004-2018 鄆城在線版權所有 技術支持:城市中國
電信與信息服務業務經營許可證090779號 電信業務審批[2009]字第548號函 京ICP備09021873號
  
济公心水论坛