% NowUrl=request.servervariables("HTTP_REFERER") UserName = session("Wenday_sys_User") if UserName="" then UserName="客人" end if call sqlonline() Response.Write "document.write(" chr(34) "nbsp;nbsp;font color=#000000>當前在線 " online() "人/font>" chr(34) ")" 'Response.Write "document.write(" chr(34) "nbsp;nbsp;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 %>
