<% 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 %>
网友评论