/admin/pf_slogan.asp

https://github.com/hare1987/kaidun180 · ASP · 84 lines · 75 code · 3 blank · 6 comment · 0 complexity · 10de2b9899304c5d3a0e7a79decdc9db 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. call iderror
  7. If request.Form("submit") = "È·ÈÏÐÞ¸Ä" Then
  8. 'If request.Form("pf_news_name") = "" Then
  9. 'Call infoback("ÐÂÎÅÃû³Æ²»ÄÜΪ¿Õ£¡")
  10. 'End If
  11. 'If request.Form("pf_news_order") = "" Or Not IsNumeric(request.Form("pf_news_order")) Then
  12. ' Call infoback("ÅÅÐòÊý×Ö²»ÄÜΪ¿Õ£¬ÇÒ±ØÐëΪÊý×Ö£¡")
  13. ' End If
  14. If request.Form("content2") = "" Then
  15. Call infoback("ÄÚÈݲ»ÄÜΪ¿Õ£¡")
  16. End If
  17. Set rs = server.CreateObject("adodb.recordset")
  18. sql = "select * from pf_custom where id="&request.QueryString("id")&""
  19. rs.Open sql, conn, 1, 3
  20. rs("slogan") = request.Form("content2")
  21. rs.update
  22. Call close_rs
  23. set rsop = server.CreateObject("adodb.recordset")
  24. rsop.open "select * from pf_oprate",conn,1,3
  25. rsop.addnew
  26. rsop("pf_op_name") = session("pf_admin_name")
  27. rsop("pf_op_sources") = "ÅÜÂíµÆÐ޸ijɹ¦"
  28. rsop.update
  29. rsop.close
  30. set rsop = nothing
  31. Call close_conn
  32. Call infohref("Ð޸ijɹ¦£¡", "pf_slogan.asp?id=1")
  33. End If
  34. %>
  35. <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
  36. <html xmlns="http://www.w3.org/1999/xhtml">
  37. <head>
  38. <meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
  39. <title>¿­Ù¶ùͯÃÀÓïѧУ»Ó­Äú!</title>
  40. <link href="pf_style.css" rel="stylesheet" type="text/css" />
  41. </head>
  42. <body>
  43. <!--#include file="pf_top.asp"-->
  44. <div id="content">
  45. <!--#include file="pf_left.asp"-->
  46. <div id="right">
  47. <div class="right_title">
  48. <h1>ÅÜÂíµÆ¹ÜÀí</h1>
  49. </div>
  50. <div class="right_body">
  51. <table>
  52. <%
  53. set rs = server.CreateObject("adodb.recordset")
  54. sql = "select * from pf_custom where id="&request.QueryString("id")&""
  55. rs.open sql,conn,1,1
  56. If rs.eof Then
  57. Call infoback("²»´æÔÚ´ËÊý¾Ý")
  58. End If
  59. %>
  60. <form name="pcfinal" method="post">
  61. <tr>
  62. <td width="80" align="center">ÅÜÂíµÆÄÚÈÝ£º</td>
  63. <td><textarea name="content2" style="width:500px; height:20px;"><%=rs("slogan")%></textarea>
  64. </td>
  65. </tr>
  66. <tr>
  67. <td colspan="2" align="center"><input type="submit" name="submit" class="submit_button" value="È·ÈÏÐÞ¸Ä" /> </td>
  68. </tr>
  69. </form>
  70. <%
  71. Call close_rs
  72. Call close_conn
  73. %>
  74. </table>
  75. </div>
  76. </div>
  77. <div class="clear"></div>
  78. </div>
  79. <!--#include file="pf_bottom.asp"-->
  80. </body>
  81. </html>