评论管理

<% '************************************************************************************************** ' 程序名称: 七禧舞曲管理系统 ' 程序作者: 花心萝卜 ' 官方网站: http://www.cmsdj.com http://www.7xiwl.com ' 编写日期: 2009年8月27日 ' 版权所有: 本程序由七禧网络开发，未经同意请勿用于商业用途 '************************************************************************************************** %> 评论管理

rb2<%Else%>rb1<%end if%>" onClick="location='Admin_WebView.asp';" value='评论管理' /> rb2<%Else%>rb1<%end if%>" onClick="location='Admin_WebView.asp?ac=book';" value='留言管理' />

<% Dim Action,page Dim arr1,arr2 Dim key,HttpUrl Dim CmsDjView:Set CmsDjView = New CmsDj_Com_View action=Request.QueryString("action") ac=Request.QueryString("ac") page=int(request.QueryString ("page")) key=Request.QueryString("key") Select Case Lcase(action) Case "批量删除" : Call DelAll() Case "del" : Call Del() Case "edit":Call Edit() Case "saveedit": Call SaveEdit() Case Else : Call Main() End Select Call Admin_FooterB %> <% Sub Edit() CD_ID = SafeRequest("ID","get") IF Not IsNum(CD_ID) Then Call AdminAlert("出错了，参数传输错误！",Request.ServerVariables("HTTP_REFERER"),0):Response.End Set Rs = CmsDjView.GetRs("",0,"ID="&CD_ID) vcontent=RemoveHTML(rs("Content")) For j = 1 to 30 vcontent = Replace(vcontent, "[em:"&j&":]", "") Next admin=rs("admin") %>

回复评论
评论内容：	<%=left(vcontent,50)%> ...
回复内容：	<%=admin%>
">

<% End Sub Sub Main()%>

<%If ac="book" Then%>留言<%Else%>评论<%End If%>管理
关键字（可以输入标题或会员）：

<% Dim Rs,SqlA if page<=0 or page="" then page=1'初始化分页参数 i=0 If key<>"" Then SqlA="Content like '%"&key&"%' or cname like '%"&key&"%' order by id desc" ElseIf ac="book" Then SqlA="channel=5 order by ctime desc" Else SqlA="channel<>5 order by ctime desc" End If Set Rs=CmsDjView.GetRs("",0,SqlA) If Not(rs.bof And rs.EOF) Then rs.pagesize=20 '每页舞曲 rs.AbsolutePage=page m=rs.recordcount '总记录 n=rs.PageCount '总页数 z=rs.pagesize '每页数量 do while not rs.eof and i") Next If rs("channel")=0 Then ccname="歌曲" ccurl="../html/?1,"&rs("cid")&".html" ElseIf rs("channel")=1 Then ccname="相册" ccurl="../user/space.asp?do=pic&view=album&id="&rs("cid") ElseIf rs("channel")=2 Then ccname="日志" ccurl="../user/space.asp?do=daily&view=blog&id="&rs("cid") ElseIf rs("channel")=3 Then ccname="分享" ccurl="../user/space.asp?do=share&view=share&id="&rs("cid") ElseIf rs("channel")=4 Then ccname="供求" ccurl="../user/space.asp?do=supply&view=supply&id="&rs("cid") ElseIf rs("channel")=5 Then ccname="留言" ccurl=LinkWebURL(cuid,cname) End If %> <% rs.movenext loop Else %> <% End If rs.Close Set rs=nothing %>

编号	<%If ac="book" Then%>留言<%Else%>评论<%End If%>内容	类型	发布会员	发布时间	操作
" class="checkbox"/><%=rs("id")%>、	<%=replace(vcontent,key,""&key&"")%> ...	<%=ccname%>	"><%=replace(rs("cname"),key,""&key&"")%>	<%If Cstr(FormatDatetime(Rs("ctime"),2))=Cstr(Date()) Then Response.Write""&FormatDateTime(Rs("ctime"),2)&"" Else Response.Write""&FormatDatetime(Rs("ctime"),2)%>	">回复查看 " onClick="return confirm('确定删除吗？不可恢复！');">删除
没有<%If ac="book" Then%>留言<%Else%>评论<%End If%>
全选留言<%Else%>评论<%End If%>吗?')){this.document.form.submit();return true;}return false;}" name="action" value="批量删除" class="inputbut" style="margin-top:5px;" />
<%=List_Page(m,z,page,"?action="&action&"&",15,7)%>

<% End Sub Sub DelAll() CD_ID = SafeRequest("ID","get") IF CD_ID="" Then Call AdminAlert("出错了，参数传输错误！",Request.ServerVariables("HTTP_REFERER"),0) Response.End End IF CD_ID = Split(CD_ID,", ") For Each ID In CD_ID Call CmsDjView.del("ID="&ID) Conn.DB "delete from CmsDj_View where channel=4 and cid="&ID,"exe" Next Call AdminAlert("恭喜您，批量删除评论成功！",Request.ServerVariables("HTTP_REFERER"),0) Response.End End Sub Sub Del() CD_ID = SafeRequest("ID","get") IF CD_ID="" Then Call AdminAlert("出错了，参数传输错误！",Request.ServerVariables("HTTP_REFERER"),0) Response.End End IF Call CmsDjView.del("ID="&CD_ID) Conn.DB "delete from CmsDj_View where channel=4 and cid="&CD_ID,"exe" Call AdminAlert("恭喜您，删除评论成功！",Request.ServerVariables("HTTP_REFERER"),0) Response.End End Sub Sub SaveEdit() CD_ID = SafeRequest("ID","get") IF Not IsNum(CD_ID) Then Call AdminAlert("出错了，参数传输错误！",Request.ServerVariables("HTTP_REFERER"),0):Response.End CD_Message = SafeRequest("message","post") CD_HttpUrl = SafeRequest("CD_HttpUrl","post") Arr1=Array("admin") Arr2=Array(CD_Message) Call CmsDjView.update(Arr1,Arr2,"ID="&CD_ID) Call AdminAlert("恭喜您，回复评论成功！",CD_HttpUrl,0) Response.End End Sub %>