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

明輝手游網中心:是一個免費提供流行視頻軟件教程、在線學習分享的學習平臺!

asp論壇在線人數統計研究

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

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


主站蜘蛛池模板: 日韩激情影院 | 天天狠狠| 日韩欧美在线视频观看 | 午夜 福利 视频 | 四虎影视www四虎免费 | 欧美一级淫片a免费播放口aaa | 欧美一级视屏 | 欧美一区二区三区四区五区六区 | 五月天国产 | 日韩一级在线播放 | 欧洲真实呦女网站 | 日韩欧美一区黑人vs日本人 | 四虎精品成人免费影视 | 欧美丝袜一区 | 亚洲成人www| 天天干天天色天天 | 啪啪国产视频 | 天天色综合色 | 天美传媒影视在线网址 | 青久久| 中文字幕专区在线亚洲 | 日韩a级毛片免费视频 | 中文字幕在线精品视频站app | 性生大片免费观看性 | 亚洲上最大成网人站4438 | 收集最新中文国产中文字幕 | 日韩欧美网站 | 青娱乐国产精品 | 色综合久久六月婷婷中文字幕 | 午夜a级片 | 日韩不卡手机视频在线观看 | 日本www视频在线观看 | 中文字幕在线观看日本 | 日本欧美在线 | 亚洲综合色播 | 天天狠天天透天干天天怕处 | 宇都宫紫苑日韩专区亚洲 | 五月激激激综合网色播免费 | 永久免费观看午夜视频在线 | 日本高清视频免费观看 | 亚洲欧美大片 |