Category

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

Quan_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>圈子管理</td>
  39.   </tr>
  40. </table>
  41. <table width="95%" border="0" align="center" cellpadding="3" cellspacing="1">
  42.   <tr>
  43.     <td width="30%">
  45.   <input class="input_back" type="button" name="Submit" value="圈子类型"onclick="location.href='quan_kind.asp'"/>      
  46. <input class="input_back" type="button" name="Submit0" value="管理首页"onclick="location.href='main.asp'"/></td>
  47.     <td width="22%">
  48.       　</td>
  49. <form method="post" action="?" name="myKeyword">
  50.     <td width="46%">
  51.     <div align="right">搜索：
  52.         <input name="myKeyword" type="text" id="myKeyword" value="" style="WIDTH:30%" maxlength="50">
  53.         <input type="submit" name="Submit" value="搜索(S)" class="input_back">
  54.     </div>
  55.     </td>
  56.     </form>
  57.   </tr>
  59. <form action="deal_quan.asp?action=delquan" method=post name="thisform">
  60. <tr>
  61. <td colspan="3"><table width="100%" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="cecfce">
  62. <tr>
  63. <td width="3%" bgcolor="e7ebef" style="font-weight: bold"><div align="center">操作</div></td>  
  64. <td height="25" bgcolor="e7ebef" style="font-weight: bold" width="42%">
  65. <p align="center">圈 子 名 称</td>
  66. <td width="10%" bgcolor="e7ebef" style="font-weight: bold"><div align="center">创建人</div></td>
  67. <td width="10%" bgcolor="e7ebef" style="font-weight: bold"><div align="center">
  68. 分类</div></td>
  69. <td width="13%" bgcolor="e7ebef" style="font-weight: bold"><div align="center">日期</div></td>
  70. <td width="19%" bgcolor="e7ebef" style="font-weight: bold"><div align="center">操作</div></td>
  71. <%
  72. set rs=server.createobject("adodb.recordset")
  73. if request("nameid")="" then
  74. sql="select * from [quan] where 1=1 "
  75. else
  76. sql="select * from [quan] where lb='"&request("nameid")&" '"
  77. end if
  79. if not (Trim(Request("pageID"))="" or isempty(Trim(Request("pageID"))) ) then
  80. sql=sql&" and pageID="&clng(Request("pageID"))&""
  81. end if
  83. if not (Trim(Request("myKeyword"))="" or isempty(Trim(Request("myKeyword"))) ) then
  84. sql=sql&" and (name like '%" & Trim(Request("myKeyword")) & "%' or beizhu like  '%" & Trim(Request("myKeyword")) & "%')"
  85. end if
  87. sql=sql&" order by addtime desc"
  88. 'response.write sql
  89. 'response.End
  90. rs.open sql,conn,1,1
  92. dim a
  93. Set a=New PageList
  94. listLimit=15
  95. '模拟分页一页显示分页数
  96. pageLists=5
  97. '设置分页参数
  99. If rs.BOF or rs.EOF Then 
  100. %>
  101. </tr>
  102. <tr bgcolor="#C6E3F4">
  103.   <td height="28" colspan="6" align="center" bgcolor="#FFFFFF">暂无记录！</td>
  104.   </tr>
  105. <%
  106. else
  108. '分页循环开始
  109. totalList=rs.recordcount
  110. a.InitPara=array(totalList,listLimit,pageLists)
  111. a.PageList()
  112. rs.pagesize=listLimit
  113. page = request("page")
  114. If page="" Then
  115. page=1
  116. End If
  117. rs.absolutepage = page
  118. for i=1 to rs.pagesize
  119. %>
  120. <tr bgcolor="#ffffff" onMouseOver='this.style.backgroundColor="#F6f6f6"' 
  121. onMouseOut='this.style.backgroundColor="#FAFAFA"'>
  122. <td height="28" align="center"><input type="checkbox" name="ID" value="<%=Trim(rs("ID"))%>"></td>
  123. <td width="42%" align="center"><a href="../My_quan.asp?id=<%=rs("id")%>"><%=Trim(rs("name"))%></a></td>
  124. <td align="center"><%=Trim(rs("cjr"))%></td>
  125. <%
  126. cid=rs("lb")
  127. set kurs=server.createobject("adodb.recordset")
  128.     csql="select * from Quan_type where name='"&cid&"'"
  129.     kurs.open csql,conn,1,3
  130. %>
  131. <% do while not kurs.eof%>
  132. <td align="center"><%=kurs("name")%></td>
  134. <td align="center"><%=Trim(rs("addtime"))%></td>
  135. <td align="center">&nbsp;<a href="Quan_edit.asp?quanid=<%=rs("id")%>">编辑</a> 
  136. <a href="deal_quan.asp?action=delquan&id=<%=rs("id")%>">删除</a></td>
  138. <%
  139.    kurs.movenext
  140.    loop
  141.    kurs.close
  142.    
  143. %>
  144. </tr>
  145. <%
  146. rs.movenext
  147. if rs.eof then exit for
  148. next
  150. end if
  151. %>
  152. </table></td>
  153.   </tr>
  154.   <tr>
  155.     <td colspan="3"><div align="right">
  156.           <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">
  157.     </div></td>
  158.   </tr>
  159.   <tr>
  160.     <td colspan="3"><%=a.PageInfo%></td>
  161.   </tr>
  162.   <tr>
  163.     <td colspan="3"></td>
  164.   </tr>
  165.  </form>
  166. </table>
  167. <%
  168. rs.close
  169. set rs=nohing
  170. %>
  171. <hr/>
  172. <br>
  174. <p align="center"><!-- #include file="Ku_bottom.asp"--></p>
  175. </body>
  176. </html>