online.asp

秘密网源代码 传闻拉了 100W风投

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