佳木斯湛栽影视文化发展公司
主頁(yè) > 知識(shí)庫(kù) > 顯示在線人數(shù)

顯示在線人數(shù)
熱門(mén)標(biāo)簽：阿里云 科大訊飛語(yǔ)音識(shí)別系統(tǒng) 團(tuán)購(gòu)網(wǎng)站 電子圍欄 銀行業(yè)務(wù) Linux服務(wù)器 服務(wù)器配置 Mysql連接數(shù)設(shè)置
%
NowUrl=request.servervariables("HTTP_REFERER")
UserName = session("Wenday_sys_User")
if UserName="" then
   UserName="客人"
end if
call sqlonline()
Response.Write "document.write(" chr(34) "nbsp;nbsp;font color=#000000>當(dāng)前在線 " online() "人/font>" chr(34) ")"
'Response.Write "document.write(" chr(34) "nbsp;nbsp;a href=count/ShowOnline.asp title=查看在線列表>font color=#000000>當(dāng)前在線" online() "人/font>/a>" chr(34) ")"
sub sqlonline()
dim statuserid
     statuserid=replace(Request.ServerVariables("REMOTE_HOST"),".","") 
  Response.Cookies("Wenday_Sys")("onlineid")=statuserid
 sql="select id from "CategoryName"_online where id="cstr(request.cookies("Wenday_Sys")("onlineid"))
 set rs=conn.execute(sql)
 if rs.eof and rs.bof then
  sql="insert into "CategoryName"_online(id,UserName,ip,startime,lastimebk,browser,actforip,Now_Url) values ("statuserid",'"UserName"','"Request.ServerVariables("REMOTE_HOST")"',now(),now(),'"Request.ServerVariables("HTTP_USER_AGENT")"','"Request.ServerVariables("HTTP_X_FORWARDED_FOR")"','"request.servervariables("HTTP_REFERER")"')"
 else
  sql="update "CategoryName"_online set lastimebk=now(),UserName='"UserName"' where id="cstr(request.cookies("Wenday_Sys")("onlineid"))
 end if
 conn.execute(sql)
set rs=nothing
Rem 刪除超時(shí)用戶
sql="Delete FROM "CategoryName"_online WHERE DATEDIFF('s', lastimebk, now()) > "kicktime"*60"
Conn.Execute sql
end sub
function online()
dim tmprs
 sql="Select count(id) from "CategoryName"_online"
set tmprs=conn.execute(sql)
online=tmprs(0)
set tmprs=nothing
if isnull(online) then online=0
end function
CloseDatabase
%>

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

巨人網(wǎng)絡(luò)通訊聲明：本文標(biāo)題《顯示在線人數(shù)》，本文關(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
    年辖：市辖区| 苏尼特右旗| 富顺县| 大冶市| 化州市| 石屏县| 海城市| 福贡县| 黎川县| 富阳市| 云南省| 祁阳县| 苏尼特左旗| 如皋市| 上饶县| 徐水县| 枣庄市| 汶上县| 武平县| 酒泉市| 许昌市| 江西省| 兴安县| 阳春市| 延津县| 老河口市| 平顺县| 名山县| 巴林右旗| 磐安县| 伊通| 新民市| 马龙县| 贵州省| 彰化市| 探索| 隆尧县| 杂多县| 梁河县| 遂溪县| 新密市|