显示在线人数

　　<%
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),.,)
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
%>