/admin/pf_admin.asp

https://github.com/hare1987/kaidun180 · ASP · 184 lines · 179 code · 5 blank · 0 comment · 3 complexity · 596b8cce3ae71d7efcbadf87ab5e2345 MD5 · raw file

  1. <%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
  2. <!--#include file="pf_conn.asp"-->
  3. <!--#include file="pf_function.asp"-->
  4. <!--#include file="pf_session.asp"-->
  5. <!--#include file="pf_md5.asp"-->
  6. <%
  7. If request.Form("submit") = "Ìí¼Ó¹ÜÀíÔ±" Then
  8. Set rs = server.CreateObject("adodb.recordset")
  9. sql = "select * from pf_admin where pf_admin_name='"&request.Form("pf_admin_name")&"'"
  10. rs.Open sql, conn, 1, 1
  11. If Not rs.EOF Then
  12. Call close_rs
  13. Call close_conn
  14. Call infoback("ÒѾ­´æÔڴ˹ÜÀíÔ±£¡Çë¸ü»»Óû§Ãû£¡")
  15. End If
  16. If request.Form("pf_admin_name") = "" Then
  17. Call infoback("Óû§Ãû²»ÄÜΪ¿Õ£¡")
  18. End If
  19. If request.Form("pf_admin_password") = "" Then
  20. Call infoback("ÃÜÂë²»ÄÜΪ¿Õ£¡")
  21. End If
  22. If request.Form("pf_admin_password") <> request.Form("pf_admin_password_again") Then
  23. Call infoback("ÄúÁ½´ÎÊäÈëµÄÃÜÂë²»Ò»Ö£¡ÇëÖØÐÂÊäÈ룡")
  24. End If
  25. Set rs = server.CreateObject("adodb.recordset")
  26. sql = "select * from pf_admin"
  27. rs.Open sql, conn, 1, 3
  28. rs.addnew
  29. rs("pf_admin_name") = request.Form("pf_admin_name")
  30. rs("pf_admin_jb") = request.Form("pf_admin_jb")
  31. rs("pf_admin_password") = md5(request.Form("pf_admin_password"))
  32. rs("pf_admin_true_name") = request.Form("pf_admin_true_name")
  33. rs.update
  34. Call close_rs
  35. set rsop = server.CreateObject("adodb.recordset")
  36. rsop.open "select * from pf_oprate",conn,1,3
  37. rsop.addnew
  38. rsop("pf_op_name") = session("pf_admin_name")
  39. select case request.Form("pf_admin_jb")
  40. case 0
  41. pf_admin_jb = "¹ÜÀíÔ±"
  42. case 1
  43. pf_admin_jb = "²Ù×÷Ô±"
  44. case 2
  45. pf_admin_jb = "¹Û²ìÔ±"
  46. end select
  47. rsop("pf_op_sources") = "Ìí¼Ó" & pf_admin_jb & request.Form("pf_admin_name")
  48. rsop.update
  49. rsop.close
  50. set rsop = nothing
  51. Call close_conn
  52. Call infohref("¹ÜÀíÔ±Ìí¼Ó³É¹¦£¡", "pf_admin.asp")
  53. End If
  54. %>
  55. <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
  56. <html xmlns="http://www.w3.org/1999/xhtml">
  57. <head>
  58. <meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
  59. <title>¿­Ù¶ùͯÃÀÓïѧУ</title>
  60. <link href="pf_style.css" rel="stylesheet" type="text/css" />
  61. </head>
  62. <body>
  63. <!--#include file="pf_top.asp"-->
  64. <div id="content">
  65. <!--#include file="pf_left.asp"-->
  66. <div id="right">
  67. <div class="right_title">
  68. <h1>¹ÜÀíÔ±¹ÜÀí</h1>
  69. </div>
  70. <div class="right_body">
  71. <table class="table">
  72. <tr>
  73. <th width="40">ID</th>
  74. <th width="467">Óû§Ãû</th>
  75. <th width="288">¹ÜÀí¼±ð</th>
  76. <th width="150">ÕæÊµÐÕÃû</th>
  77. <th width="332">²Ù×÷</th>
  78. </tr>
  79. <%
  80. Set rs = server.CreateObject("adodb.recordset")
  81. sql = "select * from pf_admin order by ID asc"
  82. rs.Open sql, conn, 1, 1
  83. do while not rs.eof
  84. %>
  85. <tr align="center">
  86. <td><%=rs("ID")%></td>
  87. <td><%=rs("pf_admin_name")%></td>
  88. <td>
  89. <%
  90. select case rs("pf_admin_jb")
  91. case 0
  92. %>
  93. ¹ÜÀíÔ±
  94. <%case 1%>
  95. ²Ù×÷Ô±
  96. <%case 2%>
  97. ¹Û²ìÔ±
  98. <%End Select%>
  99. </td>
  100. <td><%=rs("pf_admin_true_name")%></td>
  101. <td>
  102. <%
  103. if session("pf_admin_name")<>"kaidun" then
  104. if rs("pf_admin_name")="kaidun" then
  105. %>
  106. [ÐÞ¸Ä][ɾ³ý]
  107. <%
  108. else
  109. %>
  110. [<a href="pf_admin_modify.asp?id=<%=rs("id")%>">ÐÞ¸Ä</a>][<a href="pf_admin_delete.asp?id=<%=rs("ID")%>&opname=<%=rs("pf_admin_name")%>"onclick="return confirm('È·¶¨ÒªÉ¾³ý´Ë¹ÜÀíÔ±Âð£¿É¾³ýºó½«²»¿É»Ö¸´£¡')">ɾ³ý</a>]
  111. <%
  112. end if
  113. else
  114. %>
  115. [<a href="pf_admin_modify.asp?id=<%=rs("id")%>">ÐÞ¸Ä</a>][<a href="pf_admin_delete.asp?id=<%=rs("ID")%>&opname=<%=rs("pf_admin_name")%>"onclick="return confirm('È·¶¨ÒªÉ¾³ý´Ë¹ÜÀíÔ±Âð£¿É¾³ýºó½«²»¿É»Ö¸´£¡')">ɾ³ý</a>]
  116. <%
  117. END IF
  118. %>
  119. </td>
  120. </tr>
  121. <%
  122. rs.movenext
  123. Loop
  124. %>
  125. </table>
  126. </div>
  127. <div class="right_title">
  128. <h1>¹ÜÀíÔ±¹ÜÀí</h1>
  129. </div>
  130. <div class="right_body">
  131. <table class="table">
  132. <form method="post" action="pf_admin.asp">
  133. <tr>
  134. <td width="80" align="center">Óû§ÐÕÃû£º</td>
  135. <td>
  136. <input name="pf_admin_name" type="text" size="40" maxlength="60" />
  137. <span class="red">±ØÌî</span> </td>
  138. </tr>
  139. <tr>
  140. <td align="center">ÕæÊµÐÕÃû£º</td>
  141. <td>
  142. <input name="pf_admin_true_name" type="text" size="40" maxlength="60" />
  143. </td>
  144. </tr>
  145. <tr>
  146. <td align="center">ÃÜÂ룺</td>
  147. <td>
  148. <input name="pf_admin_password" type="password" size="40" maxlength="16" />
  149. <span class="red">±ØÌî</span> </td>
  150. </tr>
  151. <tr>
  152. <td align="center">È·ÈÏÃÜÂ룺</td>
  153. <td><input name="pf_admin_password_again" type="password" size="40" maxlength="16" />
  154. </td>
  155. </tr>
  156. <tr>
  157. <td align="center">¹ÜÀíÔ±¼±ð£º</td>
  158. <td>
  159. <select name="pf_admin_jb" id="pf_admin_jb">
  160. <option value="0">¹ÜÀíÔ±</option>
  161. <option value="1">²Ù×÷Ô±</option>
  162. <option value="2" selected="selected">¹Û²ìÔ±</option>
  163. </select>
  164. </td>
  165. </tr>
  166. <tr align="center">
  167. <td colspan="2">
  168. <input name="submit" type="submit" class="submit_button" value="Ìí¼Ó¹ÜÀíÔ±" />
  169. </td>
  170. </tr>
  171. </form>
  172. </table>
  173. </div>
  174. </div>
  175. <div class="clear"></div>
  176. </div>
  177. <!--#include file="pf_bottom.asp"-->
  178. </body>
  179. </html>