online.asp

971音乐站全站程序

<%
	dim ComeFrom,actCome,statuserid,statuserid_n,num,userip,userip1,userip2,kicktime

	kicktime=20

	randomize timer
	num=Int((899999)*Rnd +100000)
	statuserid=replace(Request.ServerVariables("REMOTE_HOST"),".","")&num

	set rs=server.createobject("adodb.recordset")
	if session("onlineid")="" then
		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,lastimebk) values ("&statuserid&",Now())"
			conn.execute(sql)
		 else
			statuserid=replace(Request.ServerVariables("REMOTE_HOST"),".","")&num
			sql="update online set lastimebk=Now() where id="&statuserid
			conn.execute(sql)
		 end if
		 rs.close
	else
		statuserid=session("onlineid")
		sql="select id from online where id="&cstr(statuserid)
		rs.open sql,conn,1,3
		if rs.eof and rs.bof then
			sql="insert into online(id,lastimebk) values ("&statuserid&",Now())"
			conn.execute(sql)
		else
			sql="update online set lastimebk=Now() where id="&cstr(statuserid)
			conn.execute(sql)
		end if
		rs.close
	end if
		session("onlineid")=statuserid
		'Response.Cookies("xbsoft")("onlineid")=statuserid
		session.timeout=400

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

	sql="select id from online"
	rs.open sql,conn,1,1
		onlineCount=rs.recordcount
	rs.close
	set rs=nothing
%>