📄 index.asp
字号:
mRs.update
mRs.close
Set mRs = nothing
Response.Write "<script>alert('登记成功\n\谢谢你对本群的支持！\n\请记住我们的永久域名：http://www.941gm.com');this.location.href='"&Url&"';</SCRIPT>"
Response.End
End If
'QQ审核
Case "validate"
Set mRs=Server.CreateObject("ADODB.RecordSet")
Sql="Select * from 5izt_Qq"
If Request("Qvalidate")="0" then
mRs.open "update 5izt_Qq Set Qq_validate='1' where Qq_Id="&Id,conn,1,3
Else
mRs.open "update 5izt_Qq Set Qq_validate='0' where Qq_Id="&Id,conn,1,3
Set mRs=nothing
End If
Response.Write "<script>alert('验证成功！');this.location.href='"&Url&"';</SCRIPT>"
Response.End
'删除QQ调用
Case "del"
checkadmin
If Id="" then
Response.Write "<script>alert('非法操作：ID参数不能为空！');this.location.href='"&Url&"';</SCRIPT>"
Response.End
End If
conn.execute("delete from [5izt_Qq] where Qq_Id="&Id)
Response.Write "<script>alert('QQ删除成功！');this.location.href='"&Url&"';</SCRIPT>"
Response.End
'修改管理员密码调用
Case "modpassed"
checkadmin
Admin_User=htmlencode(Request.form("Admin_User"))
Admin_Gps=md5(Request.form("Admin_Gps"))
Admin_Nps=md5(Request.form("Admin_Nps"))
Admin_Pass=md5(Request.form("Admin_Pass"))
Set mRs=conn.execute("select * from [5izt_Admin] where Admin_User='"&Session("5izt_Admin")&"' and Admin_Pass='"&Admin_Gps&"'")
If mRs.eof then
Response.Write "<script>alert('旧密码错误？');this.location.href='?action=modpass';</SCRIPT>"
Response.End
End If
conn.execute("update [5izt_Admin] Set Admin_User='"&Admin_User&"',Admin_Pass='"&Admin_Pass&"' where Admin_User='"&Session("5izt_Admin")&"'")
Session.Contents.Remove("5izt_Admin")
Response.Write "<script>alert('修改成功！\n\修改后的用户名为『"&Admin_User&"』\n\返回从新登陆！');this.location.href='"&Url&"';</SCRIPT>"
Response.End
'退出后台调用
Case "logout"
Session.Contents.Remove("5izt_Admin")
Response.Write "<script>alert('（退出管理成功）');this.location.href='"&Url&"';</SCRIPT>"
Response.End
'登陆后台调用
Case "logincheck"
Admin_User=htmlencode(Request.form("Admin_User"))
Admin_Pass=md5(Request.form("Admin_Pass"))
Set mRs=conn.execute("select * from [5izt_Admin] where Admin_User='"&Admin_User&"' and Admin_Pass='"&Admin_Pass&"'")
If not mRs.eof then
Session("5izt_Admin")=mRs("Admin_User")
Response.Write "<script>alert('（登录成功）！');this.location.href='"&Url&"';</SCRIPT>"
Response.End
Else
Response.Write "<script>alert('（请不要乱闯后台）');this.location.href='?action=login';</SCRIPT>"
Response.End
End If
'登陆页面
Case "login"
%>
<table border="0" cellpadding="1" cellspacing="1" style="border-collapse: collapse" width="260" bgcolor="#CCCCCC" align="center">
<tr>
<td bgcolor="F3F3F3">
<table border="0" cellpadding="0" style="border-collapse: collapse" width="100%">
<tr>
<td height="25"> · 管理登陆 ·</td>
</tr>
</table>
</td>
</tr>
<tr>
<td bgcolor="F3F3F3">
<table border="0" cellpadding="0" style="border-collapse: collapse" width="100%">
<form method="post" action="?action=logincheck" onSubmit="return Login(this);">
<tr>
<td width="80" height="30" align="center">管理员：</td>
<td><input type="text" name="Admin_User" class="input"></td>
</tr>
<tr>
<td height="30" align="center">密 码：</td>
<td><input type="password" name="Admin_Pass" class="input"></td>
</tr>
<tr>
<td height="40" colspan="2" align="center"><input type="submit" value=" 登录 " class="bmit"> <input type="reset" value=" 重置 " class="bmit"></td>
</tr>
</form>
</table>
</td>
</tr>
</table>
<%
'修改密码页面
Case "modpass"
checkadmin
%>
<table border="0" cellpadding="1" cellspacing="1" style="border-collapse: collapse" width="260" bgcolor="#CCCCCC" align="center">
<tr>
<td bgcolor="F3F3F3">
<table border="0" cellpadding="0" style="border-collapse: collapse" width="100%">
<tr>
<td height="25"> · 管理员帐号修改 ·</td>
</tr>
</table>
</td>
</tr>
<tr>
<td bgcolor="F3F3F3">
<table border="0" cellpadding="0" style="border-collapse: collapse" width="100%" bgcolor="#F3F3F3">
<form name="form2" method="post" action="?action=modpassed" onSubmit="return Modify_admin(this);">
<tr bgcolor="F3F3F3">
<td height="25" align="center" width="80">登录名：</td>
<td width="186"><input name="Admin_User" type="text" value="<% =Session("5izt_Admin") %>" maxlength="16" class="input"></td>
</tr>
<tr bgcolor="F3F3F3">
<td align="center">旧密码：</td>
<td><input name="Admin_Gps" type="password" maxlength="16" class="input"></td>
</tr>
<tr bgcolor="F3F3F3">
<td align="center">新密码：</td>
<td><input name="Admin_Nps" type="password" maxlength="16" class="input"></td>
</tr>
<tr bgcolor="F3F3F3">
<td align="center">确 认：</td>
<td><input name="Admin_Pass" type="password" maxlength="16" class="input"></td>
</tr>
<tr bgcolor="F3F3F3">
<td height="40" colspan="2" align="center"><input type="submit" value=" 修改 " class="bmit"> <input type="reset" value=" 重置 " class="bmit"></td>
</tr>
</form>
</table>
</td>
</tr>
</table>
<%
'列表页面调用
Case Else
%>
<table border="0" cellpadding="1" cellspacing="1" style="border-collapse: collapse" width="768" bgcolor="#CCCCCC" align="center">
<tr>
<td bgcolor="F3F3F3">
<table border="0" cellpadding="0" style="border-collapse: collapse" width="100%">
<tr>
<td height="25"> · 用户登记 ·</td>
</tr>
</table>
</td>
</tr>
<tr>
<td bgcolor="F3F3F3">
<table border="0" cellpadding="0" style="border-collapse: collapse" width="100%">
<tr>
<td>
<table border="0" cellpadding="3" style="border-collapse: collapse" width="100%">
<form method="post" action="?action=add" onSubmit="return Add(this);">
<tr>
<td align="center" width="50">QQ号：</div></td>
<td><input name="Qq_Qq" type="text" class="input"></td>
</tr>
<tr>
<td align="center">昵称：</td>
<td><input name="Qq_Name" type="text" class="input"></td>
</tr>
<tr>
<td></td>
<td><input name="Submit" type="submit" class="bmit" value="我要报到"></td>
</tr>
</form>
</table>
</td>
<td bgcolor="#FFFFFF">·因为本群人数爆满，为了让更多的人才来到本群，所以定期清理人员，故要求各位自行来报到，谢谢！<p>
·请报到时输入正确的QQ号和正确的昵称这样方便我们管理，谢谢你对本群的支持。</p>
</td>
</tr>
</table>
</td>
</tr>
</table>
<table border="0" cellpadding="1" cellspacing="1" style="border-collapse: collapse" width="768" bgcolor="#CCCCCC" align="center">
<tr>
<td bgcolor="F3F3F3">
<table border="0" cellpadding="0" style="border-collapse: collapse" width="100%">
<tr>
<td height="25"> · QQ群用户列表 ·</td>
<td align="right" style="padding-right:13px;">
<%
Response.Write"目前共有["
Set mRs=Server.CreateObject("ADODB.recordset")
Sql="Select count(*) from [5izt_Qq] where Qq_validate=0"
mRs.open Sql,conn,1,1
If not mRs.eof then
Response.Write "<font color=red>"&mRs(0)&"</font>"
End If
mRs.close
Set mRs = nothing
Response.Write"]为审核 "
If Session("5izt_Admin")<>"" then
Response.Write "欢迎管理员『 <font color='red'>"&Session("5izt_Admin")&"</font> 』"
Response.Write " <a href='?action=modpass' style='color:black'>修改帐号</a>"
Response.Write " <a href='?action=logout' style='color:black'>退出管理</a>"
Else
Response.Write"<a href='?action=login' style='color:black'>管理员登录</a>"
End If
%></td>
</tr>
</table>
</td>
</tr>
<tr>
<td bgcolor="F3F3F3">
<table border="0" cellpadding="0" style="border-collapse: collapse" width="100%">
<tr>
<td align="center" width="50"><b>用户ID</b></td>
<td align="center" width="200"><b>QQ号码</b></td>
<td align="center" width="200"><b>QQ昵称</b></td>
<td align="center"><b>登记时间</b></td>
<td align="center"> <% If Session("5izt_Admin")<>"" then Response.Write"<b>IP地址</b>" %></td>
</tr>
<%
If Session("5izt_Admin")<>"" then Sql="select top 500 * from [5izt_Qq] order by Qq_Id desc"
If Session("5izt_Admin")="" then Sql="select top 500 * from [5izt_Qq] where Qq_validate=1 order by Qq_Id desc"
Set mRs=Server.CreateObject("adodb.recordSet")
mRs.open sql,conn,1,1
If mRs.bof and mRs.eof then
Response.Write"<span>没有任何记录</span>"
Response.End
End If
do while not mRs.eof
%>
<tr>
<td align="center"><% = mRs("Qq_Id") %></td>
<td align="center"><% = mRs("Qq_Qq") %> <%
If Session("5izt_Admin")<>"" then
Response.Write"（<a href='?action=validate&Qq_Id="& mRs("Qq_Id") &"&Qvalidate="& mRs("Qq_validate") &"'>"
If mRs("Qq_validate")=1 then
Response.Write"<font color='#0099ff'>已审核</font>"
Else
Response.Write"未审核"
End If
Response.Write"</a>）"
Response.Write " <a href='?action=del&Qq_Id="&mRs("Qq_Id")&"'onclick=""return Del(this);"" style='color:red'>删除</a>"
End If
%></a></td>
<td align="center"><% =mRs("Qq_Name")%></td>
<td align="center"><% =mRs("Qq_Time")%></td>
<td align="center"><% If Session("5izt_Admin")<>"" then Response.Write"<font color='#FF6600'>"& mRs("Qq_Ip") &"</font>" %></td>
</tr>
<%
mRs.movenext
loop
mRs.close
Set mRs = nothing
conn.close
Set conn=nothing
Response.Write"</table></td></tr></table></td></tr></table>"
End Select
%>
<table border="0" cellpadding="0" style="border-collapse: collapse" width="778" align="center">
<tr>
<td height="1"></td>
</tr>
<tr>
<td bgcolor="#FF6600" height="5"></td>
</tr>
<tr>
<td bgcolor="#FFFFFF" align="center">Copyright © 2007 <a target="_blank" href="http://www.941gm.com">+++::941- ﹎毒_/↘Design ::+++</a> All Rights Reserved<br>
</td>
</tr>
</table>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -