online.asp

来自「九酷网络个人主页系统破解版」· ASP 代码 · 共 35 行

<%
UserName=Request.Cookies("9cool_username")
if UserName="" then
   UserName="游客"
end if
call sqlonline()
sub sqlonline()
dim statuserid
     statuserid=replace(Request.ServerVariables("REMOTE_ADDR"),".","")	
	 guestip = Request.ServerVariables("HTTP_X_FORWARDED_FOR") 
	 If guestip=empty Then guestip = Request.ServerVariables("REMOTE_ADDR")
	 Response.Cookies("mesky")("onlineid")=statuserid
	sqlol="select id from online where id="&cstr(request.cookies("mesky")("onlineid"))
	set rsol=conn.execute(sqlol)
	if rsol.eof and rsol.bof then
		sqlol="insert into online(id,UserName,ip,startime,lastimebk,browser,actforip) values ("&statuserid&",'"&UserName&"','"&Request.ServerVariables("REMOTE_ADDR")&"',now(),now(),'"&Request.ServerVariables("HTTP_USER_AGENT")&"','"&guestip&"')"
	else
		sqlol="update online set lastimebk=now(),UserName='"&UserName&"' where id="&cstr(request.cookies("mesky")("onlineid"))
	end if
	conn.execute(sqlol)
set rsol=nothing
Rem 删除超时用户
sqlol="Delete FROM online WHERE DATEDIFF('s', lastimebk, now()) > 5*60"
Conn.Execute sqlol
end sub
function online()
dim tmprs
	sqlol="Select count(id) from online"
set tmprs=conn.execute(sqlol) 
online=tmprs(0) 
set tmprs=nothing 
if isnull(online) then online=0
end function 
%>