显示在线人数

　　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>当前在线 "& online() &"人</font>"& chr(34) & ")"

　　'Response.Write "document.write(" & chr(34) & "  <a href=count/ShowOnline.asp title=查看在线列表><font color=#000000>当前在线"& 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 删除超时用户

　　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