Category

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

Pinke_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.       <input class="input_back" type="button" name="Submit" value="拼客分类"onclick="location.href='pinke_kind.asp'"/>      
  46. <input class="input_back" type="button" name="Submit1" value="添加拼客"onclick="location.href='Pinke_add.asp'"/>
  47. <input class="input_back" type="button" name="Submit0" value="管理首页"onclick="location.href='main.asp'"/></td>
  48.     <td width="30%">
  49.      <p align="center">　</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_pinke.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="30" bgcolor="e7ebef" style="font-weight: bold"><div align="center">操作</div></td>  
  65. <td height="25" bgcolor="e7ebef" style="font-weight: bold">标题</td>
  66. <td width="125" bgcolor="e7ebef" style="font-weight: bold"><div align="center">
  67. 拼客分类</div></td>
  68. <td width="125" bgcolor="e7ebef" style="font-weight: bold"><div align="center">日期</div></td>
  69. <td width="80" bgcolor="e7ebef" style="font-weight: bold"><div align="center">操作</div></td>
  70. <%
  71. set rs=server.createobject("adodb.recordset")
  72. if request.querystring("id")="" then
  73. sql="select * from Gu_pinke where 1=1"
  74. else
  75. sql="select * from Gu_pinke where pkind="&request.querystring("id")&" and 1=1"
  76. end if
  78. if not (Trim(Request("pageID"))="" or isempty(Trim(Request("pageID"))) ) then
  79. sql=sql&" and pageID="&clng(Request("pageID"))&""
  80. end if
  82. if not (Trim(Request("myKeyword"))="" or isempty(Trim(Request("myKeyword"))) ) then
  83. sql=sql&" and (title like '%" & Trim(Request("myKeyword")) & "%' or content like  '%" & Trim(Request("myKeyword")) & "%')"
  84. end if
  86. sql=sql&" order by addtime desc"
  87. 'response.write sql
  88. 'response.End
  89. rs.open sql,conn,1,1
  91. dim a
  92. Set a=New PageList
  93. listLimit=15
  94. '模拟分页一页显示分页数
  95. pageLists=5
  96. '设置分页参数
  98. If rs.BOF or rs.EOF Then 
  99. %>
  100. </tr>
  101. <tr bgcolor="#C6E3F4">
  102.   <td height="28" colspan="6" align="center" bgcolor="#FFFFFF">暂无记录！</td>
  103.   </tr>
  104. <%
  105. else
  107. '分页循环开始
  108. totalList=rs.recordcount
  109. a.InitPara=array(totalList,listLimit,pageLists)
  110. a.PageList()
  111. rs.pagesize=listLimit
  112. page = request("page")
  113. If page="" Then
  114. page=1
  115. End If
  116. rs.absolutepage = page
  117. for i=1 to rs.pagesize
  118. %>
  119. <tr bgcolor="#ffffff" onMouseOver='this.style.backgroundColor="#F6f6f6"' 
  120. onMouseOut='this.style.backgroundColor="#FAFAFA"'>
  121. <td height="28" align="center"><input type="checkbox" name="ID" value="<%=Trim(rs("ID"))%>"></td>
  122. <td><%=Trim(rs("title"))%> <%if rs("shenhe")=0 then%>[<a href="Deal_pinke.asp?action=shenhefl&id=<%=rs("id")%>"><font color="#FF0000">未审核</font></a>]<%end if%></td>
  123. <%
  124. cid=rs("pkind")
  125. set kurs=server.createobject("adodb.recordset")
  126.     csql="select * from Gu_pkind where id="&cid
  127.     kurs.open csql,conn,1,3
  128. %>
  130. <td align="center"><%=kurs("name")%></td>
  132. <td align="center"><%=Trim(rs("addtime"))%></td>
  133. <td align="center"><a href="Deal_Pinke.asp?action=tisheng&ID=<%=Trim(rs("ID"))%>">上移</a> <a href="Pinke_edit.asp?id=<%=rs("id")%>">编辑</a></td>
  136. </tr>
  137. <%
  138. rs.movenext
  139. if rs.eof then exit for
  140. next
  142. end if
  143. %>
  144. </table></td>
  145.   </tr>
  146.   <tr>
  147.     <td colspan="3"><div align="right">
  148.           <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">
  149.     </div></td>
  150.   </tr>
  151.   <tr>
  152.     <td colspan="3"><%=a.PageInfo%></td>
  153.   </tr>
  154.   <tr>
  155.     <td colspan="3"></td>
  156.   </tr>
  157.  </form>
  158. </table>
  159. <%
  160. rs.close
  161. set rs=nohing
  162. %>
  163. <hr/>
  164. <br>
  166. <p align="center"><!-- #include file="Ku_bottom.asp"--></p>
  167. </body>
  168. </html>