⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 foreveruser.asp

📁 聊天室
💻 ASP
字号:
🔍 
<%@ Language=VBScript %>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft FrontPage 4.0">
<title></title>
</HEAD>
<BODY>
<%
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"><font><b>永久用户和ip地址管理</b></font></P>
<form method="POST" action="foreveruser.asp" name="forever">
<table width="100%" border="0" cellpadding="5" cellspacing="1" bgcolor="#5A8BCE">
  <tr bgcolor="#E6F7FF">
    <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 bgcolor="#FFFFFF">
    <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><div align="center"><center><p>请输入帐号：
  <input  type="text" name="Admin_UID" size="21""></p>
  </center></div>
  <div align="center"><center><p><font> 请输入密码：</font>
  <input  type="password" name="Admin_PWD" size="21"></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">
  <p><font><div align="center"><center>请输入帐号：
  <input  type="text" name="Admin_UID" size="21"></p>
  </center></div>
  <div align="center"><center><p><font> 请输入密码：</font>
  <input  type="password" name="Admin_PWD" size="21"></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 + -