chatinfo.asp
来自「聊天室源码呵呵你好用~~~~~~2.0版本」· ASP 代码 · 共 159 行
ASP
159 行
<%@ LANGUAGE=VBScript%>
<%Response.Expires=0
if Session("a_c_user_name")="" then
Response.write "<b>[操作失败]</b><p>您尚未登录（或已经超时退出），不能进行此操作！"
Response.end
end if
online=Application("a_c_user_online")
level=Session("a_c_user_level")
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 = s & ":" & f & ":" & m
sj2= n & "-" & y & "-" & r & " " & sj%><html>
<head>
<title>聊友信息</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type='text/css'>
<!--
.p9 {line-height: 150%; font-size: 9pt;}
.p12 {line-height: 150%; font-size: 12pt;}
td {line-height: 150%; font-size: 9pt;}
body {line-height: 150%;font-size : 12pt;}
A {text-decoration: none;}
A:Hover {text-decoration : none;}
a:visited { color: #0000FF}
-->
</style>
<script language="javaScript">
function load()
{var name=navigator.appName
var vers=navigator.appVersion
if(name=="Netscape")
{window.location.reload()
}else
{history.go(0)
}}</script>
</head>
<body bgcolor="FFFFFF">
<h1 align="center"><font color="0099FF">【聊友信息】</font></h1>
<hr noshade size="1" color=009900>
<form method="post" action="">
<div align="center">
<input type="button" value="刷新" onclick=load() style="font-size:12pt">
</div>
</form>
<p><b>[说明]</b> 刷新时间：<%=sj2%></p>
<blockquote>
<%if level<8 then%><p class="p9">三级以上可看“开始统计时间”，四级以上可看“ＩＰ地址”，六级以上可以“踢人”。八级以上则可以封锁该用户的 IP 地址。九级以上可以对严重违反聊天室纪律的人员投放“视窗炸弹”。请慎用踢人、封锁、炸弹功能，如果随意踢人被聊友揭发，查实后将对滥用职权者进行降级，直至禁用、删除其帐号。</p><%end if%>
<p class="p12"><font color="#FF0000">注意：版主执行踢人、炸弹等操作时必须输入原因才能进行！</font></p>
</blockquote>
<p><b>[在线用户信息]</b> 现有 <b><font color="FF0000"><%=Application("a_c_user_inthechat")%></font></b>
人在聊天室中</p>
<%if level>=9 then%>
<script language="JavaScript">
<!--
function s(list){
document.quip.queryip.value=list;
document.quip.queryip.focus();
}
//-->
</script>
<table border="0" align="center" cellpadding="4">
<tr>
<td>
<form method="post" action="queryip.asp" name="quip" target=_blank>
<div align="center">IP地址查询：
<input type="text" name="queryip" maxlength="15" size="15">
<input type="submit" name="qip" value="查询">
</div>
</form>
</td>
<td>
<form method="post" action="queryip2.asp" target=_blank>
<div align="center"> 关键词查询：
<input type="text" name="queryip2" maxlength="15" size="15">
<input type="submit" name="qip2" value="查询">
</div>
</form>
</td>
</tr>
</table>
<hr noshade size="1" color=009900>
<table width="85%" border="0" align="center">
<tr>
<td><font color="FF0000">序号</font></td>
<td><font color="FF0000">用户名</font></td>
<td><font color="FF0000">IP地址</font></td>
<td><font color="FF0000">开始统计时间</font></td>
<td><font color="FF0000">增长经验</font></td>
<td><font color="FF0000">踢人</font></td>
<td><font color="FF0000">封锁</font></td>
<td><font color="FF0000">炸弹</font></td>
</tr>
<%xh=1
for i=1 to Application("a_c_user_inthechat")*4 step 4%>
<tr>
<td><%=xh%></td>
<td><%=online(i)%></td>
<td><%ipaddress=Server.HTMLEncode(online(i+1))
Response.Write "<a href=javascript:s('" & ipaddress & "')>" & ipaddress & "</a>"%></td>
<td><%if level>=3 then Response.Write online(i+2)%></td>
<td><%if level>=3 then Response.Write "+ " & DateDiff("n",online(i+2),sj2)%></td>
<td><a href=kick.asp?username=<%=server.urlencode(online(i))%>>踢人</a></td>
<td><a href=ip.asp?lockip=<%=server.urlencode(online(i+1))%>>封锁</a></td>
<td><a href=bomb.asp?username=<%=server.urlencode(online(i))%>>炸弹</a></td>
</tr>
<%xh=xh+1
next%>
</table>
<%else%>
<table width="85%" border="0" align="center">
<tr>
<td><font color="FF0000">序号</font></td>
<td><font color="FF0000">用户名</font></td>
<td><font color="FF0000">IP地址</font></td>
<td><font color="FF0000">开始统计时间</font></td>
<td><font color="FF0000">增长经验</font></td>
<td><font color="FF0000">踢人</font></td>
<%if level>=8 then%><td><font color="FF0000">封锁</font></td><%end if%>
</tr>
<%xh=1
for i=1 to Application("a_c_user_inthechat")*4 step 4%>
<tr>
<td><%=xh%></td>
<td><%=online(i)%></td>
<td><%ipaddress=Server.HTMLEncode(online(i+1))
if level=4 then Response.Write left(ipaddress,int(len(ipaddress)/2+0.5)) & "……"
if level=5 then Response.Write left(ipaddress,int(len(ipaddress)*3/4+0.5)) & "…"
if level>=6 then Response.Write ipaddress%></td>
<td><%if level>=3 then Response.Write online(i+2)%></td>
<td><%if level>=3 then Response.Write "+ " & DateDiff("n",online(i+2),sj2)%></td>
<td><%if level>=6 then%><a href=kick.asp?username=<%=server.urlencode(online(i))%>>踢人</a><%end if%></td>
<%if level>=8 then%><td><a href=ip.asp?lockip=<%=server.urlencode(online(i+1))%>>封锁</a></td><%end if%>
</tr>
<%xh=xh+1
next%>
</table>
<%end if%> <%if Session("a_c_user_level")>=10 then%>
<hr noshade size="1" color=009900>
<form method="post" action="adjustok.asp" name="">
<div align="center">将活动人数设为：
<input type="text" name="ua" size="3" style="font-size:12pt" value="<%=Application("a_c_user_active")%>">
人
<input type="submit" name="Submit" value="更改" style="font-size:12pt">
</div>
</form>
<%end if%>
<hr noshade size="1" color=009900>
<div align="center" class="p9"><script src="use.asp"></script> <script src="sn.asp"></script><br><script src="copyright.asp"></script></div>
</body>
</html>⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?