顯示在線人數(shù)
更新時(shí)間：2006年07月09日 00:00:00 作者：
<%
NowUrl=request.servervariables("HTTP_REFERER")
UserName = session("Wenday_sys_User")
if UserName="" then
UserName="客人"
end if
call sqlonline()
Response.Write "document.write(" & chr(34) & " <font color=#000000>當(dāng)前在線 "& online() &"人</font>"& chr(34) & ")"
'Response.Write "document.write(" & chr(34) & " <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
%>
NowUrl=request.servervariables("HTTP_REFERER")
UserName = session("Wenday_sys_User")
if UserName="" then
UserName="客人"
end if
call sqlonline()
Response.Write "document.write(" & chr(34) & " <font color=#000000>當(dāng)前在線 "& online() &"人</font>"& chr(34) & ")"
'Response.Write "document.write(" & chr(34) & " <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
%>
相關(guān)文章
ASP 中 Split 函數(shù)的實(shí)例分析...2007-11-11
javascript asp教程第二課--轉(zhuǎn)義字符
javascript asp教程第二課--轉(zhuǎn)義字符...2007-03-03
這篇文章主要介紹了ASP編程入門進(jìn)階（三）：接觸腳本程序2007-01-01
無組件生成縮略圖...2006-06-06
Eval 函數(shù) | Execute 語句 | ExecuteGlobal 語句使用說明
在運(yùn)行時(shí)添加過程和類是非常有用的,但是也可能導(dǎo)致在運(yùn)行時(shí)覆蓋已有的全局 變量 和函數(shù)。因?yàn)檫@可能導(dǎo)致非常嚴(yán)重的程序問題,因此，當(dāng)使用 ExecuteGlobal 語句時(shí)一定得非常謹(jǐn)慎。2007-02-02
一段幾乎可以讓你死機(jī)的JS代碼...2006-06-06
ASP應(yīng)用之模板采用...2007-01-01
獲取圖片寬度和高度的類，支持JPG，GIF，PNG，BMP...2006-06-06
同一個帳號不能同時(shí)登陸的問題...2006-06-06
ASP編程入門進(jìn)階（二十）：ADO組件之查詢數(shù)據(jù)記錄
ASP編程入門進(jìn)階（二十）：ADO組件之查詢數(shù)據(jù)記錄...2007-01-01