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

📄 admin_user.asp

📁 基于asp的网站管理系统,课直接下载使用,对初学者有恨大帮助,希望对大家有用
💻 ASP
📖 第 1 页 / 共 3 页
字号:
    <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>
  </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>
  </tr>
  <%
  i=i+1
  rs.movenext
  loop
  %>
</table>
<p align="center"><a href=admin_user.asp?action=modify&pagenum=1>首页</a>
              <%if pagenum>1 then%>
			<a href=admin_user.asp?action=modify&pagenum=<%=(pagenum-1)%>>上一页</a>
			<%else%>
			上一页
			<%end if%> 
			<%if pagenum < trim(pagecount1) then%>
			<a href=admin_user.asp?action=modify&pagenum=<%=(pagenum+1)%>>下一页</a>
			<%else%>
			下一页
			<%end if%> <a href=admin_user.asp?action=modify&pagenum=<%=pagecount1%>>尾页</a> 
</p>

<%end if%>


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

<%
id=trim(request("id"))
set rs=server.createobject("adodb.recordset")
sql="select * from user where id="&id
rs.open sql,db,1,3
%>

<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=="")
  { alert("请填写您的 密码 !"); return false; }
  if (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; }
  if (reg.qq.value=="")
  { alert("请填写您的 QQ !"); return false; }
}
-->
</script>
<br>
 <table border=0 width='100%' cellspacing=0 cellpadding=2>
  <form name=reg action='admin_user.asp?action=modifyok' method=post>
  <tr><td></td><td><img src=<%=rs("myphotourl")%> width=120 height=100 border=0 alt="我的头像"></td></tr>
  <tr><td height='10'> </td></tr>
  <tr><td align=right width=40%>用户名称:&nbsp;&nbsp;&nbsp;</td><td align='left'><input type=text name=user size=20 maxlength='20' readonly value=<%=rs("user")%>>&nbsp;<font color='#ff0000'>*</font></td></tr>
  <tr><td align=right width=40%>真实姓名:&nbsp;&nbsp;&nbsp;</td><td><input type=text name=realname size=20 maxlength=50 value=<%=rs("realname")%>>&nbsp;<font color='#ff0000'>*</font>&nbsp;</td></tr>
  <tr><td align=right width=40%>出生年日:&nbsp;&nbsp;&nbsp;</td><td><input type=text name=birthday size=20 maxlength=50 value=<%=rs("birthday")%>>&nbsp;<font color='#ff0000'>*</font>&nbsp;</td></tr>
  <tr><td align=right width=40%>登陆密码:&nbsp;&nbsp;&nbsp;</td><td><input type=password name=pass size=20 maxlength='20'>&nbsp;<font color='#ff0000'>*</font>&nbsp;</td></tr>
  <tr><td align=right width=40%>确认密码:&nbsp;&nbsp;&nbsp;</td><td><input type=password name=pass2 size=20 maxlength='20'>&nbsp;<font color='#ff0000'>*</font>&nbsp;</td></tr>
  <tr><td align=right width=40%>密码钥匙:&nbsp;&nbsp;&nbsp;</td><td><input type=text name=pass1 size=20 maxlength='20' readonly value=<%=rs("pass")%>>&nbsp;<font color='#ff0000'>*</font>&nbsp;</td></tr>
  <tr><td align=right width=40%>E - mail:&nbsp;&nbsp;&nbsp;</td><td><input type=text name=mail size=20 maxlength=50 value=<%=rs("mail")%>>&nbsp;<font color='#ff0000'>*</font>&nbsp;</td></tr>
  <tr><td align=right width=40%>电  话:&nbsp;&nbsp;&nbsp;</td><td><input type=text name=tel size=20 maxlength=50 value=<%=rs("tel")%>></td></tr>
  <tr><td align=right width=40%>Q  Q:&nbsp;&nbsp;&nbsp;</td><td><input type=text name=qq size=20 maxlength=50 value=<%=rs("qq")%>>&nbsp;<font color='#ff0000'>*</font>&nbsp;</td></tr>
  <tr><td align=right width=40%>个人简介:&nbsp;&nbsp;&nbsp;</td><td><input type=text name=info size=35 maxlength=80 value=<%=rs("info")%>></td></tr>
  <tr><td align=right width=40%>您的性别:&nbsp;&nbsp;&nbsp;</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=right width=40%>用户头像:&nbsp;&nbsp;&nbsp;</td><td><input type=text name=myphotourl size=40 maxlength=50 value=<%=rs("myphotourl")%>>&nbsp;&nbsp;<a href='upfile.asp' target=_blank>上传图片</a></td></tr>
  <tr><td height='10'></td></tr>
  <tr><td></td><td><input type=submit value=' 修 改 ' onclick="return reg_check()">&nbsp;&nbsp; <input type=button value=' 返 回 ' onClick="document.location='admin_user.asp?action=modify'"></td></tr>
  </form>
  </table>
<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")="modifyok" then%>
<%
user=trim(request("user"))
realname=trim(request("realname"))
birthday=trim(request("birthday"))
pass=trim(request("pass"))
if pass<>"" then
pass=pass
else
pass=request.cookies("user")("password")
end if
pass2=trim(request("pass2"))
mail=trim(request("mail"))
tel=trim(request("tel"))
qq=trim(request("qq"))
info=trim(request("info"))
sex=trim(request("sex"))
myphotourl=trim(request("myphotourl"))
if pass<>pass2 then
response.write "<br><br><br><center><font color=red>对不起,密码与确认密码不相同!<br><br><a href='admin_user.asp?action=modify'>返回重填</a>"
end if
if pass=pass2 then
sql="update user set realname='"&realname&"',birthday='"&birthday&"',pass='"&pass&"',mail='"&mail&"',tel="&tel&",qq="&qq&",info='"&info&"',sex='"&sex&"',myphotourl='"&myphotourl&"' where user='"&user&"'"
db.execute(sql)

if db.errors.count>0 then
response.write "<br><br><br><center><font color=red>保存过程中发生错误,必须重新填写!<br><br><a href='admin_user.asp?action=modify'>返回重填</a>"
else
response.cookies("user")("password")=pass
response.write "<br><br><br><center><font color=red>恭喜你!你已经成功修改资料!<br><br><a href='admin_user.asp?action=modify'>返回</a>"
end if
end if
%>
<%end if%>

<%if request("action")="del" 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>
    <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>
  </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=deldo&id=<%=rs("id")%>'>删除</a></td>
  </tr>
  <%
  i=i+1
  rs.movenext
  loop
  %>
</table>
<p align="center"><a href=admin_user.asp?action=del&pagenum=1>首页</a>
              <%if pagenum>1 then%>
			<a href=admin_user.asp?action=del&pagenum=<%=(pagenum-1)%>>上一页</a>
			<%else%>
			上一页
			<%end if%> 
			<%if pagenum < trim(pagecount1) then%>
			<a href=admin_user.asp?action=del&pagenum=<%=(pagenum+1)%>>下一页</a>
			<%else%>
			下一页
			<%end if%> <a href=admin_user.asp?action=del&pagenum=<%=pagecount1%>>尾页</a> 
</p>
<%end if%>



<%if request("action")="deldo" then%>
<%
id=trim(request("id"))
set rs=server.createobject("adodb.recordset")
sql="select * from user where id="&id
rs.open sql,db,1,3
%>

<br>
 <table border=0 width='100%' cellspacing=0 cellpadding=2>
  <form name=reg action='admin_user.asp?action=delok&id=<%=rs("id")%>' method=post>
  <tr><td></td><td><img src=<%=rs("myphotourl")%> width=120 height=100 border=0 alt="我的头像"></td></tr>
  <tr><td height='10'> </td></tr>
  <tr><td align=right width=40%>用户名称:&nbsp;&nbsp;&nbsp;</td><td align='left'><input type=text name=user size=20 maxlength='20' readonly value=<%=rs("user")%>>&nbsp;<font color='#ff0000'>*</font></td></tr>
  <tr><td align=right width=40%>真实姓名:&nbsp;&nbsp;&nbsp;</td><td><input type=text name=realname size=20 maxlength=50 value=<%=rs("realname")%>>&nbsp;<font color='#ff0000'>*</font>&nbsp;</td></tr>
  <tr><td align=right width=40%>出生年日:&nbsp;&nbsp;&nbsp;</td><td><input type=text name=birthday size=20 maxlength=50 value=<%=rs("birthday")%>>&nbsp;<font color='#ff0000'>*</font>&nbsp;</td></tr>
  <tr><td align=right width=40%>登陆密码:&nbsp;&nbsp;&nbsp;</td><td><input type=password name=pass size=20 maxlength='20'>&nbsp;<font color='#ff0000'>*</font>&nbsp;</td></tr>
  <tr><td align=right width=40%>确认密码:&nbsp;&nbsp;&nbsp;</td><td><input type=password name=pass2 size=20 maxlength='20'>&nbsp;<font color='#ff0000'>*</font>&nbsp;</td></tr>
  <tr><td align=right width=40%>密码钥匙:&nbsp;&nbsp;&nbsp;</td><td><input type=text name=pass1 size=20 maxlength='20' readonly value=<%=rs("pass")%>>&nbsp;<font color='#ff0000'>*</font>&nbsp;</td></tr>
  <tr><td align=right width=40%>E - mail:&nbsp;&nbsp;&nbsp;</td><td><input type=text name=mail size=20 maxlength=50 value=<%=rs("mail")%>>&nbsp;<font color='#ff0000'>*</font>&nbsp;</td></tr>
  <tr><td align=right width=40%>电  话:&nbsp;&nbsp;&nbsp;</td><td><input type=text name=tel size=20 maxlength=50 value=<%=rs("tel")%>></td></tr>
  <tr><td align=right width=40%>Q  Q:&nbsp;&nbsp;&nbsp;</td><td><input type=text name=qq size=20 maxlength=50 value=<%=rs("qq")%>>&nbsp;<font color='#ff0000'>*</font>&nbsp;</td></tr>
  <tr><td align=right width=40%>个人简介:&nbsp;&nbsp;&nbsp;</td><td><input type=text name=info size=35 maxlength=80 value=<%=rs("info")%>></td></tr>
  <tr><td align=right width=40%>您的性别:&nbsp;&nbsp;&nbsp;</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=right width=40%>用户头像:&nbsp;&nbsp;&nbsp;</td><td><input type=text name=myphotourl size=40 maxlength=50 value=<%=rs("myphotourl")%>></td></tr>
  <tr><td height='10'></td></tr>
  <tr><td></td><td><input type=submit value=' 删 除 '>&nbsp;&nbsp; <input type=button value=' 返 回 ' onClick="document.location='admin_user.asp?action=del'"></td></tr>
  </form>
  </table>
<%end if%>

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

<%
id=trim(request("id"))
sql="delete * from user 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_user.asp?action=del'>返回重新删除</a>"
else
response.write "<br><br><br><center><font color=red>恭喜你!你已经成功删除成员!<br><br><a href='admin_user.asp?action=del'>返回继续删除</a>"
end if
%>


<%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 + -