Category

Development Platform
Home > SourceCode/Document > Internet-Socket-Network > WEB(ASP,PHP,...) > View Code
ht_list.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

ht_list.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"-->
  7. <html>
  8. <head>
  9. <title>内容列表</title>
  10. <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
  11. <link href="include/style.css" rel="stylesheet" type="text/css">
  12. <style type="text/css">
  13. <!--
  14. input{
  15. height:22px;
  16. border:1px solid #BEBEBE;
  17. background-color:#FFF;
  18. padding-top: 2px;
  19. padding-right: 8px;
  20. padding-bottom: 0pt;
  21. padding-left: 3px;
  22. }
  23. -->
  24. </style>
  25. </head>
  26. <body>
  27. <script language="JavaScript" type="text/javascript">
  28. function checkall(form)
  29. {
  30. for (var i=0;i<form.elements.length;i++)    {
  31. var e = form.elements[i];
  32. if (e.name != 'chkall') e.checked = form.chkall.checked; 
  33. }
  34. }
  35. </script>
  36. <table width="94%" border="0" align="center" cellpadding="0" cellspacing="0">
  37.   <tr>
  38.   <td height="30" style="border: 1px solid #D0D4D9" bgcolor="#EEEEEE"><b>　当前栏目：&gt; </b>
  39. 圈子话题管理</td>
  40.   </tr>
  41. </table>
  42. <table width="95%" border="0" align="center" cellpadding="3" cellspacing="1">
  43.   <tr>
  44.     <td width="30%">
  45.       &nbsp;<input class="input_back" type="button" name="Submit" value="圈子管理"onclick="location.href='quan_list.asp'"/> 
  46.       <input class="input_back" type="button" name="Submit" value="圈子帖子"onclick="location.href='Ht_list.asp'"/>      
  47. <input class="input_back" type="button" name="Submit0" value="管理首页"onclick="location.href='main.asp'"/></td>
  48.     <td width="29%">
  49.       　</td>
  50. <form method="post" action="?" name="myKeyword">
  51.     <td width="40%">
  52.     <div align="right">搜索：
  53.         <input name="myKeyword" type="text" id="myKeyword" value="" style="WIDTH:30%" maxlength="50">
  54.         <input type="submit" name="Submit" value="搜索(S)" class="input_back">
  55.     </div>
  56.     </td>
  57.     </form>
  58.   </tr>
  60. <form action="deal_ht.asp?action=del" method=post name="thisform">
  61. <tr>
  62. <td colspan="3"><table width="100%" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="cecfce">
  63. <tr>
  64. <td width="6%" bgcolor="e7ebef" style="font-weight: bold"><div align="center">操作</div></td>  
  65. <td height="25" bgcolor="e7ebef" style="font-weight: bold" width="33%">主题</td>
  66. <td width="14%" bgcolor="e7ebef" style="font-weight: bold"><div align="center">
  67. 发布人</div></td>
  68. <td width="14%" bgcolor="e7ebef" style="font-weight: bold"><div align="center">
  69. 所属圈子</div></td>
  70. <td width="17%" bgcolor="e7ebef" style="font-weight: bold"><div align="center">日期</div></td>
  71. <td width="12%" bgcolor="e7ebef" style="font-weight: bold"><div align="center">操作</div></td>
  72. <%
  73. set rs=server.createobject("adodb.recordset")
  74. if request.querystring("id")="" then
  75. sql="select * from [quan_ht] where 1=1 "
  76. else
  77. sql="select * from [quan_ht] where qid="&request.querystring("id")&""
  78. end if
  80. if not (Trim(Request("pageID"))="" or isempty(Trim(Request("pageID"))) ) then
  81. sql=sql&" and pageID="&clng(Request("pageID"))&""
  82. end if
  84. if not (Trim(Request("myKeyword"))="" or isempty(Trim(Request("myKeyword"))) ) then
  85. sql=sql&" and (title like '%" & Trim(Request("myKeyword")) & "%' or content like  '%" & Trim(Request("myKeyword")) & "%')"
  86. end if
  88. sql=sql&" order by addtime desc"
  89. 'response.write sql
  90. 'response.End
  91. rs.open sql,conn,1,1
  93. dim a
  94. Set a=New PageList
  95. listLimit=15
  96. '模拟分页一页显示分页数
  97. pageLists=5
  98. '设置分页参数
  100. If rs.BOF or rs.EOF Then 
  101. %>
  102. </tr>
  103. <tr bgcolor="#C6E3F4">
  104.   <td height="28" colspan="6" align="center" bgcolor="#FFFFFF">暂无记录！</td>
  105.   </tr>
  106. <%
  107. else
  109. '分页循环开始
  110. totalList=rs.recordcount
  111. a.InitPara=array(totalList,listLimit,pageLists)
  112. a.PageList()
  113. rs.pagesize=listLimit
  114. page = request("page")
  115. If page="" Then
  116. page=1
  117. End If
  118. rs.absolutepage = page
  119. for i=1 to rs.pagesize
  120. %>
  121. <tr bgcolor="#ffffff" onMouseOver='this.style.backgroundColor="#F6f6f6"' 
  122. onMouseOut='this.style.backgroundColor="#FAFAFA"'>
  123. <td height="28" align="center"><input type="checkbox" name="ID" value="<%=Trim(rs("ID"))%>"></td>
  124. <td width="33%"><a href="../Gu_showtie.asp?guxing=<%=rs("id")%>"><%=Trim(rs("title"))%></a></td>
  125. <td align="center"><a href="../userinfo.asp?user=<%=rs("fbr")%>"><%=Trim(rs("fbr"))%></a></td>
  126. <%
  127. cid=rs("qid")
  128. set kurs=server.createobject("adodb.recordset")
  129.     csql="select * from quan where id="&cid
  130.     kurs.open csql,conn,1,3
  131. %>
  132. <% do while not kurs.eof%>
  133. <td align="center"><%=kurs("name")%></td>
  135. <td align="center"><%=Trim(rs("addtime"))%></td>
  136. <td align="center"> 
  137. <a href="deal_ht.asp?action=del&id=<%=rs("id")%>">删除</a></td>
  139. <%
  140.    kurs.movenext
  141.    loop
  142.    kurs.close
  143.    
  144. %>
  145. </tr>
  146. <%
  147. rs.movenext
  148. if rs.eof then exit for
  149. next
  151. end if
  152. %>
  153. </table></td>
  154.   </tr>
  155.   <tr>
  156.     <td colspan="3"><div align="right">
  157.           <input type=checkbox name=chkall value=on onClick="checkall(this.form)">全部选中<input type=submit name=action onClick="{if(confirm('确定删除选定的纪录吗?')){this.document.thisform.submit();return true;}return false;}" value="批量删除(D)" class="input_back">
  158.     </div></td>
  159.   </tr>
  160.   <tr>
  161.     <td colspan="3"><%=a.PageInfo%></td>
  162.   </tr>
  163.   <tr>
  164.     <td colspan="3"></td>
  165.   </tr>
  166.  </form>
  167. </table>
  168. <%
  169. rs.close
  170. set rs=nohing
  171. %>
  172. <hr/>
  173. <br>
  175. <p align="center"><!-- #include file="Ku_bottom.asp"--></p>
  176. </body>
  177. </html>