主頁(yè) > 知識(shí)庫(kù) > ASP訪問(wèn)數(shù)量統(tǒng)計(jì)代碼

ASP訪問(wèn)數(shù)量統(tǒng)計(jì)代碼

熱門(mén)標(biāo)簽:團(tuán)購(gòu)網(wǎng)站 Linux服務(wù)器 科大訊飛語(yǔ)音識(shí)別系統(tǒng) Mysql連接數(shù)設(shè)置 銀行業(yè)務(wù) 服務(wù)器配置 阿里云 電子圍欄
1。建立數(shù)據(jù)庫(kù)表
表名為online
設(shè)如下字段
id '用來(lái)記錄每一個(gè)訪問(wèn)都的session.sessionid
name '如果是訪客,則記錄為訪客。
online '如果是訪各為0 如果是會(huì)員1
datetime '最近活動(dòng)時(shí)間
username '會(huì)員的登錄用戶名,訪客為空。
ip '記錄訪問(wèn)都的登錄IP
head.asp '向數(shù)據(jù)庫(kù)表寫(xiě)入在線人數(shù),該頁(yè)面必須搜入到每一個(gè)用于瀏覽ASP頁(yè)面中。
%
set rs=Server.CreateObject("ADODB.Recordset")
if session("username")="" then 判斷用戶未登錄
sql="select * from online where id='"session.sessionid"' " '判斷這個(gè)sessionid是否存在于數(shù)據(jù)庫(kù)表中.
rs.Open sql,Conn,1,3
if rs.eof then '訪客第一次瀏覽
rs.addnew
rs("id")=session.sessionID
rs("name")="游客"
rs("online")=0 '0表示用戶未登陸,是游客身份
rs("datetime")=now()
userip = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
If userip = "" Then
userip= Request.ServerVariables("REMOTE_ADDR")
end if
rs("ip")=userip
else '訪客非第一次瀏覽
rs("datetime")=now() '更新活動(dòng)時(shí)間
rs.update
rs.close
end if
else
sql="select * from online where id='" session.sessionID "' or admin='"session("username")"'" '判斷sessionid 或者 用戶名記錄已存在數(shù)據(jù)表中。
rs.Open sql,Conn,1,3
if rs.eof then
rs.addnew '會(huì)員第一次進(jìn)入網(wǎng)站(可能從網(wǎng)站首頁(yè)直接登錄進(jìn)入論壇)。
rs("id")=session.sessionID
rs("name")=session("show") '寫(xiě)入用戶昵稱
rs("username")=session("username") '寫(xiě)入登錄用戶名
rs("online")=1 '表示用戶已經(jīng)登陸,是會(huì)員身份
rs("datetime")=now() '將當(dāng)前系統(tǒng)時(shí)間設(shè)置為用戶的登陸時(shí)間
userip = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
If userip = "" Then
userip= Request.ServerVariables("REMOTE_ADDR")
end if
rs("ip")=userip
else //會(huì)員非第一次瀏覽網(wǎng)站,訪客登錄網(wǎng)站。
rs("name")=session("show") 更新用戶昵稱
rs("username")=session("username")
rs("online")=1 '表示用戶已經(jīng)登陸,是會(huì)員身份
rs("datetime")=now()
end if
rs.update
rs.close
end if
set rs=nothing
%>
conn.execute("delete from online where datediff('s',datetime,now())>60") '刪除60秒沒(méi)有活動(dòng)的訪客,時(shí)間可以自己調(diào)整。
您可能感興趣的文章:
  • 采用ngxtop實(shí)現(xiàn)nginx實(shí)時(shí)訪問(wèn)數(shù)據(jù)統(tǒng)計(jì)
  • python統(tǒng)計(jì)日志ip訪問(wèn)數(shù)的方法
  • Java代碼統(tǒng)計(jì)網(wǎng)站中不同省份用戶的訪問(wèn)數(shù)

標(biāo)簽:大理 廣元 衢州 衡水 萍鄉(xiāng) 蚌埠 江蘇 棗莊

巨人網(wǎng)絡(luò)通訊聲明:本文標(biāo)題《ASP訪問(wèn)數(shù)量統(tǒng)計(jì)代碼》,本文關(guān)鍵詞  ;如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問(wèn)題,煩請(qǐng)?zhí)峁┫嚓P(guān)信息告之我們,我們將及時(shí)溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò),涉及言論、版權(quán)與本站無(wú)關(guān)。
  • 相關(guān)文章
  • 收縮
    • 微信客服
    • 微信二維碼
    • 電話咨詢

    • 400-1100-266