管理评论

<%dim action action=FormatSQL(SafeRequest("action",0)) %>

管理评论

<% Const MaxPerPage=20 dim totalPut dim CurrentPage dim TotalPages dim j dim sql if Not isempty(SafeRequest("page",1)) then currentPage=Cint(SafeRequest("page",1)) else currentPage=1 end if set rs=server.CreateObject("adodb.recordset") select case action case "no" rs.open "select tproduct.tproduct,tproduct.id,review.reviewid,review.reviewcontent,review.reviewdtm from review,tproduct where tproduct.id=review.id and review.audit=0",conn,1,1 case "yes" rs.open "select tproduct.tproduct,tproduct.id,review.reviewid,review.reviewcontent,review.reviewdtm from review,tproduct where tproduct.id=review.id and review.audit=1",conn,1,1 end select if err.number<>0 then response.write "数据库中暂时无数据" end if if rs.eof And rs.bof then Response.Write "

目前还没有任何评论！

" else totalPut=rs.recordcount if currentpage<1 then currentpage=1 end if if (currentpage-1)*MaxPerPage>totalput then if (totalPut mod MaxPerPage)=0 then currentpage= totalPut \ MaxPerPage else currentpage= totalPut \ MaxPerPage + 1 end if end if if currentPage=1 then showContent showpage totalput,MaxPerPage,"admincomment.asp" else if (currentPage-1)*MaxPerPage <% do while not rs.eof%> <%i=i+1 if i>=MaxPerPage then Exit Do rs.movenext loop rs.close set rs=nothing %>

评论商品名称	评论正文	评论时间	操作
<%if len(rs("tproduct"))>20 then response.write ""&left(trim(rs("tproduct")),18)&"..." else response.write ""&trim(rs("tproduct"))&"" end if %>	<% if len(rs("reviewcontent"))>20 then response.write ""&left(trim(rs("reviewcontent")),18)&"..." else response.write ""&trim(rs("reviewcontent"))&"" end if%>	<%=rs("reviewdtm")%>	">
<%if action="no" then%> <%end if%> 全选

<% End Sub Function showpage(totalnumber,maxperpage,filename) Dim n If totalnumber Mod maxperpage=0 Then n= totalnumber \ maxperpage Else n= totalnumber \ maxperpage+1 End If Response.Write "" Response.Write "

" If CurrentPage<2 Then Response.Write "首页上一页 " Else Response.Write "首页 " Response.Write "上一页 " End If If n-currentpage<1 Then Response.Write "下一页末页" Else Response.Write "" Response.Write "下一页末页" End If Response.Write " 页次："&CurrentPage&"/"&n&"页 " Response.Write " 共有"&totalnumber&"条记录 " Response.Write "" Response.Write "" End Function %>

其它操作

删除一周前未审核评论

删除所有未审核评论