📄 admin_admin.asp
字号:
{
if (add.user.value=="")
{ alert("请填写您的 用户名称 ！\n\n必须>=2个字符（1个汉字）且必须<=20个字符（10个汉字）"); return false; }
if (add.realname.value=="")
{ alert("请填写您的真实姓名 ！\n\n必须为汉字！"); return false; }
if (add.pass.value=="" || reg.pass2.value=="")
{ alert("请填写您的 登陆密码 和 确认密码 ！\n\n必须>=4个字符且必须<=20个字符"); return false; }
else
{
if (add.pass.value != reg.pass2.value)
{ alert("登陆密码 和 确认密码 必须相同！"); return false; }
}
if (add.pass1.value=="")
{ alert("请填写您的 密码钥匙 ！\n\n必须>=4个字符且必须<=20个字符"); return false; }
}
-->
</script>
<br>
<table border=0 width='100%' cellspacing=0 cellpadding=2>
<form name=add action='admin_admin.asp?action=addok' method=post>
<tr><td align=center>用户名称：</td><td align='left'><input type=text name=user size=20 maxlength='20'> <font color='#ff0000'>*</font></td></tr>
<tr><td align=center>真实姓名：</td><td><input type=text name=realname size=20 maxlength=50> <font color='#ff0000'>*</font> </td></tr>
<tr><td align=center>登陆密码：</td><td><input type=password name=pass size=20 maxlength='20'> <font color='#ff0000'>*</font> </td></tr>
<tr><td align=center>确认密码：</td><td><input type=password name=pass2 size=20 maxlength='20'> <font color='#ff0000'>*</font> </td></tr>
<tr><td height='5'></td></tr>
<tr><td align=center><input type=submit value=' 现 在 添 加 ' onclick="return add_check()"></td><td><input type=reset value=' 重 新 填 写 '></td></tr>
</form>
</table><br><p>
<font color=red> 添加说明：</font>带*号的为必填项，请认真填写！用户名称可以是大小写英文字母（a~z、A~Z）、阿拉伯数字（0~9）、连接字符“-”、下划线“_”和汉字组成，首字符不能为连接字符“-”或下划线“_”。为了帐户安全，登陆密码和密码钥匙长度必须>=4且<=12个字符。</p>
<%end if%>
<%if request("action")="addok" then%>
<%
on error resume next
a_n=trim(request("user"))
realname=trim(request("realname"))
a_p=trim(request("pass"))
sql="select * from admin where a_n='"&a_n&"'"
set rs=server.createobject("adodb.recordset")
rs.open sql,db,1,3
if rs.eof and rs.bof then
rs.addnew
rs("a_n")=a_n
rs("realname")=realname
rs("a_p")=a_p
rs.update
else
response.write "<br><br><br><br><br><center><font color=red>对不起，该用户已经存在！请用另外一个用户名！</font><br><br><a href='admin_admin.asp?action=add'>返回重填</a></center>"
response.end
end if
%>
<%
if db.errors.count>0 then
response.write "<br><br><br><br><br><center><font color=red>保存过程中发生错误，必须重新填写！<br><br><a href='admin_admin.asp?action=add'>返回重填</a>"
else
response.write "<br><br><br><br><br><center><font color=red>恭喜你！你已经添加成功！<br><br><a href='admin_admin.asp?action=add'>返回继续添加</a>"
end if
%>
<%end if%>
<%if request("action")="del" then%>
<%
id=trim(request("id"))
sql="delete * from admin where id="&id
db.execute(sql)
if db.errors.count>0 then
response.write "<br><br><br><center><font color=red>删除过程中发生错误，必须重新删除！<br><br><a href='admin_admin.asp?action=view'>返回重新删除</a>"
else
response.write "<br><br><br><center><font color=red>恭喜你！你已经成功删除管理员！<br><br><a href='admin_admin.asp?action=view'>返回继续删除</a>"
end if
%>
<%end if%>
<%if request("action")="ask" then%>
<%
set rs=server.createobject("adodb.recordset")
sql="select * from user where ask='是' order by id desc"
rs.open sql,db,1,1
rs.pagesize=18
pagecount1=rs.pagecount
if request.querystring("pagenum")=0 or request.querystring("pagenum")="" then
pagenum=1
else
pagenum=request.querystring("pagenum")
rs.absolutepage=trim(request.querystring("pagenum"))
end if
%>
<table width="100%" border="0" align="center" cellspacing="0">
<tr align='center' bgcolor="#006699">
<td width="10%"><font color="#FFFFFF">I D</font></td>
<td width="35%" height="25" align='center'><font color="#FFFFFF">用户名</font></td>
<td width="35%"><font color="#FFFFFF">真实姓名</font></td>
<td width="10%"><font color="#FFFFFF">通 过</font></td>
<td width="10%"><font color="#FFFFFF">取 消</font></td>
</tr>
<%do while not rs.eof and i<18%>
<tr align='center'>
<td> <a href='admin_admin.asp?action=modify&id=<%=rs("id")%>' target='_blank'><%=rs("id")%></a></td>
<td><a href='admin_admin.asp?action=modify&id=<%=rs("id")%>' target='_blank'><%=rs("user")%></a></td>
<td><%=rs("realname")%></td>
<td><a href='admin_admin.asp?action=askok&id=<%=rs("id")%>'>通 过</a></td>
<td><a href='admin_admin.asp?action=askdel&id=<%=rs("id")%>'>取 消</a></td>
</tr>
<%
i=i+1
rs.movenext
loop
%>
</table>
<p align="center"><a href=admin_admin.asp?action=ask&pagenum=1>首页</a>
<%if pagenum>1 then%>
<a href=admin_admin.asp?action=ask&pagenum=<%=(pagenum-1)%>>上一页</a>
<%else%>
上一页
<%end if%>
<%if pagenum < trim(pagecount1) then%>
<a href=admin_admin.asp?action=ask&pagenum=<%=(pagenum+1)%>>下一页</a>
<%else%>
下一页
<%end if%> <a href=admin_admin.asp?action=ask&pagenum=<%=pagecount1%>>尾页</a>
</p>
<% rs.close %>
<%end if%>
<%
if request("action")="askok" then
id=trim(request("id"))
set rs=server.createobject("adodb.recordset")
sql="select * from user where id="&id
rs.open sql,db,1,3
a_n=rs("user")
a_p=rs("pass")
realname=rs("realname")
rs.close
sql="update user set ask='否' where id="&id
db.execute(sql)
sql="select * from admin where a_n='"&a_n&"'"
set rs=server.createobject("adodb.recordset")
rs.open sql,db,1,3
if rs.eof and rs.bof then
rs.addnew
rs("a_n")=a_n
rs("realname")=realname
rs("a_p")=a_p
rs.update
response.write "<br><br><br><br><br><center><font color=red>该用户审核通过,现已是管理员了！</font><br><br><a href='admin_admin.asp?action=view'>返回</a></center>"
rs.close
from=session("realname")
touser=a_n
content="恭喜你，你已经通过管理员的验证。你现在已经是管理员了，你可以通过管理后台对网站进行管理，谢谢你的支持！"
title="管理员验证信息！"
date="Now()"
sql="select * from message"
set rs=server.createobject("adodb.recordset")
rs.open sql,db,1,3
rs.addnew
rs("from")=from
rs("to")=touser
rs("content")=content
rs("date")=date
rs("title")=title
rs.update
rs.close
else
response.write "<br><br><br><br><br><center><font color=red>对不起，该用户已经是管理员了！</font><br><br><a href='admin_admin.asp?action=view'>返回</a></center>"
response.end
end if
end if
%>
<%
if request("action")="askdel" then
id=trim(request("id"))
set rs=server.createobject("adodb.recordset")
sql="select * from user where id="&id
rs.open sql,db,1,3
a_n=rs("user")
rs.close
sql="update user set ask='否' where id="&id
db.execute(sql)
response.write "<br><br><br><br><br><center><font color=red>你已经取消了该用户的申请！</font><br><br><a href='admin_admin.asp?action=view'>返回</a></center>"
from=session("realname")
touser=a_n
content="对不起，你没有通过管理员的验证，不过你可以继续申请！谢谢你的支持！！"
title="管理员验证信息！"
date="Now()"
sql="select * from message"
set rs=server.createobject("adodb.recordset")
rs.open sql,db,1,3
rs.addnew
rs("from")=from
rs("to")=touser
rs("content")=content
rs("date")=date
rs("title")=title
rs.update
rs.close
end if
%>
<% end if %>
</td>
<td align="left" width="4" background="images/sidebox-content-right.gif"><img src="images/sidebox-content-right.gif" width="4" height="1" alt=""></td>
</tr>
</table>
</td>
<table width="780" cellpadding="0" cellspacing="0" border="0" align="center">
<tr valign="top">
<td><img src="images/column-footer.gif" width="780" height="16" border="0" alt=""></td>
</tr>
</table>
<table width="780" cellpadding="0" cellspacing="0" border="0" align="center">
<tr valign="top">
<td><img src="images/footer.gif" width="780" height="20" border="0" alt=""></td>
</tr>
</table>
<!-- footer -->
<table width="780" cellpadding="0" cellspacing="0" border="0" align="center">
<tr align="center">
<td width="100%" colspan="3"><%
set rs=server.createobject("adodb.recordset")
sql="select top 1 copyright from system order by id desc"
rs.open sql,db,1,1
%>
<%=rs("copyright")%>
<% rs.close %>
</td>
</tr>
</table>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -