admin_user.asp

基于asp的网站管理系统,课直接下载使用,对初学者有恨大帮助,希望对大家有用

<table border="0" cellpadding="0" cellspacing="0" width="150">
<tr valign="top">
<td align="left" width="4" background="images/sidebox-content-left.gif"><img src="images/sidebox-content-left.gif" width="4" height="1" alt=""></td>
<td width="142" bgcolor="#99CCFF">
<table border="0" cellpadding="4" cellspacing="0" width="100%">
<TR><TD>
· <a href="gbook.asp">留言管理</a><br>
· <a href="admin_message.asp?action=view">消息管理</a><br>
· <a href="admin_site.asp?action=view">友情连接</a><br>
</TD></TR></TABLE></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>
<table border="0" cellpadding="0" cellspacing="0" width="150">
<tr>
<td align="left" width="150" height="9"><img src="images/sidebox-bottom.gif" width="150" height="9" alt=""></td>
</tr>
</table>

<table border="0" cellpadding="0" cellspacing="0" width="150">
<tr>
<td align="left" width="150" height="10"><img src="images/sidebox-title-top.gif" width="150" height="10" alt=""></td>
</tr>
</table>

<table border="0" cellpadding="0" cellspacing="0" width="150">
<tr>
<td align="left" width="5" background="images/sidebox-title-left.gif"><img src="images/sidebox-title-left.gif" width="5" height="16" alt=""></td>
<td align="center" background="images/title-bg.gif" bgcolor="#99CCFF" width="140"><font color="#363636"><b>※班级系统管理※</b></font></td>
<td align="left" width="5" background="images/sidebox-title-right.gif"><img src="images/sidebox-title-right.gif" width="5" height="16" alt=""></td>
</tr>
</table>

<table border="0" cellpadding="0" cellspacing="0" width="150">
<tr>
<td align="left" width="150" height="7"><img src="images/sidebox-title-bottom.gif" width="150" height="7" alt=""></td>
</tr>
</table>

<table border="0" cellpadding="0" cellspacing="0" width="150">
<tr valign="top">
<td align="left" width="4" background="images/sidebox-content-left.gif"><img src="images/sidebox-content-left.gif" width="4" height="1" alt=""></td>
<td width="142" bgcolor="#99CCFF">
<table border="0" cellpadding="4" cellspacing="0" width="100%">
<TR><TD>
· <a href="admin_system.asp?action=set">系统配置</a><br>
· <a href="admin_login.asp?action=out">退出管理</a><br>
</TD></TR></TABLE></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>
<table border="0" cellpadding="0" cellspacing="0" width="150">
<tr>
<td align="left" width="150" height="9"><img src="images/sidebox-bottom.gif" width="150" height="9" alt=""></td>
</tr>
</table>



</td>
<td width="100%"><table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr>
<td align="left" width="4" height="10"><img src="images/a1.gif" width="4" height="10" alt=""></td>
<td height="10" background="images/a2.gif"><img height="10"></td>
<td align="right" width="4" height="10"><img src="images/a3.gif" width="4" height="10" alt=""></td>
</tr>
</table>

<table border="0" cellpadding="0" cellspacing="0" bgcolor="#99CCFF" width="100%">
<tr>
<td align="left" width="5" background="images/sidebox-title-left.gif"><img src="images/sidebox-title-left.gif" width="5" height="16" alt=""></td>
<td width="100%" background="images/title-bg.gif" align="center"><font color="#363636"><a href="admin_index.asp"><b>※ 成 员 管 理 ※</b></a></font></td>
<td align="left" width="5" background="images/sidebox-title-right.gif"><img src="images/sidebox-title-right.gif" width="5" height="16" alt=""></td>
</tr>
</table>
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr>
<td align="left" width="4" height="7"><img src="images/b1.gif" width="4" height="7" alt=""></td>
<td height="7" background="images/b2.gif"><img  height="7"></td>
<td align="right" width="4" height="7"><img src="images/b3.gif" width="4" height="7" alt=""></td>
</tr>
</table>

<table border="0" cellpadding="0" cellspacing="0" bgcolor="#99CCFF" width="100%" height="590">
<tr>
<td align="left" width="4" background="images/sidebox-content-left.gif"><img src="images/sidebox-content-left.gif" width="4" height="1" alt=""></td>
<td bgcolor="#99CCFF" valign='top'>
<%
if session("admin")="" then
response.write "<br><br><br><br><center><font color=red>你还没有登录本站呢。不能进入管理后台！！</font><br><br>请先登录再进入管理后台！！谢谢合作！！</center>"
end if
%>
<%if session("admin")<>"" then%>
<%if request("action")="" then%>
<center><br><br><br><Font color=red size=+2>请选择右边的菜单进行管理。谢谢合作。</font></center>
<%end if%>

<%if request("action")="view" then%>

<%
set rs=server.createobject("adodb.recordset") 
sql="select * from user order by id desc"
rs.open sql,db,1,1
dim pagenum
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='left' bgcolor="#006699"> 
    <td width="10%" align='center'><font color="#FFFFFF">I D</font></td>
    <td width="25%" height="25" align='left'><font color="#FFFFFF">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;用户昵称</font></td>
    <td width="20%"><font color="#FFFFFF">真实姓名</font></td>
    <td width="15%"><font color="#FFFFFF">Q  Q</font></td>
    <td width="15%" align=center><font color="#FFFFFF">修改</font></td>
    <td width="15%" align=left><font color="#FFFFFF">删除</font></td>
  </tr>
  <%do while not rs.eof and i<25%>
  <tr align='left'>
    <td align='center'>&nbsp;&nbsp;<a href='txl.asp?id=<%=rs("id")%>' target='_blank'><%=rs("id")%></a></td>
    <td align='left'><img src='images/arrow2.gif' border='0'>&nbsp;&nbsp;&nbsp;&nbsp;<a href='txl.asp?id=<%=rs("id")%>' target='_blank'><%=rs("user")%></a></td>
    <td><%=rs("realname")%></td>
    <td><%=rs("qq")%></td>
    <td align='center'><a href='admin_user.asp?action=modifydo&id=<%=rs("id")%>'>修改</a></td>
    <td><a href='admin_user.asp?action=deldo&id=<%=rs("id")%>'>删除</a></td>
  </tr>
  <%
  i=i+1
  rs.movenext
  loop
  %>
</table>
<p align="center"><a href=admin_user.asp?action=view&pagenum=1>首页</a>
              <%if pagenum>1 then%>
			<a href=admin_user.asp?action=view&pagenum=<%=(pagenum-1)%>>上一页</a>
			<%else%>
			上一页
			<%end if%> 
			<%if pagenum < trim(pagecount1) then%>
			<a href=admin_user.asp?action=view&pagenum=<%=(pagenum+1)%>>下一页</a>
			<%else%>
			下一页
			<%end if%> <a href=admin_user.asp?action=view&pagenum=<%=pagecount1%>>尾页</a> 
</p>
<%end if%>

<%if request("action")="add" then%>
<script language=javascript>
<!--
function reg_check()
{
  if (reg.user.value=="")
  { alert("请填写您的 用户名称 ！\n\n必须>=2个字符（1个汉字）且必须<=20个字符（10个汉字）"); return false; }
  if (reg.realname.value=="")
  { alert("请填写您的真实姓名 ！\n\n必须为汉字！"); return false; }
  if (reg.pass.value=="" || reg.pass2.value=="")
  { alert("请填写您的 登陆密码 和 确认密码 ！\n\n必须>=4个字符且必须<=20个字符"); return false; }
  else
  {
    if (reg.pass.value != reg.pass2.value)
    { alert("登陆密码 和 确认密码 必须相同！"); return false; }
  }
  if (reg.pass1.value=="")
  { alert("请填写您的 密码钥匙 ！\n\n必须>=4个字符且必须<=20个字符"); return false; }
  if (reg.mail.value=="")
  { alert("请填写您的 Email ！"); return false; }
}
-->
</script>
<br>
 <table border=0 width='100%' cellspacing=0 cellpadding=2>
  <form name=reg action='admin_user.asp?action=addok' method=post>
  <tr><td align=center>用户名称：</td><td align='left'><input type=text name=user size=20 maxlength='20'>&nbsp;<font color='#ff0000'>*</font></td></tr>
  <tr><td align=center>真实姓名：</td><td><input type=text name=realname size=20 maxlength=50>&nbsp;<font color='#ff0000'>*</font>&nbsp;</td></tr>
  <tr><td align=center>出生年日：</td><td><input type=text name=birthday size=20 maxlength=50>&nbsp;<font color='#ff0000'>*</font>&nbsp;</td></tr>
  <tr><td align=center>登陆密码：</td><td><input type=password name=pass size=20 maxlength='20'>&nbsp;<font color='#ff0000'>*</font>&nbsp;</td></tr>
  <tr><td align=center>确认密码：</td><td><input type=password name=pass2 size=20 maxlength='20'>&nbsp;<font color='#ff0000'>*</font>&nbsp;</td></tr>
  <tr><td align=center>密码钥匙：</td><td><input type=text name=pass1 size=20 maxlength='20'>&nbsp;<font color='#ff0000'>*</font>&nbsp;</td></tr>
  <tr><td align=center>E - mail：</td><td><input type=text name=mail size=20 maxlength=50>&nbsp;<font color='#ff0000'>*</font>&nbsp;</td></tr>
  <tr><td align=center>电　　话：</td><td><input type=text name=tel size=20 maxlength=50></td></tr>
  <tr><td align=center>Q    Q：</td><td><input type=text name=qq size=20 maxlength=50></td></tr>
  <tr><td align=center>个人简介：</td><td><input type=text name=info size=35 maxlength=80 value='这个人很懒，什么都没留下！'></td></tr>
  <tr><td align=center>您的性别：</td><td>&nbsp;<input type=radio name=sex value='男' checked>&nbsp;男&nbsp;&nbsp;&nbsp;<input type=radio name=sex value='女'>&nbsp;女&nbsp;&nbsp;<font color='#ff0000'>*</font>&nbsp;</td></tr>
    <tr><td align=center>用户头像：</td><td><input type=text name=myphotourl size=35 maxlength=80 value='http://'>&nbsp;&nbsp;<a href='upfile.asp' target=_blank>上传图片</a></td></tr>
  <tr><td height='5'></td></tr>
  <tr><td align=center><input type=submit value=' 现 在 添 加 ' onclick="return reg_check()"></td><td><input type=reset value=' 重 新 填 写 '></td></tr>
  </form>
  </table><br><p>
<font color=red>&nbsp;&nbsp;&nbsp;添加说明：</font>带*号的为必填项，请认真填写！用户名称可以是大小写英文字母（a~z、A~Z）、阿拉伯数字（0~9）、连接字符“-”、下划线“_”和汉字组成，首字符不能为连接字符“-”或下划线“_”。为了帐户安全，登陆密码和密码钥匙长度必须>=4且<=12个字符。密码钥匙为用来找回密码之用。出生年日格式为：19xx年xx月xx日，或19xx-xx-xx。用户头像地址前必须加http://。</p>
<%end if%>

<%if request("action")="addok" then%>
<%
on error resume next
user=trim(request("user"))
realname=trim(request("realname"))
pass=trim(request("pass"))
pass1=trim(request("pass1"))
mail=trim(request("mail"))
tel=trim(request("tel"))
qq=trim(request("qq"))
birthday=trim(request("birthday"))
info=trim(request("info"))
sex=trim(request("sex"))
myphotourl=trim(request("myphotourl"))
sql="select * from user where user='"&user&"'"
set rs=server.createobject("adodb.recordset")
rs.open sql,db,1,3

    if rs.eof and rs.bof then
      rs.addnew
      rs("user")=user
      rs("realname")=realname
      rs("pass")=pass
      rs("pass1")=pass1
      rs("birthday")=birthday
      rs("mail")=mail
      rs("qq")=qq
      rs("tel")=tel
      rs("info")=info
      rs("sex")=sex
      rs("myphotourl")=myphotourl
      rs.update
    else
   response.write "<br><br><br><br><br><center><font color=red>对不起，该用户已经存在！请用另外一个用户名！</font><br><br><a href='admin_user.asp?action=add'>返回重填</a></center>"
    end if
%>
<%
if db.errors.count>0 then
response.write "<br><br><br><br><br><center><font color=red>保存过程中发生错误，必须重新填写！<br><br><a href='admin_user.asp?action=add'>返回重填</a>"
else
response.write "<br><br><br><br><br><center><font color=red>恭喜你！你已经添加成功！<br><br><a href='admin_user.asp?action=add'>返回继续添加</a>"
end if
%>
<%end if%>

<%if request("action")="modify" then%>

<%
set rs=server.createobject("adodb.recordset") 
sql="select * from user 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='left' bgcolor="#006699"> 
    <td width="10%" align='center'><font color="#FFFFFF">I D</font></td>
    <td width="25%" height="25" align='left'><font color="#FFFFFF">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;用户昵称</font></td>