/admin/pf_yyhd.asp

https://github.com/hare1987/kaidun180 · ASP · 116 lines · 91 code · 5 blank · 20 comment · 0 complexity · 1dcd2bf134cefe18a4a6bcd271b740cf 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. <%
  6. If request.Form("submit") = "È·ÈÏÌí¼Ó" Then
  7. If request.Form("pf_link_name") = "" Then
  8. Call infoback("Ô¤Ô¼»î¶¯²»ÄÜΪ¿Õ£¡")
  9. End If
  10. 'If request.Form("pf_link_text") = "" Then
  11. 'Call infoback("¼òҪ˵Ã÷²»ÄÜΪ¿Õ£¡")
  12. 'End If
  13. 'If request.Form("content2") = "" Then
  14. 'Call infoback("ÄÚÈݲ»ÄÜΪ¿Õ£¡")
  15. 'End If
  16. 'If request.Form("pf_link_url") = "" Then
  17. 'Call infoback("Á´½ÓµØÖ·²»ÄÜΪ¿Õ£¡")
  18. 'End If
  19. 'If request.Form("pf_link_order") = "" Or Not IsNumeric(request.Form("pf_link_order")) Then
  20. 'Call infoback("ÅÅÐòÊý×Ö²»ÄÜΪ¿Õ£¡¶øÇÒ±ØÐëΪÊý×Ö£¡")
  21. 'End If
  22. Set rs = server.CreateObject("adodb.recordset")
  23. sql = "select * from pf_hdyy"
  24. rs.Open sql, conn, 1, 3
  25. rs.addnew
  26. rs("pf_link_name") = request.Form("pf_link_name")
  27. 'If request.Form("pf_uploadfile") = "" Then
  28. 'rs("pf_uploadfile") = "text"
  29. 'Else
  30. 'rs("pf_uploadfile") = request.Form("pf_uploadfile")
  31. 'End If
  32. 'rs("pf_link_style") = request.Form("pf_link_style")
  33. 'rs("pf_link_text") = request.Form("pf_link_text")
  34. 'rs("content") = request.Form("content2")
  35. rs.update
  36. Call close_rs
  37. set rsop = server.CreateObject("adodb.recordset")
  38. rsop.open "select * from pf_oprate",conn,1,3
  39. rsop.addnew
  40. rsop("pf_op_name") = session("pf_admin_name")
  41. rsop("pf_op_sources") = "Ôö¼ÓÔ¤Ô¼»î¶¯:"&request.Form("pf_link_name")
  42. rsop.update
  43. rsop.close
  44. set rsop = nothing
  45. Call close_conn
  46. Call infohref("Ìí¼Ó³É¹¦£¡", "pf_yyhd.asp")
  47. End If
  48. %>
  49. <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
  50. <html xmlns="http://www.w3.org/1999/xhtml">
  51. <head>
  52. <meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
  53. <title>¿­Ù¶ùͯÃÀÓïѧУ»Ó­Äú!</title>
  54. <link href="pf_style.css" rel="stylesheet" type="text/css" />
  55. </head>
  56. <body>
  57. <!--#include file="pf_top.asp"-->
  58. <div id="content">
  59. <!--#include file="pf_left.asp"-->
  60. <div id="right">
  61. <div class="right_title">
  62. <h1>Ô¤Ô¼»î¶¯Ñ¡Ïî</h1>
  63. </div>
  64. <div class="right_body">
  65. <table>
  66. <tr>
  67. <th width="200">Ô¤Ô¼»î¶¯</th>
  68. <th>Ð޸IJÙ×÷</th>
  69. </tr>
  70. <%
  71. Set rs = server.CreateObject("adodb.recordset")
  72. sql = "select * from pf_hdyy"
  73. rs.Open sql, conn, 1, 1
  74. Do While Not rs.EOF
  75. %>
  76. <tr align="center">
  77. <td><%=rs("pf_link_name")%></td>
  78. <td>[<a href="pf_yyhd_delete.asp?id=<%=rs("ID")%>&opname=<%=rs("pf_link_name")%>" onclick="return confirm('È·¶¨ÒªÉ¾³ý´Ë»î¶¯Âð£¿É¾³ýºó½«²»¿É»Ö¸´£¡')">ɾ³ý</a>]</td>
  79. </tr>
  80. <%
  81. rs.movenext
  82. Loop
  83. Call close_rs
  84. %>
  85. </table>
  86. </div>
  87. <div class="right_title">
  88. <h1>Ìí¼ÓÊ×Ò³»î¶¯ÐÂÎÅ</h1>
  89. </div>
  90. <div class="right_body">
  91. <table>
  92. <form name="pcfinal" method="post">
  93. <tr>
  94. <td width="9%" align="center">Ô¤Ô¼»î¶¯£º</td>
  95. <td width="91%"><input type="text" name="pf_link_name" size="60" />
  96. <span class="red">±ØÌî</span> </td>
  97. </tr>
  98. <tr>
  99. <td colspan="2" align="center">
  100. <input type="submit" name="submit" class="submit_button" value="È·ÈÏÌí¼Ó">
  101. </td>
  102. </tr>
  103. </form>
  104. </table>
  105. </div>
  106. </div>
  107. <div class="clear"></div>
  108. </div>
  109. <!--#include file="pf_bottom.asp"-->
  110. </body>
  111. </html>