?? online.asp
字號:
<%
if CookieUserName<>empty then SqlLineUser=" and UserName='"&CookieUserName&"'"
sql="select * from [Wo_UserOnline] where IPAddress='"&Request.ServerVariables("REMOTE_ADDR")&"' "&SqlLineUser&" or sessionid='"&session.sessionid&"' "
Rs.Open sql,Conn,1,3
if Rs.eof then Rs.addNew
Rs("act")=""&act&""
Rs("acturl")=""&Request.ServerVariables("script_name")&"?"&Request.ServerVariables("Query_String")&""
Rs("ForumID")=ForumID
Rs("ForumName")=""&ForumName&""
Rs("lasttime")=now
if RequestCookies("Invisible")<>empty then Rs("IsInvisible")=RequestCookies("Invisible")
Rs("IPAddress")=Request.ServerVariables("REMOTE_ADDR")
Rs("UserName")=CookieUserName
Rs("sessionid")=session.sessionid
Rs.update
Rs.close
if CookieUserName<>"" then Conn.execute("update [Wo_Users] set UserActivityTime="&SqlNowString&",UserActivityIP='"&Request.ServerVariables("REMOTE_ADDR")&"' where UserName='"&CookieUserName&"'")
Conn.execute("Delete from [Wo_UserOnline] where DateDiff("&SqlChar&"n"&SqlChar&",lasttime,"&SqlNowString&")>"&SiteConfig("UserOnlineTime")&" ")
Onlinemany=Conn.execute("Select count(sessionid) from [Wo_UserOnline]")(0)
%>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -