<!--#include file="../setting/conn.asp"--><%:Select Case SoonBiz.ract:Case "comman" : comman :Case "commanlist" : commanlist:Case "del" : delcomman :Case "ispass" : ispass:End Select:Sub delcomman():Dim rs,arrs,i:Set rs=SoonBiz.execute("select distinct blogid from "& sheethead &"_comman where cid=6 and ispass=1 and id in("& SoonBiz.rids &")")
If Not rs.eof Then
arrs=rs.getrows(-1):For i=0 To ubound(arrs,2):SoonBiz.DelBlogCache(arrs(0,i)):Next
End If:Rs.Close:Set Rs=Nothing:SoonBiz.execute("delete from "& sheethead &"_comman where id in("& SoonBiz.rids &")"):SoonBiz.loadcachenum(0):SoonBiz.ok:End Sub:Sub comman:SoonBiz.title="评论管理":SoonBiz.adhead:SoonBiz.nstate("评论管理"):commanlistfilter:Response.Write "<p></p><p></p><p>请选择要查看的评论范围</p>":End Sub:Sub commanlist():Dim astr:Dim shujun:cid=SoonBiz.rid("cid"):astr=SoonBiz.PlusSQL("select * from ["& sheethead &"_comman] where isdel=0","?act=commanlist")
If cid>0 Then
astr(0)=astr(0) & " and cid="&cid:astr(1)=astr(1) & "&amp;cid="&cid:astr(2)=astr(2) & "CheckSel(""cid"","& cid &")"
End If:astr(0)=astr(0) & " order by id desc":shujun="<tr onmouseover=""this.style.backgroundColor='#e2e8f4';"" onmouseout=""this.style.backgroundColor='';"" align=""center""> <td>{$id}</td> <td>{$nickname}</td> <td align=""left""> <a href=""#"" class=""ahover"">{$content}<span style=""width:200px;""> IP:{$ip}<br /> 时间:{$stime}<br /> 所属频道:<script type=""text/javascript"">document.write(channelname[{$cid}]);</script><br /> 所属记录ID:{$bid}</span></a></td> <td><script type=""text/javascript"">isright({$ispass});</script></td> <td><input type=""checkbox"" id=""id"" name=""id"" value=""{$id}"" /></td></tr>":SoonBiz.title="评论列表":SoonBiz.adhead:SoonBiz.nstate("评论列表"):commanlistfilter:Response.Write SoonBiz.JsChannel:Response.Write "<form action="""" name=""myform"" id=""myform"" method=""post"">":Response.Write "<table class=tableborder1 cellspacing='1' >":Response.Write "<tr>":Response.Write " <th width=""40"">ID</th>":Response.Write " <th width=""80"">作者</th>":Response.Write " <th width=""*"">内容</th>":Response.Write " <th width=""30"">审</th>":Response.Write " <th width=""30"">选</th>":Response.Write "</tr>":Response.Write SoonBiz.ReplaceMdb("",astr(0),shujun,"",0):Response.Write "</table>":Response.write SoonBiz.PageList(""):Response.Write "<div class=""operate"">":Response.Write " <input type=""button"" onClick=""CheckAll(myform)"" value=""全选"">":Response.Write " <input type=""button"" onClick=""ContraSel(myform)"" value=""反选"">":Response.Write " <input type=""button"" onClick=""Csubmit('myform','?act=del','确定要删除选定的记录么?')"" value=""删除"">":Response.Write " <input type=""button"" onClick=""Csubmit('myform','?act=ispass','确定要审核通过选定的记录么?')"" value=""审核"">":Response.Write "</div>":Response.Write "</form>":Response.Write "<script type=""text/javascript"">"& astr(2) &"</script>":End Sub:Sub commanlistfilter() :Response.Write "<div class=""listfilter"">":Response.Write "<form method=get action="""">":Response.Write " <input type=""hidden"" name=""act"" value=""commanlist"" />":Response.Write " <input type=""text"" name=""keyword"" class=""inputsearch"" id=""keyword"">":Response.Write " <select name=""cid"" id=""cid"">":Response.Write " <option value=""-1"">全部频道</option>":Response.Write SoonBiz.ReplaceXml(""& sheethead &"_channel","channel","<option value=""{$id}"">{$cha_name}</option>","channel[@cha_moduleid='3' or @cha_moduleid='4' or @cha_moduleid='5' or @cha_moduleid=6]"):Response.Write " </select>":Response.Write " <select name=""myfield"" id=""myfield"">":Response.Write " <option value=""nickname"">按作者昵称搜索</option>":Response.Write " <option value=""uid"">按用户ID搜索</option>":Response.Write " <option value=""content"">按内容搜索</option>":Response.Write " </select>":Response.Write " <select id=""ispass"" name=""ispass"">":Response.Write " <option value=""-1"">全部</option>":Response.Write " <option value=""1"">审核通过</option>":Response.Write " <option value=""0"">待审</option>":Response.Write " </select>":Response.Write " <input type=""text"" name=""date1"" id=""date1"" size=""10"" maxlength=""10"" value=""""> - <input type=""text"" name=""date2"" id=""date2"" size=""10"" value="""& SoonBiz.format_time(now(),4) &""" maxlength=""10"">":Response.Write " <input type='submit' name=""submit"" value='搜索' class='submit'>":Response.Write " </form>":Response.Write "</div>":End Sub:Sub ispass():Dim rs,arrs,i:Set rs=SoonBiz.execute("select distinct blogid from "& sheethead &"_comman where cid=6 and ispass=0 and id in("& SoonBiz.rids &")")
If Not rs.eof Then
arrs=rs.getrows(-1):For i=0 To ubound(arrs,2):SoonBiz.DelBlogCache(arrs(0,i)):Next
End If:Rs.Close:Set Rs=Nothing:SoonBiz.execute("update "& sheethead &"_comman set ispass=1 where id in("& SoonBiz.rids &")"):SoonBiz.loadcachenum(0):SoonBiz.ok:End Sub
%>