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

📄 zhgl.asp

📁 柠檬树聊天服务器
💻 ASP
字号:
🔍 
<%Response.Expires=0
class1=Session("class")
if class1<10 then Response.Write "没有权限" : Response.end
%>
<html>
<head>
<title></title>
<style type="text/css">
<!--
body {font-size : 10.5pt;}
td {font-size : 10.5pt;}
input {font-size : 10.5pt;}
-->
</style>
</head>
<body topmargin="2" leftmargin="2" bgcolor="#FFFFFF">
<!--#include file="conn.asp"-->

<%Dim account,username
account=Request.Form("account")
IF account="删除30天" then
  
  Set rs = Conn.Execute("delete from Chatuser where DateDiff('d',last_t,now)>30 and times=1")
  rs.Close
 Response.write "<body bgcolor=#DBEEB5><p>&nbsp;</p><br><br><br><br><br><p align='center'>系统提示：<font color=#FF0000>已清除30天未使用的帐号</p>"
 Response.write "<p align='center'><a href='javascript:history.go(-1);'>点击这里返回</a></p></body>"
 Response.end
End IF

IF account="删除60天" then

  Set rs = Conn.Execute("delete from Chatuser where DateDiff('d',last_t,now)>60 and times<5")
  rs.Close
 Response.write "<body bgcolor=#DBEEB5><p>&nbsp;</p><br><br><br><br><br><p align='center'>系统提示：<font color=#FF0000>已清除60天仅使用5次的帐号</p>"
 Response.write "<p align='center'><a href='javascript:history.go(-1);'>点击这里返回</a></p></body>"
 Response.end
End IF

IF account="删除帐号" then
username=Request.Form("username1")
if username="" then
Response.write "<body bgcolor=#DBEEB5><p>&nbsp;</p><br><br><br><br><br><p align='center'>系统提示：<font color=#FF0000>请输入帐号</p>"
 Response.write "<p align='center'><a href='javascript:history.go(-1);'>点击这里返回</a></p></body>"
 Response.end
end if

  Set rs = Conn.Execute("delete from Chatuser where username='"&username&"'")
  rs.Close
 Response.write "<body bgcolor=#DBEEB5><p>&nbsp;</p><br><br><br><br><br><p align='center'>系统提示：<font color=#FF0000>已删除 <font color=blue>"&username&"</font> 的帐号</p>"
 Response.write "<p align='center'><a href='javascript:history.go(-1);'>点击这里返回</a></p></body>"
 Response.end
End IF

IF account="查看帐号" then
username=Request.Form("username2")
    
     Set rs = Conn.Execute( "select * from Chatuser where username='"&username&"'" )
     if rs.eof then
	rs.close
      Response.Write "<title>出错提示 - 柠檬树聊天室</title>"
      Response.write "<body bgcolor=#DBEEB5><br><br><br><br><br><p align='center'>出错提示：<font color=#FF0000>"&username&"</font> 找不到，一定是输错了</p>"
      Response.write "<p align='center'><a href='javascript:history.go(-1);'>点击这里进行修改</a></p></body>"
      Response.end
     else%>
<br><br><br><br>

<table border="1" cellspacing="0" bordercolorlight="#000000" bordercolordark="#FFFFFF" align="center" bgcolor="F0F0F0" cellpadding="4">
<tr align="center"> 
<td>
<table border="0" cellpadding="3">
<tr> 
<td>用 户 名:</td>
<td><font color=red><%=rs("username")%></font></td>
<td>等　级:</td>
<td><font color=red><%=rs("grade")%></font></td>
</tr>
<tr> 
<td>次　　数:</td>
<td><font color=red><%=rs("times")%></font></td>
<td>月积分:</td>
<td><font color=red><%=rs("month_score")%></font></td>
</tr>
<tr> 
<td>累积分数:</td>
<td><font color=red><%=rs("score")%></font></td>
<td colspan="2">　</td>
</tr>
<tr> 
<td>注册时间:</td>
<td colspan="3"><font color=red><%=rs("first_t")%></font></td>
</tr>
<tr> 
<td>注册时IP:</td>
<td colspan="3"><font color=red><%=rs("first_IP")%></font></td>
</tr>
<tr> 
<td>最后时间:</td>
<td colspan="3"><font color=red><%=rs("last_t")%></font></td>
</tr>
<tr> 
<td>最后IP:</td>
<td colspan="3"><font color=red><%=rs("last_IP")%></font></td>
</tr>
<tr> 
<td>地　　址:</td>
<td colspan="3"><font color=red><%=rs("url")%></font></td>
</tr>
<tr> 
<td>个人简介:</td>
<td colspan="3"><font color=red><%=rs("memo")%></font></td>
</tr>
</table>
</td>
</tr>
<tr><td>
</table>
<%
rs.close
 Response.end
end if

End IF


IF account="初 始 化" then
username=Request.Form("username3")
if username="" then
Response.write "<body bgcolor=#DBEEB5><p>&nbsp;</p><br><br><br><br><br><p align='center'>系统提示：<font color=#FF0000>请输入帐号</p>"
 Response.write "<p align='center'><a href='javascript:history.go(-1);'>点击这里返回</a></p></body>"
 Response.end
end if

Dim abc
abc="abc"

  Set rs = Conn.Execute("update Chatuser set userpassword='" &abc&"' where username='"&username&"'")
  rs.Close
 Response.write "<body bgcolor=#DBEEB5><p>&nbsp;</p><br><br><br><br><br><p align='center'><font color=blue>"&username&"</font> 的帐号密码初始化为 <font color=#FF0000>ccc</font> </p>"
 Response.write "<p align='center'><a href='javascript:history.go(-1);'>点击这里返回</a></p></body>"
 Response.end
End IF

IF account="帐号改名" then

Dim oldusername
oldusername=Request.Form("username4")
username=Request.Form("username5")
if oldusername="" or username="" then
Response.write "<body bgcolor=#DBEEB5><p>&nbsp;</p><br><br><br><br><br><p align='center'>系统提示：<font color=#FF0000>请输入帐号</p>"
 Response.write "<p align='center'><a href='javascript:history.go(-1);'>点击这里返回</a></p></body>"
 Response.end
end if

Set rs = Conn.Execute("Update chatuser set username='"&username&"' where username='"&oldusername&"'")
	rs.Close

Response.write "<body bgcolor=#DBEEB5><p>&nbsp;</p><br><br><br><br><br><p align='center'>系统提示：<font color=#FF0000>帐号修改成功！</p>"
 Response.write "<p align='center'><a href='javascript:history.go(-1);'>点击这里返回</a></p></body>"
 Response.end
End IF

IF account="管理帐号" then
 Response.redirect("adminlist.asp")
End IF

%>

<form method="POST" action="zhgl.asp">
<br>
  <table width="90%" border="1" cellspacing="0" bordercolorlight="#000000" bordercolordark="#FFFFFF" cellpadding="3" bgcolor="E0E0E0" align="center">
    <tr align="center">
      <td width="100%" height="20" bgcolor="#CCFFCC" colspan="3"><font
      color="#FF0000">帐号管理</font></td>
    </tr>
    <tr>
      <td width="50%" height="45" bgcolor="#F0F0F0">删除30天内只使用一次的帐号</td>
<td width="40%">&nbsp;</td>
      <td width="10%" align="center"><input type="submit" value="删除30天" name="account" style="background-color: FFCCFF"></td>
    </tr>
   <tr>
      <td height="45" bgcolor="#F0F0F0">删除60天内只使用5次的帐号</td>
<td>&nbsp;</td>
      <td align="center"><input type="submit" value="删除60天" name="account" style="background-color: FFCCFF"></td>
    </tr>
   <tr>
      <td height="45" bgcolor="#F0F0F0">删除指定帐号</td>
<td><input type="text" name="username1" size="12" maxlength="12"></td>
      <td align="center"><input type="submit" value="删除帐号" name="account" style="background-color: FFCCFF"></td>
    </tr>
   <tr>
      <td height="45" bgcolor="#F0F0F0">查看帐号详细情况</td>
<td><input type="text" name="username2" size="12" maxlength="12"></td>
      <td align="center"><input type="submit" value="查看帐号" name="account" style="background-color: FFCCFF"></td>
    </tr>
   <tr>
      <td height="45" bgcolor="#F0F0F0">初始化帐号密码（ccc）</td>
<td><input type="text" name="username3" size="12" maxlength="12"></td>
      <td align="center"><input type="submit" value="初 始 化" name="account" style="background-color: FFCCFF"></td>
    </tr>
   <tr>
      <td height="45" bgcolor="#F0F0F0">帐号改名</td>
<td>原帐号：<input type="text" name="username4" size="12" maxlength="20">
<br>现帐号：<input type="text" name="username5" size="12" maxlength="20"></td>
      <td align="center"><input type="submit" value="帐号改名" name="account" style="background-color: FFCCFF"></td>
    </tr>
   <tr>
      <td height="45" bgcolor="#F0F0F0">列出管理员帐号</td>
<td>&nbsp;</td>
      <td align="center"><a href="adminlist.asp">点这里列出管理帐号</a></td>
    </tr>
</table>
</form>
</body>
</html>

⌨️ 快捷键说明

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