?? stat.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 + -