📄 foreveruser.asp
字号:
<%@ Language=VBScript %>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft FrontPage 4.0">
<title></title>
</HEAD>
<BODY bgcolor="#99CCFF">
<%
dim temp
if Request.ServerVariables ("REQUEST_METHOD")="POST" then
set newconn=server.CreateObject ("ADODB.Connection")
newconn.ConnectionString ="ChatRoom"
newconn.Open
newsql="select UserID,PWD,Right from EverUser where UserID='" & Request.Form ("Admin_UID") & "' and PWD='" & Request.Form ("Admin_PWD") & "'"
set newrecord0=newconn.Execute (newsql)
if newrecord0.bof then
Response.Write "帐号密码输入错误!"
Response.End
else
if newrecord0(2)<>9 then
Response.Write ("你没有权限进入，只有管理员才可以!")
Response.End
else
for each item in Request.Form ("name")
if item<>"" and temp<> true then
newsql="update EverUser set IfClosed=false"
newconn.Execute (newsql)
temp=true
end if
newsql="update EverUser set IfClosed=true,CloseTime='" & date() & "',OpenTime='" & dateadd("d",5,date()) & "' where UserID='" & item & "'"
newconn.Execute (newsql)
next
end if
end if
newsql="select UserID,PWD,NickName,IpAdd,TotalVisit,FaultCount,IfClosed,CloseTime,OpenTime from EverUser"
set newrecord=newconn.Execute (newsql)
if not newrecord.bof then
%>
<P align="center"><b><font size="5" face="华文彩云" color="#FF6666">永久用户和ip地址管理</font></b></P>
<form method="POST" action="foreveruser.asp" name="forever">
<table border="1" width="100%">
<tr>
<td width="11%">用户名</td>
<td width="11%">密码</td>
<td width="11%">昵称</td>
<td width="11%">ip地址</td>
<td width="11%">访问次数</td>
<td width="11%">违例次数</td>
<td width="11%">是否被封</td>
<td width="11%">被封时间</td>
<td width="12%">解封时间</td>
</tr>
<%
do while not newrecord.eof
%>
<tr>
<td width="11%"><% =newrecord(0) %></td>
<td width="11%"><% =newrecord(1) %></td>
<td width="11%"><% =newrecord(2) %></td>
<td width="11%"><% =newrecord(3) %></td>
<td width="11%"><% =newrecord(4) %></td>
<td width="11%"><% =newrecord(5) %></td>
<%
if newrecord(6)<>true then
%>
<td width="11%"><% =newrecord(6) %><input type="checkbox" name="name" value=<% =newrecord(0) %> ></td>
<%
else
%>
<td width="11%"><% =newrecord(6) %><input type="checkbox" name="name" value=<% =newrecord(0) %> checked></td>
<%
end if
%>
<td width="11%"><% =newrecord(7) %></td>
<td width="12%"><% =newrecord(8) %></td>
</tr>
<%
newrecord.movenext
loop
end if
%>
</table>
</center>
<font color="#FF0000"><div align="center"><center><p>请输入帐号：</font>
<input type="text" name="Admin_UID" size="21"
style="color: rgb(255,0,0); background-color: rgb(0,255,255)"></p>
</center></div>
<div align="center"><center><p><font color="#FF0000"> 请输入密码：</font>
<input type="password" name="Admin_PWD" size="21" style="background-color: rgb(0,255,255); color: rgb(255,0,0)"></p>
</center></div>
<center><input type="submit" value="提交" name="submit"><input type="reset" value="重填" name="reset">
</form>
<center><a href="admin.asp">在线用户管理</a></center>
<center><a href="singleuser.asp">发送信息</a></center>
<%
else
%>
<form action="foreveruser.asp" method="POST">
<font color="#FF0000"><div align="center"><center><p>请输入帐号：</font>
<input type="text" name="Admin_UID" size="21"
style="color: rgb(255,0,0); background-color: rgb(0,255,255)"></p>
</center></div>
<div align="center"><center><p><font color="#FF0000"> 请输入密码：</font>
<input type="password" name="Admin_PWD" size="21" style="background-color: rgb(0,255,255); color: rgb(255,0,0)"></p>
</center></div>
<center><input type="submit" value="提交" name="submit"><input type="reset" value="重填" name="reset">
</form>
<%
end if
%>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -