开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Internet/网络编程 > WEB源码(ASP,PHP,...) > 查看源码
managereview.asp
资源名称：shop2.rar　[点击查看]
上传用户：btntkt
上传日期：2021-04-16
资源大小：5296k
文件大小：9k
源码类别：

WEB源码(ASP,PHP,...)

开发平台：

DOS

managereview.asp：源码内容
  1. <!--#include file="conn.asp"-->
  2. <%
  3. dim cls
  4. if session("admin")="" then
  5. Response.Redirect("admin.asp")
  6. else
  7. if session("flag")<>"0" then
  9. cls = Instr(session("flag"), "pinglunfig")
  10. if cls <= 0 then
  11. %>
  12. <script language="javascript">
  13. if (confirm("您的操作权限不够,系统拒绝你的访问,请点确定返回,或者点取消退出重新登录"))
  14.   location.href="login.asp";
  15. else
  16.   location.href="index.asp";
  17. </script>
  18. <%
  19. end if
  20. end if
  21. end if
  22. %>
  23. <html>
  24. <head>
  25. <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
  26. <link href="../images/css.css" rel="stylesheet" type="text/css">
  27. </head>
  28. <body>
  30. <%dim action
  31. action=request.QueryString("action")
  32. if InStr(action,"'")>0 then
  33. response.write"<script>alert(""非法访问!"");location.href=""../index.asp"";</script>"
  34. response.end
  35. end if
  36. %>
  37. <table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
  38. <tr> 
  39. <form name="form1" method="post" action="">
  40. <td> 
  41.                                 <%'开始分页
  42. Const MaxPerPage=20 
  43.     dim totalPut   
  44.     dim CurrentPage
  45.     dim TotalPages
  46.     dim j
  47.     dim sql
  48.      if Not isempty(request("page")) then
  49.        currentPage=Cint(request("page"))
  50.     else
  51.        currentPage=1
  52.     end if 
  53. set rs=server.CreateObject("adodb.recordset")
  54.   select case action
  55.   case "no"
  56.   rs.open "select products.bookname,products.bookid,review.pinglunid,review.pingluncontent,review.pingluntitle,review.pinglundate from review,products where products.bookid=review.bookid and review.shenhe=0 order by review.bookid desc,review.pinglunid desc",conn,1,1
  57.   case "hf"
  58.   rs.open "select products.bookname,products.bookid,review.pinglunid,review.pingluncontent,review.pingluntitle,review.pinglundate from review,products where products.bookid=review.bookid and (review.huifu is null) order by review.bookid desc,review.pinglunid desc",conn,1,1
  59.   case "all"
  60.   rs.open "select products.bookname,products.bookid,review.pinglunid,review.pinglunname,review.pingluntitle,review.pingluncontent,review.pinglundate from review,products where products.bookid=review.bookid order by review.bookid desc,review.pinglunid desc",conn,1,1
  61.   case "yes"
  62.      rs.open "select products.bookname,products.bookid,review.pinglunid,review.pingluncontent,review.pingluntitle,review.pinglundate from review,products where products.bookid=review.bookid and review.shenhe=1 order by review.bookid desc,review.pinglunid desc",conn,1,1
  63.   end select
  64. if err.number<>0 then
  65. response.write "数据库中无数据"
  66. end if
  67. if rs.eof And rs.bof then
  68.         Response.Write "<p align='center' class='contents'> 没有任何评论！</p>"
  69.     else
  70.    totalPut=rs.recordcount
  71.        if currentpage<1 then
  72.            currentpage=1
  73.        end if
  74.        if (currentpage-1)*MaxPerPage>totalput then
  75.     if (totalPut mod MaxPerPage)=0 then
  76.       currentpage= totalPut  MaxPerPage
  77.     else
  78.        currentpage= totalPut  MaxPerPage + 1
  79.     end if
  80.        end if
  81.         if currentPage=1 then
  82.              showContent
  83.              showpage totalput,MaxPerPage,"managereview.asp"
  84.         else
  85.            if (currentPage-1)*MaxPerPage<totalPut then
  86.              rs.move  (currentPage-1)*MaxPerPage
  87.              dim bookmark
  88.              bookmark=rs.bookmark
  89.              showContent
  90.               showpage totalput,MaxPerPage,"managereview.asp"
  91.          else
  92.          currentPage=1
  93.             showContent
  94.             showpage totalput,MaxPerPage,"managereview.asp"
  95.        end if
  96.     end if
  97.         end if
  98.     sub showContent
  99.         dim i
  100.     i=0
  101. response.write "<table width=12 height=7 border=0 cellpadding=0 cellspacing=0><tr><td height=7></td></tr></table>"
  102. %>
  103. <table class="tableBorder" width="90%" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="#FFFFFF">
  104. <tr>
  105. <td colspan="4" align="center" background="../images/admin_bg_1.gif"><font color="#ffffff">
  106. 　　　☉ <a href="managereview.asp?action=all"><b><font color="#ffffff">所有评论</font></b></a>
  107. 　　　☉ <a href="managereview.asp?action=hf"><b><font color="#ffffff">未回复的评论</font></b></a>
  108. 　　　☉ <a href="managereview.asp?action=no"><b><font color="#ffffff">未审核的评论</font></b></a>
  109. 　　　☉ <a href="managereview.asp?action=yes"><b><font color="#ffffff">已审核的评论</font></b></a></font>
  110. </td></tr>
  111. <tr > 
  112. <td width="30%" align="center" bgcolor="fbc2c2">评论商品名称</td>
  113. <td width="30%" align="center" bgcolor="fbc2c2">评论标题</td>
  114. <td width="30%" align="center" bgcolor="fbc2c2">评论时间</td>
  115. <td width="10%" align="center" bgcolor="fbc2c2">操 作</td>
  116. </tr>
  117. <%  
  118. do while not rs.eof%>
  119. <tr > 
  120. <td align="center">
  121. <%if len(rs("bookname"))>14 then
  122. response.write "<a href=../products.asp?id="&rs("bookid")&" >"&left(trim(rs("bookname")),12)&"...</a>"
  123. else
  124. response.write "<a href=../products.asp?id="&rs("bookid")&" >"&trim(rs("bookname"))&"</a>"
  125. end if
  126. %>
  127. </td>
  128. <td align="center">
  129. <% if len(rs("pingluntitle"))>12 then
  130. response.write "<a href=""javascript:;"" onClick=""javascript:window.open('review.asp?id="&rs("pinglunid")&"','pinglun','width=400,height=350,toolbar=no, status=no, menubar=no, resizable=yes, scrollbars=no');return false;"" title="&trim(rs("pingluntitle"))&">"&left(trim(rs("pingluntitle")),10)&"...</a>"
  131. else
  132. response.write "<a href=""javascript:;"" onClick=""javascript:window.open('review.asp?id="&rs("pinglunid")&"','pinglun','width=400,height=350,toolbar=no, status=no, menubar=no, resizable=yes, scrollbars=no');return false;"" title="&trim(rs("pingluntitle"))&">"&trim(rs("pingluntitle"))&"</a>"
  133. end if%>
  134. </td>
  135. <td align="center"><%=rs("pinglundate")%></td>
  136. <td align="center"><input name="shenhe" type="checkbox" id="shenhe" value="<%=rs("pinglunid")%>"></td>
  137. </tr>
  138. <%i=i+1
  139.   if i>=MaxPerPage then Exit Do
  140.   rs.movenext
  141.   loop
  142.   rs.close
  143.   set rs=nothing
  144.   %>
  145. <tr > 
  146. <td height="30" colspan="4" align="center">
  147. <%if action="no" then%>
  148. <input type="submit" name="Submit" value="通过审核" onClick="this.form.action='savereview.asp?action=shenhe';this.form.submit()">
  149. <%end if%>
  150. &nbsp; 
  151. <input type="button" name="Submit2" value="删 除" onClick="this.form.action='savereview.asp?action=del';this.form.submit()">
  152. &nbsp;&nbsp;全选 
  153. <input type="checkbox" name="checkbox" value="Check All" onClick="mm()">
  154. </td>
  155. </tr>
  156. </table>
  157. <%  
  158. End Sub   
  159. Function showpage(totalnumber,maxperpage,filename)  
  160.    Dim n
  161. If totalnumber Mod maxperpage=0 Then  
  162. n= totalnumber  maxperpage  
  163. Else
  164. n= totalnumber  maxperpage+1  
  165. End If
  166. Response.Write "<form method=Post action="&filename&"?action="&action&">"  
  167. Response.Write "<p align='center' class='contents'> "  
  168. If CurrentPage<2 Then  
  169. Response.Write "<font class='contents'>首页 上一页</font> "  
  170. Else  
  171. Response.Write "<a href="&filename&"?page=1&action="&action&" class='contents'>首页</a> "  
  172. Response.Write "<a href="&filename&"?page="&CurrentPage-1&"&action="&action&" class='contents'>上一页</a> "  
  173. End If
  174. If n-currentpage<1 Then  
  175. Response.Write "<font class='contents'>下一页 尾页</font>"  
  176. Else  
  177. Response.Write "<a href="&filename&"?page="&(CurrentPage+1)&"&action="&action&" class='contents'>"  
  178. Response.Write "下一页</a> <a href="&filename&"?page="&n&"&action="&action&" class='contents'>尾页</a>"  
  179. End If  
  180. Response.Write "<font class='contents'> 页次：</font><font class='contents'>"&CurrentPage&"</font><font class='contents'>/"&n&"页</font> "  
  181. Response.Write "<font class='contents'> 共有"&totalnumber&"条记录 " 
  182. Response.Write "<font class='contents'>" 
  183. Response.Write "</form>"  
  184. End Function  
  185. %>
  186. </td>
  187. </form>
  188. </tr>
  189. </table>
  190. <table class="tableBorder" width="90%" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="#FFFFFF">
  191. <tr> 
  192. <td align="center" background="../images/admin_bg_1.gif"><b><font color="#ffffff">其 它 操 作</font></b> </td>
  193. </tr>
  194. <tr> 
  195. <td height="50" > 
  196. <table width="90%" border="0" align="center" cellpadding="0" cellspacing="0">
  197. <tr> 
  198. <td height="20" class=pad>删除一周前未审核的评论　
  199. <input type="submit" name="Submit4" value="确 认" onClick="if(confirm('您确定这样操作吗?')) location.href='savereview.asp?action=delzhou';else return;">
  200. </td>
  201. </tr>
  202. <tr> 
  203. <td height="16" class=pad>删除所有未审核的评论　　
  204. <input type="submit" name="Submit4" value="确 认" onClick="if(confirm('您确定这样操作吗?')) location.href='savereview.asp?action=delall';else return;">
  205. </td>
  206. </tr>
  207. </table>
  208. </td>
  209. </tr>
  210. </table>
  211. <!--#include file="foot.asp"-->
  212. </body>
  213. </html>
  214. <script language=javascript>
  215. function mm()
  216. {
  217.    var a = document.getElementsByTagName("input");
  218.    if(a[0].checked==true){
  219.    for (var i=0; i<a.length; i++)
  220.       if (a[i].type == "checkbox") a[i].checked = false;
  221.    }
  222.    else
  223.    {
  224.    for (var i=0; i<a.length; i++)
  225.       if (a[i].type == "checkbox") a[i].checked = true;
  226.    }
  227. }
  228. </script>