Category

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

WEB(ASP,PHP,...)

Development Platform:

HTML/CSS

Quan_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="32" style="border: 1px solid #D0D4D9" bgcolor="#EEEEEE" >&nbsp;<b>当前栏目：</b>&gt; 
  37. 圈子类型</td>
  38. </tr>
  39.     <tr><td height="38">
  40.       &nbsp;<input class="input_back" type="button" name="Submit" value="圈子管理"onclick="location.href='quan_list.asp'"/> 
  41.       <input class="input_back" type="button" name="Submit" value="圈子帖子"onclick="location.href='Ht_list.asp'"/>      
  42. <input class="input_back" type="button" name="Submit0" value="管理首页"onclick="location.href='main.asp'"/></td></tr>
  43. </table>
  45. </div>
  46. <div align="center">
  48. <table border="0" width="95%"  cellpadding="3" cellspacing="10" style="border: 1px solid #D0D4D9">
  49. <tr bgcolor="#ffffff">
  50. <td height="30" bgcolor="#EEEEEE" colspan="4"><b>分 类 列 表　|</b> 
  51. <a href="Quan_kind.asp?action=add">添 加 分 类</a></td>
  52. </tr>
  53. <%
  54. set rs=server.CreateObject("adodb.recordset")
  55. sql="select * from Quan_type order by id asc"
  56. rs.open sql,conn,1,1
  57. if rs.eof then
  58. %>
  59. <tr style="border: 1px solid #D0D4D9"><td>没有连接</td></tr>
  60. <% else 
  62.   dim k
  63.   k=1
  64. %>
  65. <tr align="center" >
  66. <% do while not rs.eof%>
  67. <td width="25%" style="border: 1px solid #D0D4D9"><b><%=left(rs("name"),6)%></b>   [<a href="Quan_kind.asp?action=edit&id=<%=rs("id")%>">修改</a>] [<a href="quan_kind.asp?action=del&id=<%=rs("name")%>">删除]</a> 
  68. </td>
  69. <% if k mod 4 =0 then%> 
  70. </tr><tr align="center" bgcolor="#ffffff">
  71. <% end if%><% k=k+1
  72.    rs.movenext
  73.    loop
  74. end if
  75. rs.close
  76. set rs=nothing
  77. %>
  78. <td height="30" style="border: 1px solid #D0D4D9" ></td>
  79. </tr>
  80. </table>
  82. </div>
  83. <%
  84. if request("action")="del" then
  85. id=Request.QueryString("id")
  87. set rs=server.createobject("adodb.recordset")
  88. sql="select * from quan where lb='"&id&"' "
  89. rs.open sql,conn,1,1
  90. if (rs.eof and rs.bof) then
  92.     delsql="delete from Quan_type where name='"&id&"'"
  93.     conn.execute(delsql)
  95.     conn.close
  96.     response.redirect"quan_kind.asp"
  97.     else
  98.            Response.Write "<script>alert(""此类下有圈子不能删除！"");location.href=""javascript:history.back()"";</script>"
  99.     end if
  100. end if
  101. %>
  102. <!---添加分类--->
  103. <% if request("action")="add" then%>
  104. <div align="center">
  106. <table border="0" width="96%" height="146" cellpadding="0" cellspacing="5"  >
  107.      <tr><td height="30">
  108.     
  109.     </td></tr>
  110. <tr >
  111. <td height="30"  bgcolor="#EEEEEE" style="border: 1px solid #D0D4D9">&nbsp;<b>当前操作：</b>&gt; 
  112. 添加分类</td>
  113. </tr>
  114.     <tr><td height="66" style="border: 1px solid #D0D4D9">
  115.      <form method="POST" action="deal_quan.asp?action=add_lb">
  117. <p>　</p>
  118. <p align="center"><b>填写分类名称</b>：<input type="text" name="mingcheng" size="20">
  120. <input type="submit" value="添 加" name="B1"> <input type="reset" value="重 置" name="B2"></p>
  121. </form>
  122.      </td></tr>
  123. </table>
  125. </div>
  126. <%
  127. end if
  128. if request("action")="edit" then
  129. id=request("id")
  130. set rs=server.createobject("adodb.recordset")
  131.     sql="select * from Quan_type where id="&id
  132.     rs.open sql,conn,1,3
  134. %>
  135. <!--->
  136. <!---修改分类-->
  137. <div align="center">
  139. <table border="0" width="96%" height="146" cellpadding="0" cellspacing="5"  >
  140.      <tr><td height="30">
  141.     
  142.     </td></tr>
  143. <tr >
  144. <td height="30"  bgcolor="#EEEEEE" style="border: 1px solid #D0D4D9">&nbsp;<b>当前操作：</b>&gt; 
  145. 修改分类</td>
  146. </tr>
  147.     <tr><td height="66" style="border: 1px solid #D0D4D9">
  148.      <form method="POST" action="deal_quan.asp?action=edit_lb&id=<%=rs("id")%>">
  150. <p>　</p>
  151. <p align="center"><b>修改分类名称</b>：<input type="text" name="mingcheng" size="20" value="<%=rs("name")%>">
  152. <input type="submit" value="修 改" name="B1"> <input type="reset" value="重 置" name="B2">
  153. </p>
  154. </form>
  155.      </td></tr>
  156. </table>
  158. </div>
  159. <% end if %>
  160. <!--->
  161. <p align="center"><!-- #include file="Ku_bottom.asp"--></p>
  162. </body>
  164. </html>