开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Java编程 > Jsp/Servlet > 查看源码
huser.asp
资源名称：blog.rar　[点击查看]
上传用户：syzzy1975
上传日期：2022-07-17
资源大小：670k
文件大小：6k
源码类别：

Jsp/Servlet

开发平台：

Java

huser.asp：源码内容
  1. <%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
  2. <%
  4. %><!--#include file="inc/config.asp"-->
  5. <!--#include file="inc/conn.asp"--> 
  6. <!--#include file="inc/chk.asp"--> 
  7. <%
  8. if session("rank")>1 then
  9. call Msgbox("对不起，您的权限不够！","Back","None")
  10. response.End
  11. end if
  12. %>
  14. <%
  15. '如果提交表单就建立Recoredset对像
  16. If NOT IsEmpty (Request.Form) then 
  17. set rs=server.CreateObject("adodb.recordset")
  18. '取得处理id号
  19. dim id
  20. id=request("Id")
  22. end if
  24. '添加后台用户
  25. If NOT IsEmpty (Request("AddHuser")) then
  26. rs.open "select * from admin",conn,1,3
  27. rs.addnew
  28. rs("admin")=trim(request("AddName"))
  29. rs("password")=md5(trim(request("AddPws")))
  30. rs("rank")=int(request("AddRank"))
  31. rs.update
  32. rs.close
  33. set rs=nothing
  34. call MsgBox("添加成功！","GoUrl","huser.asp")
  35. end If
  37. '删除后台用户
  38. If NOT IsEmpty (request("Del")) then
  39. '取得Id号
  40. conn.execute ("delete from admin where id="&id)
  41. call MsgBox("删除成功！","GoUrl","huser.asp")
  43. end If
  45. '修改后台用户资料
  46. if NOT IsEmpty (request("Modify")) then 
  47. '取得Id号
  48. rs.Open "select * from admin where id="&id,conn,1,3
  49. rs("admin")=trim(request("Name"))
  50. if trim(request("password"))<>"" then
  51. rs("password")=md5(trim(request("password")))
  52. end if
  53. rs("rank")=int(request("rank"))
  54. rs.Update
  55. rs.Close
  56. set rs=nothing
  57. call MsgBox("修改成功！","GoUrl","huser.asp")
  59. end if
  62. %>
  64. <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
  65. <html>
  66. <head>
  67. <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
  68. <title>406网络书店</title>
  69. <link href="../style.css" rel="stylesheet" type="text/css">
  72. </head>
  74. <body>
  75. <!--#include file="head.htm"-->
  77. <table width="780" border="0" align="center" cellpadding="0" cellspacing="0">
  78.   <tr>
  79.     <td width="219" align="left" valign="top"><br>
  80.       <!--#include file="menu.htm"-->
  82.         <br></td><td width="561" align="left" valign="top">      
  83.         <br>        <table border="0" cellpadding="0" cellspacing="0">
  84.           <tr>
  85.             <td><img src="../images/w.gif" width="18" height="18"></td>
  86.             <td style="color:#415373">后台用户管理</td>
  87.           </tr>
  88.         </table>        <br>
  89.           <table width="100%" border="0" align="center" cellpadding="0" cellspacing="2">
  90.             <tr align="center" bgcolor="#FFFFFF" class="bluefont" height="20">
  91.               <td width="23%">管理员</td>
  92.               <td width="21%">密 码</td>
  93.               <td width="31%">权 限</td>
  94.               <td width="25%">操 作</td>
  95.             </tr>
  96.             <%set rs=server.CreateObject("adodb.recordset")
  97.         rs.Open "select * from admin order by rank",conn,1,1
  98.         do while not rs.EOF%>
  99. <form name="form2" method="post" action="">
  100.             <tr align="center" bgcolor="#FFFFFF" height="20">
  101.               <td><input name="Name" type="text" id="Name" value="<%=trim(rs("admin"))%>" size="12"></td>
  102.               <td><input name="Pws" type="text" id="Pws" size="12"></td>
  103.               <td>
  104.                 <%select case rs("rank")
  105.                 case "1"
  106.                 response.Write "<input type=radio name=rank value=1 checked>管理&nbsp;<input name=rank type=radio value=2 >添加&nbsp;<input type=radio name=rank value=3>查看"
  107.                 case "2"
  108.                 response.Write "<input type=radio name=rank value=1>管理&nbsp;<input name=rank type=radio value=2 checked>添加&nbsp;<input type=radio name=rank value=3>查看"
  109. case "3"
  110. response.Write "<input type=radio name=rank value=1>管理&nbsp;<input name=rank type=radio value=2>添加&nbsp;<input type=radio name=rank value=3  checked>查看"
  111.                 end select%>
  112.                 <input name="Id" type="hidden" id="Id" value="<%=int(rs("id"))%>">
  113. </td>
  114.               <td><input name="Modify" type="submit" id="Modify" value="修改">
  115.                   <input name="Del" type="submit" id="Del" value="删除">
  116.               </td>
  117.             </tr>
  118. </form>
  119.             <%rs.movenext
  120.         loop
  121.         rs.close
  122.         set rs=nothing
  123.         %>
  124.           </table>
  125.           <br>          <br>          <table border="0" cellpadding="0" cellspacing="0">
  126.           <tr>
  127.             <td><img src="../images/w.gif" width="18" height="18"></td>
  128.             <td style="color:#415373">后台用户添加</td>
  129.           </tr>
  130.           </table>          <form name="form1" method="post" action="">
  132. <br>
  133.         <table width="100%" border="0" align="center" cellpadding="0" cellspacing="2">
  134.           <tr align="center" bgcolor="#FFFFFF" class="bluefont" height="20">
  135.             <td width="21%">管理员</td>
  136.             <td width="23%">密 码</td>
  137.             <td width="35%">权 限</td>
  138.             <td width="21%">操 作</td>
  139.           </tr>
  140.           <tr align="center" bgcolor="#FFFFFF">
  141.             <td><input name="AddName" type="text" id="AddName" size="12"></td>
  142.             <td><input name="AddPws" type="text" id="AddPws" size="12"></td>
  143.             <td><input type="radio" name="AddRank" value="1">
  144.       管理
  145.         <input name="AddRank" type="radio" value="2" checked>
  146.       添加
  147.       <input type="radio" name="AddRank" value="3">
  148.       查看</td>
  149.             <td><input name="AddHuser" type="submit" id="AddHuser" value="添加"></td>
  150.           </tr>
  151.         </table>
  152.           </form>          <br>          <table width="231" border="0" cellpadding="0" cellspacing="0">
  153.     <tr>
  154.       <td width="24"><img src="../images/w.gif" width="18" height="18"></td>
  155.       <td width="207" style="color:#415373">操作注意事项及说明</td>
  156.     </tr>
  157.           </table>          <br>          <table width="80%" border="0" align="center" cellpadding="5" cellspacing="0">
  158.     <tr>
  159.       <td><font color="#FF0000">·后台管理用户与前台用户毫无牵连。<br>
  160.         ·添加人员只能添加、修改、删除商品资料。<br>
  161.         ·查看人员可以管理商品评论和用户订单。<br>
  162.         ·管理员拥有本站所有管理权限。<br>
  163.         ·登录密码采用MD5不可逆转方式加密，如不修改密码，请留空。 <br>
  164.         <br>
  165.       </font></td>
  166.     </tr>
  167.           </table></td>
  168.   </tr>
  169. </table>
  170. <!--#include file="foot.htm"-->
  171. </body>
  172. </html>