Category

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

Ku_msg.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="39%">
  45.       &nbsp;<input class="input_back" type="button" name="Submit1" value="管理首页"onclick="location.href='main.asp'"/></td>
  46. <form method="post" action="?" name="myKeyword">
  47.     <td width="60%">
  48.     <div align="right">搜索：
  49.         <input name="myKeyword" type="text" id="myKeyword" value="" style="WIDTH:30%" maxlength="50">
  50.         <input type="submit" name="Submit" value="搜索(S)" class="input_back">
  51.     </div>
  52.     </td>
  53.     </form>
  54.   </tr>
  56. <form action="Deal_msg.asp?action=del" method=post name="thisform">
  57. <tr>
  58. <td colspan="2"><table width="100%" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="cecfce">
  59. <tr>
  60. <td width="30" bgcolor="e7ebef" style="font-weight: bold"><div align="center">操作</div></td>  
  61. <td height="25" bgcolor="e7ebef" style="font-weight: bold">标题</td>
  62. <td width="125" bgcolor="e7ebef" style="font-weight: bold"><div align="center">
  63. 咨询人</div></td>
  64. <td width="125" bgcolor="e7ebef" style="font-weight: bold"><div align="center">日期</div></td>
  65. <td width="80" bgcolor="e7ebef" style="font-weight: bold"><div align="center">操作</div></td>
  66. <%
  67. set rs=server.createobject("adodb.recordset")
  68. sql="select * from Ku_msg where 1=1 "
  70. if not (Trim(Request("pageID"))="" or isempty(Trim(Request("pageID"))) ) then
  71. sql=sql&" and pageID="&clng(Request("pageID"))&""
  72. end if
  74. if not (Trim(Request("myKeyword"))="" or isempty(Trim(Request("myKeyword"))) ) then
  75. sql=sql&" and (title like '%" & Trim(Request("myKeyword")) & "%' or content like  '%" & Trim(Request("myKeyword")) & "%')"
  76. end if
  78. sql=sql&" order by addtime desc"
  79. 'response.write sql
  80. 'response.End
  81. rs.open sql,conn,1,1
  83. dim a
  84. Set a=New PageList
  85. listLimit=15
  86. '模拟分页一页显示分页数
  87. pageLists=5
  88. '设置分页参数
  90. If rs.BOF or rs.EOF Then 
  91. %>
  92. </tr>
  93. <tr bgcolor="#C6E3F4">
  94.   <td height="28" colspan="6" align="center" bgcolor="#FFFFFF">暂无记录！</td>
  95.   </tr>
  96. <%
  97. else
  99. '分页循环开始
  100. totalList=rs.recordcount
  101. a.InitPara=array(totalList,listLimit,pageLists)
  102. a.PageList()
  103. rs.pagesize=listLimit
  104. page = request("page")
  105. If page="" Then
  106. page=1
  107. End If
  108. rs.absolutepage = page
  109. for i=1 to rs.pagesize
  110. %>
  111. <tr bgcolor="#ffffff" onMouseOver='this.style.backgroundColor="#F6f6f6"' 
  112. onMouseOut='this.style.backgroundColor="#FAFAFA"'>
  113. <td height="28" align="center"><input type="checkbox" name="ID" value="<%=Trim(rs("ID"))%>"></td>
  114. <td><%=Trim(rs("title"))%></td>
  117. <td align="center"><%=rs("name")%></td>
  119. <td align="center"><%=Trim(rs("addtime"))%></td>
  120. <td align="center">
  121. <%if rs("huifu")=1 then%>[<font color="#FF0000">已回复</font>]<%else%>
  122. <a href="deal_msg.asp?action=huifu&id=<%=rs("id")%>">[未回复]</a>
  123. <%end if%>
  124. </td>
  127. </tr>
  128. <%
  129. rs.movenext
  130. if rs.eof then exit for
  131. next
  133. end if
  134. %>
  135. </table></td>
  136.   </tr>
  137.   <tr>
  138.     <td colspan="2"><div align="right">
  139.           <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">
  140.     </div></td>
  141.   </tr>
  142.   <tr>
  143.     <td colspan="2"><%=a.PageInfo%></td>
  144.   </tr>
  145.   <tr>
  146.     <td colspan="2"></td>
  147.   </tr>
  148.  </form>
  149. </table>
  150. <%
  151. rs.close
  152. set rs=nohing
  153. %>
  154. <hr/>
  155. <br>
  157. <p align="center"><!-- #include file="Ku_bottom.asp"--></p>
  158. </body>
  159. </html>