Category

Development Platform
Home > SourceCode/Document > Internet-Socket-Network > WEB(ASP,PHP,...) > View Code
BBS_kind.asp
Package: pinke2010.rar　[view]
Upload User: pengwei803
Upload Date: 2021-02-10
Package Size: 3311k
Code Size: 4k
Category:

WEB(ASP,PHP,...)

Development Platform:

HTML/CSS

BBS_kind.asp：Code Content
  1. <!--#include file="../Ku_inc/Ku_sql.asp"-->
  2. <!--#include file="../Ku_inc/Ku_config.asp"-->
  3. <!--#include file="Ku_conn.asp"-->
  4. <!--#include file="../Ku_inc/Ku_md5.asp"-->
  5. <!--#include file="../Ku_inc/inc.asp"-->
  6. <!-- #include file="Session.asp"-->
  8. <html>
  10. <head>
  11. <meta http-equiv="Content-Language" content="zh-cn">
  12. <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
  13. <title>论坛分类</title>
  14. <link href="include/style.css" rel="stylesheet" type="text/css">
  15. <style type="text/css">
  16. <!--
  17. input{
  18. height:22px;
  19. border:1px solid #BEBEBE;
  20. background-color:#FFF;
  21. padding-top: 2px;
  22. padding-right: 8px;
  23. padding-bottom: 0pt;
  24. padding-left: 3px;
  25. }
  26. -->
  27. </style>
  28. </head>
  30. <body>
  32. <div align="center">
  34. <table border="0" width="95%" height="70" cellpadding="0" cellspacing="0"  >
  35. <tr >
  36. <td height="30" style="border: 1px solid #D0D4D9" bgcolor="#EEEEEE" >&nbsp;<b>当前栏目：</b>&gt; 论坛分类</td>
  37. </tr>
  38.     <tr><td height="30">
  39.  
  40. <input class="input_back" type="button" name="Submit1" value="管理首页"onclick="location.href='main.asp'"/></td></tr>
  41. </table>
  43. </div>
  44. <div align="center">
  46. <table border="0" width="95%"  cellpadding="3" cellspacing="10" style="border: 1px solid #D0D4D9">
  47. <tr bgcolor="#ffffff">
  48. <td height="30" bgcolor="#EEEEEE" colspan="3"><b>分 类 列 表　|</b> 
  49. <a href="bbs_kind.asp?action=add">添 加 分 类</a></td>
  50. </tr>
  51. <%
  52. set rs=server.CreateObject("adodb.recordset")
  53. sql="select * from ku_bbskind order by id desc"
  54. rs.open sql,conn,1,1
  55. if rs.eof then
  56. %>
  57. <tr style="border: 1px solid #D0D4D9"><td>没有分类</td></tr>
  58. <% else 
  59.   'response.write bmrs("name")
  60.   dim k
  61.   k=1
  62. %>
  63. <tr align="center" >
  64. <% do while not rs.eof%>
  65. <td width="30%" style="border: 1px solid #D0D4D9"><b><%=left(rs("name"),10)%></b>   [<a href="BBs_kind.asp?action=edit&id=<%=rs("id")%>">修改</a>] [<a href="BBs_kind.asp?action=del&id=<%=rs("id")%>">删除]</a> 
  66. </td>
  67. <% if k mod 3 =0 then%> 
  68. </tr><tr align="center" bgcolor="#ffffff">
  69. <% end if%><% k=k+1
  70.    rs.movenext
  71.    loop
  72. end if
  73. rs.close
  74. set rs=nothing
  75. %>
  76. <td height="30" style="border: 1px solid #D0D4D9" ></td>
  77. </tr>
  78. </table>
  80. </div>
  81. <%
  82. if request("action")="del" then
  83. id=Request.QueryString("id")
  84.     delsql="delete from ku_bbskind where id="&id
  85.     conn.execute(delsql)
  86.     conn.close
  87.     response.redirect"BBs_kind.asp"
  88.     end if
  89. %>
  90. <!---添加分类--->
  91. <% if request("action")="add" then%>
  92. <div align="center">
  94. <table border="0" width="96%" height="146" cellpadding="0" cellspacing="5"  >
  95.      <tr><td height="30">
  96.     
  97.     </td></tr>
  98. <tr >
  99. <td height="30"  bgcolor="#EEEEEE" style="border: 1px solid #D0D4D9">&nbsp;<b>当前操作：</b>&gt; 添加分类</td>
  100. </tr>
  101.     <tr><td height="66" style="border: 1px solid #D0D4D9">
  102.      <form method="POST" action="deal_bbs.asp?action=add">
  104. <p>　</p>
  105. <p align="center"><b>填写分类名称</b>：<input type="text" name="mingcheng" size="20"> <input type="submit" value="添 加" name="B1"> <input type="reset" value="重 置" name="B2"></p>
  106. </form>
  107.      </td></tr>
  108. </table>
  110. </div>
  111. <%
  112. end if
  113. if request("action")="edit" then
  114. id=request("id")
  115. set rs=server.createobject("adodb.recordset")
  116.     sql="select * from ku_bbskind where id="&id
  117.     rs.open sql,conn,1,3
  119. %>
  120. <!--->
  121. <!---修改分类-->
  122. <div align="center">
  124. <table border="0" width="96%" height="146" cellpadding="0" cellspacing="5"  >
  125.      <tr><td height="30">
  126.     
  127.     </td></tr>
  128. <tr >
  129. <td height="30"  bgcolor="#EEEEEE" style="border: 1px solid #D0D4D9">&nbsp;<b>当前操作：</b>&gt; 修改分类</td>
  130. </tr>
  131.     <tr><td height="66" style="border: 1px solid #D0D4D9">
  132.      <form method="POST" action="deal_bbs.asp?action=edit&id=<%=rs("id")%>">
  134. <p>　</p>
  135. <p align="center"><b>修改分类名称</b>：<input type="text" name="mingcheng" size="20" value="<%=rs("name")%>"> <input type="submit" value="修 改" name="B1" > <input type="reset" value="重 置" name="B2"></p>
  136. </form>
  137.      </td></tr>
  138. </table>
  140. </div>
  141. <% end if %>
  142. <!--->
  143. <p align="center"><!-- #include file="Ku_bottom.asp"--></p>
  144. </body>
  146. </html>