online.asp

一路飞扬在线同学录单班级版,主要用于个人系统中的同学录,不过对于学习有帮助!

<%Rem 用户在线
sub activeonline()
dim ComeFrom,actCome,statuserid
statuserid=replace(Request.ServerVariables("REMOTE_HOST"),".","")
if not founduser then
	session("userid")=statuserid
	sql="select id,boardid from online where id="&cstr(session("userid"))
	set rs=conn.execute(sql)
	if rs.eof and rs.bof then
		ComeFrom=""
		actCome=""
		sql="insert into online(id,username,userclass,ip,startime,lastimebk,boardid,browser,stats,actforip,UserGroupID,actCome,userhidden) values ("&statuserid&",'客人','客人','"&Request.ServerVariables("REMOTE_HOST")&"',Now(),Now(),"&boardid&",'"&Request.ServerVariables("HTTP_USER_AGENT")&"','"&replace(stats,"'","")&"','"&Request.ServerVariables("HTTP_X_FORWARDED_FOR")&"',7,'"&actCome&"',"&userhidden&")"
	else
		sql="update online set lastimebk=Now(),boardid="&boardid&",stats='"&replace(stats,"'","")&"' where id="&cstr(session("userid"))
	end if
	conn.execute(sql)
else
	if founderr then
	boardid=0
	stats="错误信息"
	end if
	sql="select id,boardid from online where userid="&userid
	set rs=conn.execute(sql)
	if rs.eof and rs.bof then
	ComeFrom=""
	actCome=""
		sql="insert into online(id,username,userclass,ip,startime,lastimebk,boardid,browser,stats,actforip,UserGroupID,actCome,userhidden,userid) values ("&statuserid&",'"&membername&"','"&memberclass&"','"&Request.ServerVariables("REMOTE_HOST")&"',Now(),Now(),"&boardid&",'"&Request.ServerVariables("HTTP_USER_AGENT")&"','"&replace(stats,"'","")&"','"&Request.ServerVariables("HTTP_X_FORWARDED_FOR")&"',"&UserGroupID&",'"&actCome&"',"&userhidden&","&userid&")"
	else
		sql="update online set lastimebk=Now(),boardid="&boardid&",stats='"&replace(stats,"'","")&"' where userid="&userid
	end if
	conn.execute(sql)
	rs.close
	if session("userid")<>"" then
	Conn.Execute("delete from online where id="&session("userid"))
	session("userid")=""
	end if
end if
set rs=nothing
Rem 删除超时用户
sql="Delete FROM online WHERE DATEDIFF('s', lastimebk, now()) > "&Forum_Setting(8)&"*60"
Conn.Execute sql
end sub
%>
<%
	dim ComeFrom,actCome,statuserid
	statuserid=replace(Request.ServerVariables("REMOTE_HOST"),".","")
	set rs=server.createobject("adodb.recordset")
	if not isInteger(BoardID) then Boardid=0
	if not founduser then
		if session("userid")="" then
		ComeFrom=address(Request.ServerVariables("REMOTE_HOST"))
		actCome=address(Request.ServerVariables("HTTP_X_FORWARDED_FOR"))
		sql="select id from online where id="&statuserid
		rs.open sql,conn,0,1
		if rs.eof and rs.bof then
		sql="insert into online(id,username,userclass,ip,startime,lastimebk,boardid,browser,stats,actforip,ComeFrom,actCome) values "&_
				"("&statuserid&",'客人','客人','"&_
				Request.ServerVariables("REMOTE_HOST")&"',Now(),Now(),"&boardid&",'"&_
				Request.ServerVariables("HTTP_USER_AGENT")&"','论坛首页','"&_
                Request.ServerVariables("HTTP_X_FORWARDED_FOR")&"','"&ComeFrom&"','"&actCome&"')"
		conn.execute(sql)
		else
		sql="update online set lastimebk=Now(),boardid="&boardid&" where id="&statuserid
		conn.execute(sql)
		end if
		rs.close
		else
		sql="select id from online where id="&cstr(session("userid"))
		rs.open sql,conn,1,3
		if rs.eof and rs.bof then
		ComeFrom=address(Request.ServerVariables("REMOTE_HOST"))
		actCome=address(Request.ServerVariables("HTTP_X_FORWARDED_FOR"))
		sql="insert into online(id,username,userclass,ip,startime,lastimebk,boardid,browser,stats,actforip,ComeFrom,actCome) values "&_
				"("&statuserid&",'客人','客人','"&_
				Request.ServerVariables("REMOTE_HOST")&"',Now(),Now(),"&boardid&",'"&_
				Request.ServerVariables("HTTP_USER_AGENT")&"','论坛首页','"&_
                Request.ServerVariables("HTTP_X_FORWARDED_FOR")&"','"&ComeFrom&"','"&actCome&"')"
		conn.execute(sql)
		else
		sql="update online set lastimebk=Now(),boardid="&boardid&" where id="&cstr(session("userid"))
		conn.execute(sql)
		end if
		end if
		session("userid")=statuserid
	else
		sql="select id from online where username='"&membername&"'"
		rs.open sql,conn,1,3
		if rs.eof and rs.bof then
		ComeFrom=address(Request.ServerVariables("REMOTE_HOST"))
		actCome=address(Request.ServerVariables("HTTP_X_FORWARDED_FOR"))
		sql="insert into online(id,username,userclass,ip,startime,lastimebk,boardid,browser,stats,actforip,ComeFrom,actCome) values "&_
				"("&statuserid&",'"&membername&"','"&memberclass&"','"&_
				Request.ServerVariables("REMOTE_HOST")&"',Now(),Now(),"&boardid&",'"&_
				Request.ServerVariables("HTTP_USER_AGENT")&"','论坛首页','"&_
                Request.ServerVariables("HTTP_X_FORWARDED_FOR")&"','"&ComeFrom&"','"&actCome&"')"
		conn.execute(sql)
		else
		sql="update online set lastimebk=Now(),boardid="&boardid&" where username='"&membername&"'"
		'response.write sql
		conn.execute(sql)
		end if
		rs.close
		if session("userid")<>"" then
		Conn.Execute("delete from online where id="&session("userid"))
		session("userid")=""
		end if
	end if
	set rs=nothing

	sql="Delete FROM online WHERE DATEDIFF('s', lastimebk, now()) > "&kicktime&"*60"
	Conn.Execute sql
%>