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

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

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)


主站蜘蛛池模板: 我在修仙世界朝九晚五漫画免费观看 | 欧美整片第一页 | 欧美在线中文 | 日本高清视频一区 | 亚洲国产精品综合欧美 | 日本中文字幕在线观看 | 欧洲亚洲欧美国产日本高清 | 中文字幕免费观看视频 | 人体自拍亚洲综合图区 | 亚洲啪视频 | 亚洲专区区免费 | 亚洲一个色 | 亚洲人成影网站~色 | 一级床片40分钟免费视频 | 日韩三级免费观看 | 亚洲视频一区二区在线观看 | 亚洲伊人久久大香线蕉在观 | 香蕉人人超人人超免费看视频 | 天天干天天做天天操 | 日韩爱爱网 | 欧美一级特黄aaaaaa在线看片 | 永久在线观看www免费视频 | 青青热在线观看视频精品 | 亚欧精品一区二区三区四区 | 日韩视频在线观看中字 | 欧美一区二区三 | 亚洲五月六月丁香激情 | 下克上动漫第一集 | 日本综合欧美一区二区三区 | 中文字幕无码中文字幕有码 | 亚洲春色第一页 | 午夜合集| 天天综合天天看夜夜添狠狠玩 | 亚洲精品小说 | 青青娱乐 | 亚洲精品伊人 | 青青青在线视频免费观看 | 一级做a爰全过程免费视频毛片 | 日韩一级欧美一级一级国产 | 婷婷综合激六月情网 | 亚洲妖精天堂 |