📄 maninfosearch.asp
字号:
<%Response.Expires=0
grade=Int(Session("hxf_u_grade"))
nickname=Session("hxf_u_nickname")
id=Trim(Request.QueryString("id"))
id2=LCase(id)
if session("mypai")<>"六扇门" then
%>
<script language=vbscript>
MsgBox "你不是六扇门的人或者等级不够！"
location.href = "javascript:window.close()"
</script>
<%
end if
if nickname="" then Response.Redirect "manerr.asp?id=100"
if id2="" or id2="大家" then Response.Redirect "manerr.asp?id=160"
if id="" or id="大家" then Response.Redirect "manerr.asp?id=160"
Set conn=Server.CreateObject("ADODB.CONNECTION")
Set rs=Server.CreateObject("ADODB.RecordSet")
connstr=Application("hg_connstr")
conn.open connstr
sql="Select * from 用户 where 姓名='"&id2&"'"
rs.open sql,conn,1,3
ip=rs("lastip")
total=Application("hxf_c_chatrs")
onlinelist=Application("hxf_c_onlinelist")
ubo=UBound(onlinelist)
dim show()
js=1
for i=1 to ubo step 6
if Instr(LCase(onlinelist(i+1)),id2)<>0 or Instr(onlinelist(i+2),id2)<>0 then
Redim Preserve show(js),show(js+1),show(js+2),show(js+3)
show(js)=onlinelist(i+1)
show(js+1)=onlinelist(i+2)
show(js+2)=onlinelist(i+4)
show(js+3)=onlinelist(i+5)
js=js+4
end if
next
set onlinelist=nothing
totalrec=Int((js-1)/4)
p=1
n=Year(date())
y=Month(date())
r=Day(date())
s=Hour(time())
f=Minute(time())
m=Second(time())
if len(y)=1 then y="0" & y
if len(r)=1 then r="0" & r
if len(s)=1 then s="0" & s
if len(f)=1 then f="0" & f
if len(m)=1 then m="0" & m
sj=n & "-" & y & "-" & r & " " & s & ":" & f & ":" & m%><html>
<head>
<title>特别管理</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="../dg/setup.css">
</head>
<body oncontextmenu=self.event.returnValue=false bgcolor="#000000" class=p150 text="#FFFFFF">
<p align="center"><font color=yellow>©E缘江湖 ◇特 别 管 理◇</p>
<p align="center">
<%if grade>9 and session("mypai")="六扇门" then %>
<a href="manlock.asp" target="_blank">封解IP管理</a><%end if%>
<a href="javascript:history.go(0)">刷 新</a> <a href="javascript:window.close()">关闭窗口</a> </p>
<hr noshade size="1" color=009900 width="500">
<table width="500" border="1" align="center" cellpadding="3" cellspacing="0" bordercolorlight="#000000" bordercolordark="#FFFFFF">
<tr>
<td> <b>［在线人员］</b> 共 <font color=red><%=total%></font> 人，找到包含 <font color=red><%=id%></font> 的用户名 <font color=red><%=totalrec%></font> 个。
</td>
</tr>
</table>
<hr noshade size="1" color=009900 width="500">
<div align=center>本页刷新时间：<font color="#FF0000"><%=sj%></font><br></div>
<table border="1" cellspacing="0" bordercolorlight="#999999" bordercolordark="#FFFFFF" cellpadding="4" align="center" width="500">
<tr align="center">
<td>
<div>用 户 昵 称</div>
</td>
</font>
<td>
<div>登 录 I P</div>
</td>
<td>
<div>进 入 时 间</div>
</td>
<td>
<div>未 存 点</font></div>
</td>
<td colspan="2">
<div>操 作</div>
</td>
</tr>
<font color=yellow>
<%
for i=1 to UBound(show) step 4%>
<tr align="center">
<td>
<p><%=show(i)%></td>
<td>
<p><%=ip%></td>
<td>
<p><%=show(i+2)%></td>
<td>
<p><%=DateDiff("n",show(i+3),sj)%> 分钟</p>
</td>
<td>
<p><%if grade>=10 and session("mypai")="六扇门" then%><a href="manlock.asp?id=<%=server.URLEncode(show(i))%>&ip=<%=ip%>" target="_blank">封ip</a>
<%end if %></p>
</td>
<td>
<p><%if grade>=9 and session("mypai")="六扇门" then%><a href="manbomb.asp?id=<%=server.URLEncode(show(i))%>&ip=<%=ip%>">炸弹</a>
<%end if%></p>
</td>
</tr>
<%next%>
</table>
<hr noshade size="1" color=009900 width="500">
<p align=center>◇版权所有 网佳工作室</p>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -