📄 stat.asp

📁 生活者姿态整站程序生活者姿态整站程序生活者姿态整站程序
💻 ASP
字号:
<!--#include file=conn.asp-->
<!--#include file=inc/char.asp-->
<!--#include file=inc/js.asp-->
<!--#include file=inc/const.asp-->
<!--#include file=chkuser.asp-->
<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="forum.css" rel="STYLESHEET" type="text/css">
<meta HTTP-EQUIV="Expires" CONTENT="0">
<meta http-equiv="Refresh" content="300">
</head>
<body <%=Forumbody%>>
<%
	dim rs,sql
	dim ComeFrom
	stats=request.cookies("aspsky")("stats")
	ComeFrom=address(Request.ServerVariables("REMOTE_HOST"))
	actCome=address(Request.ServerVariables("HTTP_X_FORWARDED_FOR"))
	statuserid=replace(Request.ServerVariables("REMOTE_HOST"),".","")
	set rs=server.createobject("adodb.recordset")
	if membername="" then
		if session("userid")="" then
		'sql="select * from online"
		sql="insert into online(id,username,userclass,ip,startime,lastimebk,lastime,browser,stats,actforip,ComeFrom,actCome) values "&_
				"("&statuserid&",'客人','客人','"&_
				Request.ServerVariables("REMOTE_HOST")&"',now(),now(),'"&DateToStr(now())&"','"&_
				Request.ServerVariables("HTTP_USER_AGENT")&"','论坛首页','"&_
                Request.ServerVariables("HTTP_X_FORWARDED_FOR")&"','"&ComeFrom&"','"&actCome&"')"
		conn.execute(sql)
		else
		sql="select * from online where id="&cstr(session("userid"))
		rs.open sql,conn,1,3
		if rs.eof and rs.bof then
		sql="insert into online(id,username,userclass,ip,startime,lastimebk,lastime,browser,stats,actforip,ComeFrom,actCome) values "&_
				"("&statuserid&",'客人','客人','"&_
				Request.ServerVariables("REMOTE_HOST")&"',now(),now(),'"&DateToStr(now())&"','"&_
				Request.ServerVariables("HTTP_USER_AGENT")&"','论坛首页','"&_
                Request.ServerVariables("HTTP_X_FORWARDED_FOR")&"','"&ComeFrom&"','"&actCome&"')"
		conn.execute(sql)
		else
		sql="update online set lastimebk=now(),lastime='"&DateToStr(now())&"',ComeFrom='"&ComeFrom&"',actCome='"&actCome&"' where id="&cstr(session("userid"))
		conn.execute(sql)
		end if
		end if
		session("userid")=statuserid
	else
		sql="select * from online where username='"&membername&"'"
		rs.open sql,conn,1,3
		if rs.eof and rs.bof then
		sql="insert into online(id,username,userclass,ip,startime,lastimebk,lastime,browser,stats,actforip,ComeFrom,actCome) values "&_
				"("&statuserid&",'"&membername&"','"&memberclass&"','"&_
				Request.ServerVariables("REMOTE_HOST")&"',now(),now(),'"&DateToStr(now())&"','"&_
				Request.ServerVariables("HTTP_USER_AGENT")&"','论坛首页','"&_
                Request.ServerVariables("HTTP_X_FORWARDED_FOR")&"','"&ComeFrom&"','"&actCome&"')"
		conn.execute(sql)
		else
		sql="update online set lastimebk=now(),lastime='"&DateToStr(now())&"',ComeFrom='"&ComeFrom&"',actCome='"&actCome&"' where username='"&membername&"'"
		'response.write sql
		conn.execute(sql)
		end if
		rs.close
	end if

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

	response.write "<table width="&tablewidth&" align=center cellspacing=0 cellpadding=1  border=0>"&_
			"<tr><td align=left width=""50%"">"
	if membername<>"" then
	response.write "<img src=pic/mybbs.gif>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -