📄 admin.asp

📁 聊天室
💻 ASP
字号:
<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>聊天室程序-后台管理</title>
<script language="vbscript" runat="server">
<!--
-->
</script>
<link href="style.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
.style1 {color: #000000}
-->
</style>
<body >
<% 
if Request.ServerVariables ("REQUEST_METHOD")="POST" then
	set newconn=server.CreateObject ("ADODB.Connection")
	newconn.ConnectionString ="DSN=ChatRoom"
	newconn.Open 
	
	
	newsql="select Right from EverUser where UserID='" & Request.Form ("Admin_UID") & "' and PWD='" & Request.Form ("Admin_PWD") & "'"
	
	set newrecord=newconn.Execute (newsql)
	if newrecord.bof then
		Response.Write ("密码和帐号输入错误!<br>")
	else
		if newrecord(0)=9 then
		
	for each item in Request.Form ("IpAdd")
	if item <>"" then
		hisip=item
		newsql="select IpAdd from FaultIpAdd where IpAdd='" & hisip & "'"
		set newrecord4=newconn.Execute (newsql)
		if not newrecord4.bof then
			newsql="update FaultIpAdd set FaultTimes=FaultTimes+1,IfClosed=true,TimeClose='" & date() & "',TimeOpen='" & dateadd("d",2,date()) & "' where IpAdd='" & hisip & "'"
			newconn.Execute (newsql)
		else
			newsql="insert into FaultIpAdd (IpAdd,TimeClose,TimeOpen,IfClosed,FaultTimes) values ('" & hisip & "','" & date() & "','" & dateadd("d",2,date()) & "',1,1)" 
			Response.Write newsql
			newconn.Execute (newsql)
		end if
		
		newsql="select UserID from UserOnLine"
		set newrecord5=newconn.Execute (newsql)
		if not newrecord5.bof then
			do while not newrecord5.eof
				application(newrecord5(0))="<br>IP--<font color=vbred>" & hisip & "</font>--已经被封!<br><br>" & application(newrecord5(0))
				newrecord5.movenext
			loop
		
		end if
		
		Response.Write "<br>IP地址--<font color=vbred>" & hisip & "</font>--已经被封!<br>"
	end if		
	next 

	for each item in Request.Form ("cUserID")
	if item <>"" then
		newsql="update EverUser set FaultCount=FaultCount+1,IfClosed=true,CloseTime='" & date() & "',OpenTime='" & dateadd("d",5,date()) & "' where UserID='" & item & "'"
		newconn.Execute (newsql)

		newsql="select UserID from UserOnLine"
		set newrecord6=newconn.Execute (newsql)
		if not newrecord6.bof then
			do while not newrecord6.eof
				application(newrecord6(0))="<br>用户<font color=vbred>" & item & "</font>已经被封!<br><br>" & application(newrecord6(0))
				newrecord6.movenext
			loop
		
		end if
		Response.Write "<br>用户<font color=vbred>" & item & "</font>已经被封!<br>"		
	end if
	next 

	
	for each item in Request.Form("kUserID")
	if item<>"" then
		newsql="select RoomName,IpAdd from UserOnLine where UserID='" & item & "'"
		set newrecord0=newconn.Execute (newsql)
		
		hisroom=newrecord0(0)
		
		newsql="delete from UserOnLine where UserID='" & item & "'"
		newconn.Execute (newsql)
		
		newsql="update EverUser set FaultCount=FaultCount+1 where UserID='" & item & "'"
		newconn.Execute (newsql)
		
		newsql="update RoomInfo set HowManyUsers=HowManyUsers-1 where RoomName='" & hisroom & "'"
		newconn.Execute (newsql)
		
		newsql="select UserID from UserOnLine"
		set newrecord7=newconn.Execute (newsql)
		
		if not newrecord7.bof then
			do while not newrecord7.eof
				application(newrecord7(0))="<br>用户--<font color=vbred>" & item & "</font>--已经被踢出!<br><br>" & application(newrecord7(0))
				newrecord7.movenext
			loop
		
		end if
		application(item)="***kickout***"
		
		Response.Write "用户<font color=vbred>" & item & "</font>已经被踢出聊天室!<br>"
	end if
	next
		
		newsql="select * from UserOnLine"
		set newrecord1=newconn.Execute (newsql)
			if newrecord1.bof then
				Response.Write ("目前没有线上用户!<br>")
			
			
	
%>

<p align="center" class="style1"><big><big><big>在线用户信息信息</big></big></big></p>
<center>
<table border="0" cellpadding="5" cellspacing="1" bgcolor="#5A8BCE"
  style="text-align: center; color: rgb(0,0,255)">
    <tr bgcolor="#E6F7FF">
      <td bgcolor="#E6F7FF"><span class="style1">是否Kick</span></td>
      <td><span class="style1">封ID</span></td>
      <td><span class="style1">封IP</span></td>
      <td><span class="style1">用户名</span></td>
      <td><span class="style1">呢称</span></td>
      <td><span class="style1">IP地址</span></td>
      <td><span class="style1">房间号</span></td>
      
    </tr>
</table>
</center>
<%
			else
			
%>
<p align="center" class="style1"><big><big><big>在线用户信息信息</big></big></big></p>
<form name="admin" method="POST" action="admin.asp" align="center">
<center>
<table border="0" cellpadding="5" cellspacing="1" bgcolor="#5A8BCE"
  style="text-align: center; color: rgb(0,0,255)">
    <tr bgcolor="#E6F7FF">
      <td><span class="style1">是否Kick</span></td>
      <td><span class="style1">封ID</span></td>
      <td><span class="style1">封IP</span></td>
      <td><span class="style1">用户名</span></td>
      <td><span class="style1">呢称</span></td>
      <td><span class="style1">IP地址</span></td>
      <td><span class="style1">房间号</span></td>
      
    </tr>
    
<%
	do while not newrecord1.eof 
%>
    <tr bgcolor="#FFFFFF">
      <td><input name="kUserID" type="checkbox" value="<% =newrecord1("UserID") %>"></td>
      <td><input name="cUserID" type="checkbox" value="<% =newrecord1("UserID") %>"></td>
      <td><input name="IpAdd" type="checkbox" value="<% =newrecord1("IpAdd") %>"></td>
      
      <td><a href="singleuser.asp?userid=<% =newrecord1("UserID") %>">
        <% =newrecord1("UserID") %></a></td>
      <td><% =newrecord1("NickName") %></td>
	  <td><% =newrecord1("IpAdd") %></td>
	  <td><% =newrecord1("RoomName") %></td>
    </tr>
<%
			newrecord1.movenext
			loop
			end if

%>
  </table>
  </center>
  
  <font><div align="center"><center><p>请输入帐号：
  <input name="Admin_UID"  type="text" class="smallInput" size="21">
  </p>
  </center></div>
  <div align="center"><center><p><font> 请输入密码：</font>
  <input name="Admin_PWD"  type="password" class="smallInput" size="21">
  </p>
  </center></div>
  <div align="center"><center><p><input  name="B1" type="submit" class="smallInput" value="提交">
  <input name="B2" type="reset" class="smallInput" value="重写">
  </p>
  </center></div>

</form>
  <center><a href="foreveruser.asp">永久用户管理</a></center>
  <center><a href="singleuser.asp">发送信息</a></center>

<% 
		else 
			Response.Write ("你没有权限进入!<br>")
		end if
	end if
else
%>

<form method="POST" action="admin.asp" name="check">
  <font><div align="center"><center><p>请输入帐号：
  <input name="Admin_UID"  type="text" class="smallInput" size="21">
  </p>
  </center></div>
  <div align="center"><center><p><font> 请输入密码：</font>
  <input name="Admin_PWD"  type="password" class="smallInput" size="21">
  </p>
  </center></div>
  <div align="center"><center><p><input  name="B1" type="submit" class="smallInput" value="提交">
  <input name="B2" type="reset" class="smallInput" value="取消">
  </p>
  </center></div>
</form>


<% 
end if
%>

</body>
</html>
💿 文件大小 71 K
👤 上传用户 spy0207
📂 所属分类书籍源码
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -