📄 list.asp
字号:
else
response.write " Flash标签：<font color=#003399>ON</font>."
end if
if strIMGInPosts=0 then
response.write " 表情字符转换：<font color=#990000>OFF</font>."
else
response.write " 表情字符转换：<font color=#003399>ON</font>."
end if
if Uploadpic<>1 then
response.write " 上传图片：<font color=#990000>OFF</font>."
else
response.write " 上传图片：<font color=#003399>ON</font>."
end if
if not UploadFlag then
response.write " 头像上传：<font color=#990000>OFF</font>."
else
response.write " 头像上传：<font color=#003399>ON</font>."
end if
if not titleFlag then
response.write " 用户头衔：<font color=#990000>OFF</font>."
else
response.write " 用户头衔：<font color=#003399>ON</font>."
end if
response.write "</td></tr></table></td></tr></table></td></tr></table><BR>"
end sub
sub onlineuser()
guests="客人"
dim sip
dim grade20,grade19,grade18
grade20=grade(20)
grade19=grade(19)
grade18=grade(18)
'用户信息
sql="select username,startime,lastimebk,ip,stats,userclass,browser from online where username<>'"&guests&"'"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
if rs.eof and rs.bof then
rs.close : set rs=nothing
else
arrRow=rs.getRows
rs.close : set rs=nothing
for i=0 to Ubound(arrRow,2)
if instr(arrRow(4,i),boardtype)>0 then
sip=arrRow(3,i)
if arrRow(5,i)=grade20 or arrRow(5,i)=grade19 then
response.write "<img src=pic/ao.gif alt=特殊人物> "
elseif arrRow(5,i)=grade18 then
response.write "<img src="&picurl&"gb(1).gif alt="&user_level18&"> "
else
response.write "<img src="&picurl&"messages1.gif> "
end if
arrRow(0,i)=htmlencode(arrRow(0,i))
response.write "<a href=javascript:openUser('"&arrRow(0,i)&"')>"
response.write "<ACRONYM TITLE=""目前位置："&arrRow(4,i)&" 来访时间："&arrRow(1,i)&" 活动时间："&arrRow(2,i)&" "&system(arrRow(6,i))&" "&browser(arrRow(6,i))&" ＩＰ地址："
if IpFlag=0 then
if memberclass=grade(19) or memberclass=grade(20) then
response.write sip
else
response.write "已设置保密"
end if
else
response.write sip
end if
response.write " 来源鉴定："
if FromFlag=0 then
if memberclass=grade19 or memberclass=grade20 then
response.write address(sip)
else
response.write "已设置保密"
end if
else
response.write address(sip)
end if
response.write """>"&arrRow(0,i)&"</ACRONYM></a> "
end if
next
arrRow=null
end if
if guestuser=1 then
'客人信息
sql="select username,startime,lastimebk,ip,stats,userclass,browser from online where username='"&guests&"'"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
if rs.eof and rs.bof then
rs.close : set rs=nothing
else
arrRow=rs.getrows
rs.close : set rs=nothing
for i=0 to Ubound(arrRow,2)
if instr(arrRow(4,i),boardtype)>0 then
sip=arrRow(3,i)
response.write "<img src="&picurl&"messages2.gif> "
response.write "<a href=#>"
response.write "<ACRONYM TITLE=""目前位置："&arrRow(4,i)&" 来访时间："&arrRow(1,i)&" 活动时间："&arrRow(2,i)&" "&system(arrRow(6,i))&" "&browser(arrRow(6,i))&" ＩＰ地址："
if IpFlag=0 then
if memberclass=grade(19) or memberclass=grade(20) then
response.write sip
else
response.write "已设置保密"
end if
else
response.write sip
end if
response.write " 来源鉴定："
if FromFlag=0 then
if memberclass=grade19 or memberclass=grade20 then
response.write address(sip)
else
response.write "已设置保密"
end if
else
response.write address(sip)
end if
response.write """>客人</ACRONYM></a> "
end if
next
arrRow=null
end if
end if
end sub
function online()
guests="客人"
tmprs=conn.execute("Select count(id) from online")
online=tmprs(0)
set tmprs=nothing
if isnull(online) then online=0
end function
rem /*注释*/
function localuser()
guests="客人"
tmprs=conn.execute("Select count(id) from online where username<>'"&guests&"' and stats='"&boardtype&"'")
localuser=tmprs(0)
set tmprs=nothing
if isnull(localuser) then localuser=0
end function
rem /*注释*/
function guest()
guests="客人"
tmprs=conn.execute("Select count(id) from online where username='"&guests&"' and stats='"&boardtype&"'")
guest=tmprs(0)
set tmprs=nothing
if isnull(guest) then guest=0
end function
Sub getInput()
'On Error Resume Next
Rem ------获取版面ID------
BoardID = Request("BoardID")
Rem ------获取页次------
currentPage=request.form("page")
End Sub
sub chkInput
'on error resume next
if BoardID="" or not isInteger(BoardID) then
BoardID=1
else
BoardID=clng(BoardID)
if err then
BoardID=1
err.clear
end if
end if
if currentpage="" or not isInteger(currentpage) then
currentpage=1
else
currentpage=clng(currentpage)
if err then
currentpage=1
err.clear
end if
end if
if request("selTimeLimit")="all" then
tl=""
elseif request("selTimeLimit")="" then
tl=""
else
limitime=request("selTimeLimit")
tl=" and dateandtime>=#"&cstr(cdate(now()-limitime))&"# "
end if
end sub
sub activeuser()
dim rsactiveusers,activeuser
if membername="" then
if session("userid")="" then
'activeuser="select * from online"
activeuser="insert into online(id,username,userclass,ip,startime,lastimebk,lastime,browser,stats) values "&_
"("&Session.SessionID&",'客人','客人','"&_
Request.ServerVariables("REMOTE_HOST")&"',now(),now(),'"&DateToStr(now())&"','"&_
Request.ServerVariables("HTTP_USER_AGENT")&"','"&_
boardtype&"')"
conn.execute(activeuser)
else
activeuser="select * from online where id="&cstr(session("userid"))
set rsactiveusers=server.createobject("adodb.recordset")
rsactiveusers.open activeuser,conn,1,3
if rsactiveusers.eof and rsactiveusers.bof then
activeuser="insert into online(id,username,userclass,ip,startime,lastimebk,lastime,browser,stats) values "&_
"("&Session.SessionID&",'客人','客人','"&_
Request.ServerVariables("REMOTE_HOST")&"',now(),now(),'"&DateToStr(now())&"','"&_
Request.ServerVariables("HTTP_USER_AGENT")&"','"&_
boardtype&"')"
conn.execute(activeuser)
else
activeuser="update online set lastimebk=now(),lastime='"&DateToStr(now())&"',stats='"&boardtype&"' where id="&cstr(session("userid"))
conn.execute(activeuser)
end if
end if
session("userid")=Session.SessionID
set rsactiveusers=nothing
else
activeuser="select username from online where username='"&membername&"'"
set rsactiveusers=server.createobject("adodb.recordset")
rsactiveusers.open activeuser,conn,1,3
if rsactiveusers.eof and rsactiveusers.bof then
activeuser="insert into online(id,username,userclass,ip,startime,lastimebk,lastime,browser,stats) values "&_
"("&Session.SessionID&",'"&membername&"','"&memberclass&"','"&_
Request.ServerVariables("REMOTE_HOST")&"',now(),now(),'"&DateToStr(now())&"','"&_
Request.ServerVariables("HTTP_USER_AGENT")&"','"&_
boardtype&"')"
conn.execute(activeuser)
else
activeuser="update online set lastimebk=now(),lastime='"&DateToStr(now())&"',stats='"&boardtype&"' where username='"&membername&"'"
'response.write activeuser
conn.execute(activeuser)
end if
rsactiveusers.close
activeuser="select username,userpassword from [user] where username='"&membername&"' and userpassword='"&memberword&"'"
rsactiveusers.open activeuser,conn,1,1
if rsactiveusers.eof and rsactiveusers.bof then
rsactiveusers.close
set rsactiveusers=nothing
Errmsg=Errmsg+"<br>"+"<li>一般程序保护错误，您试图进行不合法的操作。<li>您的密码不正确，请<a href=login.asp>重新登陆</a>。"
Founderr=true
call error()
response.end
end if
rsactiveusers.close
end if
set rsactiveusers=nothing
'设置用户不活动超时时间--660秒
dim strOnlineTimedOut,strOnlineCheckInTime
strOnlineCheckInTime = DateToStr(Now())
strOnlineTimedOut = strOnlineCheckInTime - 1200
activeuser="delete from online where lastime<'" & strOnlineTimedOut & "'"
Conn.Execute activeuser
end sub
set rs=nothing
Call endConnection
%>
<!--#include file="footer.asp"-->
<iframe width=0 height=0 src="" id="hiddenframe"></iframe>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -