六月婷婷综合激情-六月婷婷综合-六月婷婷在线观看-六月婷婷在线-亚洲黄色在线网站-亚洲黄色在线观看网站

明輝手游網(wǎng)中心:是一個免費提供流行視頻軟件教程、在線學(xué)習(xí)分享的學(xué)習(xí)平臺!

asp論壇在線人數(shù)統(tǒng)計研究

[摘要]最近用ASP做了一個小論壇,客戶又要求要統(tǒng)計在線人數(shù),所以花了點時間寫一個在線統(tǒng)計訪會員的功能。寫的過程中也查看了許多文檔。自我感覺用的方法能比較準(zhǔn)確的統(tǒng)計在線人數(shù)。當(dāng)然一定也有不足的地方,希望各位老師糾正。特別說明: 本論壇登錄是采用用戶名登錄,登錄后取得用戶昵稱。整個網(wǎng)站不顯示用戶名,我想...

最近用ASP做了一個小論壇,客戶又要求要統(tǒng)計在線人數(shù),所以花了點時間寫一個在線統(tǒng)計訪會員的功能。寫的過程中也查看了許多文檔。自我感覺用的方法能比較準(zhǔn)確的統(tǒng)計在線人數(shù)。當(dāng)然一定也有不足的地方,希望各位老師糾正。特別說明:   本論壇登錄是采用用戶名登錄,登錄后取得用戶昵稱。整個網(wǎng)站不顯示用戶名,我想相對來說安全一點吧,所以有昵稱和用戶名區(qū)別。  1。建立數(shù)據(jù)庫表
  表名為online
  設(shè)如下字段
  id '用來記錄每一個訪問都的session.sessionid
  name '如果是訪客,則記錄為訪客。
  online  '如果是訪各為0 如果是會員1
  datetime '最近活動時間
  username '會員的登錄用戶名,訪客為空。
  ip '記錄訪問都的登錄IP  head.asp '向數(shù)據(jù)庫表寫入在線人數(shù),該頁面必須搜入到每一個用于瀏覽ASP頁面中。
<%
set rs=Server.CreateObject("ADODB.Recordset")
if session("username")="" then 判斷用戶未登錄
sql="select * from online where id='"&session.sessionid&"' "  '判斷這個sessionid是否存在于數(shù)據(jù)庫表中.
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      '訪客非第一次瀏覽(出處:pconline)


主站蜘蛛池模板: 亚洲好看站 | 欧美做a一级视频免费观看 欧美坐爱视频 | 中文字幕在线视频在线看 | 自拍一区在线观看 | 天天射天天干天天舔 | 欧美一级在线观看播放 | 青青草原亚洲 | 亚洲综合三区 | 最近中文字幕无免费视频 | 婷婷丁香五月中文字幕 | 在线观看午夜视频 | 午夜视频观看 | 亚洲精品青青草原avav久久qv | 日韩种子 | 亚洲男人天堂网 | 人人爽人人香蕉 | 五月综合激情久久婷婷 | 天天躁夜夜躁狠狠躁2021西西 | 欧洲另类一二三四区 | 欧美专区视频 | 欧美特黄三级在线观看 | 午夜影院黄色片 | 色天使色婷婷在线影院亚洲 | 欧洲性xxxx免费视频下载软件 | 日韩在线欧美 | 最近更新免费中文字幕大全 | 日韩人成免费网站大片 | 四虎精品影院永久在线播放 | 日本另类αv欧美另类aⅴ | 亚洲国产成a人v在线 | 欧美在线视频导航 | 天天干天天操天天爱 | 色天使亚洲 | 五月婷六月丁香 | 欧美在线视频导航 | 亚洲成a人片 | 在线播放第一页 | 色网站免费观看 | 日韩午夜激情视频 | 五月天第一页 | 欧美最新在线 |