<%

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

%>