<!--#include file="setting/conn.asp"--><%:SoonBiz.geturl:SoonBiz.chklogin(2):SoonBiz.readchannel(cid)
If classid>0 Then
SoonBiz.readclass(classid)
Else:ShowErr(1022)
End If:Dim isclassmaster
If SoonBiz.ins(xmlclass.getattribute("adlist"),SoonBiz.user_nickname) Then
isclassmaster=True
Else:isclassmaster=False
End If:act=SoonBiz.ract
If act<>"admessage" And act<>"adreply" And act<>"accept" Then 
If (Not isclassmaster) And (Not SoonBiz.ismaster) Then
ShowErr("管理员和版主才可进行此操作")
End If'saidon|"get/"becausemake{]::himover:for:did
End If:Select Case act:Case "admessage" : admessage:Case "adreply" : adreply :Case "accept" : accept :Case "mastercomman" : mastercomman :Case "savecomman" : savecomman :Case "savestyle" : savestyle:Case Else : updates :End Select:SoonBiz.adfoot:setallnothing:Sub admessage():Dim sql,rs:Dim fuyou:Dim jintong,tr:Dim pengjian :Dim uid,nickname,title,titlestyle,titlestylecode:Dim liuyan:sql="select uid,nickname,title,titlestyle,titlestylecode from "& sheethead &"_message where classid="& classid &" and id="&id:Set rs=SoonBiz.Execute(sql)
If rs.eof Then
rs.close:Set rs=Nothing:ShowErr(1018)
Else:uid=rs(0):nickname=rs(1):title=rs(2):titlestyle=rs(3)&"" : If len(titlestyle)=0 Then titlestyle="|||"
titlestylecode=rs(4)&"":rs.close:Set rs=Nothing
End If:SoonBiz.title="社区主题管理":SoonBiz.adhead:SoonBiz.nstate("<a href=""?act=admessage&u="& u &""">社区主题管理</a>"):Response.Write "<div class=""messagead"">":Response.Write "<h2>作者:"& nickname &"</h2>":Response.Write "<h2>主题:"& title &"</h2>":Response.Write "<ul>":Response.Write "<li>向版主 <a href=""user/user_shortmessage.asp?act=isgood&amp;u="& cid &"w"& classid &"w"& id &""" onclick=""return showinnew(this,510,320)"">推荐</a>￤<a href=""user/user_shortmessage.asp?act=isbad&amp;u="& cid &"w"& classid &"w"& id &""" onclick=""return showinnew(this,510,320)"">举报</a></li>"':}had;)"couldbeen$hersome%the:?alsotakethem:
If isclassmaster Or SoonBiz.ismaster Then 
Response.Write "<li><a href=""javascript:edit('mastercomman',220,180)"">版主评定</a></li>":Response.Write "<li><a href=""?act=istop&u="& u &""">置顶</a> / <a href=""?act=untop&u="& u &""">取消</a></li>":Response.Write "<li><a href=""?act=isgood&amp;u="& u &""">设为精品</a> / <a href=""?act=ungood&amp;u="& u &""">取消</a></li>":Response.Write "<li><a href=""?act=islock&amp;u="& u &""">关闭主题</a> / <a href=""?act=unlock&amp;u="& u &""">打开</a></li>":Response.Write "<li><a href=""?act=isdel&amp;u="& u &"&amp;uid="& uid &""">删除</a></li>":Response.Write "<li><a href=""?act=lockuser&amp;u="& u &"&amp;uid="& uid &""" onClick=""return confirm('确定要锁定本贴的作者吗!')"">锁定作者</a></li>":Response.Write "<li><a href=""javascript:edit('changeclass',220,240);"">转移到其它分类</a></li>":Response.Write "<li><a href=""javascript:edit('changetopic',220,240);"">转移到其它专题</a></li>":Response.Write "<li><a href=""javascript:edit('edittitlestyle',300,200);"">修改标题样式</a></li>":Response.Write "</ul>":Response.write "<div class=""edit"" id=""mastercomman"" style=""display:none;"">":Response.Write " <form action=""?act=mastercomman&amp;u="& u &""" name=""myform"" id=""myform"" method=""post"">":Response.Write " <h1>版主评定</h1>":Response.Write " <span class=""close""><a href='javascript:closediv(""mastercomman"")'><img src='images/close.gif' align='absmiddle' /></a></span>":Response.Write " <div>评价:<textarea rows=""3"" cols=""3"" class=""inputtext"" name=""content""></textarea></div>":Response.Write " <div style=""margin-top:15px;"">积分:<select id=""point"" name=""point"">"& selectnum &"</select> <input type=""submit"" value=""提交"" /></div>":Response.Write " <script type=""text/javascript"">CheckSel(""point"",""0"");</script>":Response.Write " </form>":Response.Write "</div>":Response.write "<div class=""edit"" id=""changeclass"">":Response.Write " <h1>选择转移分类</h1>":Response.Write " <span class='close'><a href='javascript:closediv(""changeclass"")'><img src='images/close.gif' align='absmiddle' /></a></span>":Response.Write SoonBiz.ReplaceClass("转移分类",cid,0,"<p><a href=""?act=changeclass&amp;u="& u &"&amp;target={$id}"" class=""depth{$depth}"">{$title}</a></p>","all"):Response.Write "</div>":Response.write "<div class=""edit"" id=""changetopic"">":Response.Write " <h1>选择转移专题</h1>":Response.Write " <span class='close'><a href='javascript:closediv(""changetopic"")'><img src='images/close.gif' align='absmiddle' /></a></span>":Response.Write " <p><a href=""?act=changetopic&amp;u="& u &"&amp;target=0"">不属于任何专题</a></p>":Response.Write SoonBiz.ReplaceMdb("转移专题","select * from ["& sheethead &"_topic] where cid="& cid &" order by cls asc,id asc","<p><a href=""?act=changetopic&amp;u="& u &"&amp;target={$id}"">{$title}</a></p>","",1):Response.Write "</div>":Response.write "<div class=""edit"" id=""edittitlestyle"">":Response.Write " <form method=""post"" action=""?act=savestyle&amp;u="& u &""">":Response.Write " <h1>修改标题样式</h1>":Response.Write " <span class='close'><a href='javascript:closediv(""edittitlestyle"")'><img src='images/close.gif' align='absmiddle' /></a></span>":Response.Write " <p><span '"& titlestylecode &"' id='titlestyle'>"& title &"</span></p>":Response.Write " <select size='1' name='titlecolor' id='titlecolor' onchange='getcolor(this.value)'>":Response.Write " <option value=''>选择颜色</option>":Response.Write " <option style='background-color:#ff0000;color: #ff0000' value='#ff0000'>#ff0000</option><option style='background-color:#0000ff;color: #0000ff' value='#0000ff'>#0000ff</option><option style='background-color:#008800;color: #008800' value='#008800'>#008800</option><option style='background-color:#ffff00;color: #ffff00' value='#ffff00'>#ffff00</option><option style='background-color:#9900ff;color: #9900ff' value='#9900ff'>#9900ff</option><option style='background-color:#808080;color: #808080' value='#808080'>#808080</option><option style='background-color:#00ffff;color: #00ffff' value='#00ffff'>#00ffff</option><option style='background-color:#998566;color: #998566' value='#998566'>#998566</option><option style='background-color:#ffcc00;color: #ffcc00' value='#ffcc00'>#ffcc00</option>":Response.Write " </select> ":Response.Write " <select size='1' name='titleweight' id='titleweight' onchange='getweight(this.value)'>":Response.Write " <option value=''>选择字体</option>":Response.Write " <option value='bold'>粗体</option>":Response.Write " </select>":Response.Write " <select size='1' name='titledecoration' id='titledecoration' onchange='getdecoraction(this.value)'>":Response.Write " <option value=''>修饰</option>":Response.Write " <option value='overline'>上划线</option>":Response.Write " <option value='underline'>下划线</option>":Response.Write " <option value='line-through'>删除线</option>":Response.Write " </select>":Response.Write " <input type=""submit"" value=""修改"" />":Response.Write " </form>":Response.Write " <script type=""text/javascript"">":Response.Write " CheckSel(""titlecolor"",'"& split(titlestyle,"|")(0) &"');":Response.Write " CheckSel(""titleweight"",'"& split(titlestyle,"|")(1) &"');":Response.Write " CheckSel(""titledecoration"",'"& split(titlestyle,"|")(2) &"');":Response.Write " </script>":Response.Write "</div>"
Else:Response.Write "</ul>"
End If:Response.Write "<div class=""clear""></div>":Response.Write "</div>":Response.Write "<div id=""bg""></div>":End Sub:Sub adreply():Dim sql,rs:Dim uid,nickname,title:Dim thisid:thisid=SoonBiz.rid("thisid"):sql="select uid,nickname,title from "& sheethead &"_remessage where classid="& classid &" and id="&thisid:Set rs=SoonBiz.Execute(sql)
If rs.eof Then
rs.close:Set rs=Nothing:ShowErr(1018)'between:more:himselfonly:':manyhashefromit.'.:because
Else:uid=rs(0):nickname=rs(1):title=rs(2):Rs.close:Set rs=Nothing
End If:SoonBiz.title="社区回复管理":SoonBiz.adhead:SoonBiz.nstate("<a href=""?act=adreply&u="& u &""">编辑社区回复</a>"):Response.Write "<div class=""messagead"">":Response.Write "<h2>作者:"& nickname &"</h2>":Response.Write "<h2>主题:"& title &"</h2>":Response.Write "<ul>":Response.Write "<li><a href=""user/user_shortmessage.asp?act=reisgood&amp;u="& u &"&amp;floor="& SoonBiz.rid("floor") &""" onclick=""return showinnew(this,510,320)""> 推荐</a>￤<a href=""user/user_shortmessage.asp?act=reisbad&amp;u="& u &""" onclick=""return showinnew(this,510,320)"">举报</a></li>"
If clng(uid)<>clng(SoonBiz.user_id) Then 
Response.Write "<li><a href=""javascript:edit('accept',180,100)"">采纳</li>"
End If
If isclassmaster Or SoonBiz.ismaster Then'"butgothisbe:but:seemuchbeingthismorecansame:isintoabout
Response.Write "<li><a href=""?act=isdelremessage&amp;u="& u &"&amp;thisid="& thisid &"&amp;uid="& uid &""">删除</a></li>":Response.Write "<li><a href=""?act=lockuser&amp;u="& u &"&amp;uid="& uid &""" onClick=""return confirm('确定要锁定本贴的作者吗!')"">锁定作者</a></li>"
End If:Response.Write "</ul>":Response.Write "</div>":Response.Write "<div class=""clear""></div>":Response.Write "<div id=""bg""></div>":Response.Write "<div id=""accept"" class=""edit"">":Response.Write "<span class='close'><a href='javascript:closediv(""accept"")'><img src='../images/close.gif' align='absmiddle' /></a></span>":Response.Write "<form method=""post"" action=""?act=accept&amp;u="& u &"&amp;thisid="& SoonBiz.rid("thisid") &""">":Response.Write "<h1>采纳回复</h1>":Response.Write "分数:<input type=""text"" name=""point"" id=""point"" size=""3"" /> ":Response.Write "<input type=""submit"" value=""提交"" />":Response.Write "</form>":Response.Write "<br />分数上限为本贴奖励积分":Response.Write "</div>":End Sub:function selectnum():Dim i:Dim tempnum(40):For i=0 To 40
If i=20 Then
tempnum(i)="<option value="""& i-20 &""" selected=""selected"">"& i-20 &"</option>"
Else:tempnum(i)="<option value="""& i-20 &""">"& i-20 &"</option>"
End If:Next:selectnum=join(tempnum):End Function:Sub changeclass():Dim target:Dim sql:target=SoonBiz.rid("target"):Dim tempxml:Set tempxml=application(CacheName & "_class").documentElement.selectSingleNode("class[@id='" & target & "']")':it:]here'has=?!likehimboththeirsee'is:'
If tempxml Is Nothing Then
ShowErr("您将转移的分类不存在") 
Else
If cint(tempxml.getAttribute("depth"))=0 Then
ShowErr("不能转移到分组,请重新选择分类")
End If':|areof:":doare:=make:and`:now@$
End If:sql="update "& sheethead &"_message set classid="&target&" where classid="& classid &" and id="&id:SoonBiz.Execute(sql):End Sub:Sub changetopic():Dim target:Dim sql:target=SoonBiz.rid("target"):sql="update "& sheethead &"_message set topicid="&target&" where classid="& classid &" and id="&id:SoonBiz.Execute(sql):End Sub:Sub accept():Dim rs,sql:Dim point,rspoint:Dim uid:Dim reuid:Dim forumid:Dim nickname:Dim thisid:thisid=SoonBiz.rid("thisid"):point=SoonBiz.rid("point")
If point<0 Then
ShowErr("积分不能小于0")
End If:sql="select uid,forumid from "& sheethead &"_remessage where id="&thisid:Set rs=SoonBiz.Execute(sql)
If rs.eof Then
rs.close:Set rs=Nothing:ShowErr(1018)'they:mighteachmight'canbysuch~:said'forall:othersince"
Else:reuid=rs(0):forumid=rs(1):rs.close:Set rs=Nothing
End If
If cstr(reuid)=SoonBiz.user_id Then
ShowErr("不能采纳自已的回复!")
End If:sql="select uid,point,nickname from "& sheethead &"_message where id="&forumid:Set rs=SoonBiz.Execute(sql)
If rs.eof Then'onlythat:_much:myas:after\:get@howmust"my:
rs.close:Set rs=Nothing:ShowErr(1018)
Else:rspoint=rs(1):uid=rs(0):nickname=rs(2)
If rspoint=0 Then
ShowErr("原贴没有奖励积分,无法采纳")
End If
If uid<>SoonBiz.user_id Then'still":do:any*"anotherour:be'afterthenour[":
ShowErr("原贴不是您发的,无法采纳")
End If:rs.close:Set rs=Nothing
End If
If point>rspoint Then point=rspoint
SoonBiz.DoPoint point,uid,nickname,cid,thisid,"回复被采纳","":sql="update "& sheethead &"_message set point=point-"& point &" where id="&forumid:SoonBiz.Execute(sql):sql="update "& sheethead &"_remessage set getpoint=getpoint+"& point &" where id="&thisid:SoonBiz.execute(sql):SoonBiz.Delxml SoonBiz.Getxn("read",cid,classid,id,topicid,0):SoonBiz.success("采纳操作成功"):End Sub:Sub mastercomman() :Dim content,point:Dim sql,rs:Dim uid,nickname:Set rs=SoonBiz.execute("select uid,nickname from "& sheethead &"_message where classid="& classid &" and id="&id)
If rs.eof Then'/beforeifanother:^'"(ofthere:havethattake:"':
ShowErr(1018)
Else:uid=rs(0):nickname=rs(1):rs.close:Set rs=Nothing
End If:content=SoonBiz.RequestStr("评价内容","content","post",1,1,255,20,1):point=SoonBiz.RequestStr("积分","point","post",0,-100,100,0,1):ShowErr(""):content=Replace(Replace(content,"|||",""),"$$$",""):content=SoonBiz.user_nickname&"|||"&content:SoonBiz.Dopoint point,uid,nickname,cid,id,"版主评价","":Set rs=SoonBiz.execute("select adcomman from "& sheethead &"_message where id="&id)
If Not rs.eof Then
content=rs(0)&"$$$"&content
End If:rs.close:Set rs=Nothing:sql="update "& sheethead &"_message set adcomman='"& SoonBiz.Checkstr(content) &"' where classid="& classid &" and id="&id:SoonBiz.execute(sql):SoonBiz.Delxml SoonBiz.Getxn("read",cid,classid,id,topicid,0):SoonBiz.adsuccess("评价操作成功!"):End Sub:Sub updates():Dim sql:Dim uid,rs,nickname:Dim thisid:Dim forumid 'hadthesenowan::came::also;:&outout(atmost'
If (Not isclassmaster) And (Not SoonBiz.ismaster) Then
ShowErr("管理员和版主才可进行此操作")
End If:Select Case SoonBiz.ract:Case "istop":sql="update "& sheethead &"_message set istop=1 where classid="& classid &" and id="&id:SoonBiz.Execute(sql):Case "untop":sql="update "& sheethead &"_message set istop=0 where classid="& classid &" and id="&id:SoonBiz.Execute(sql):Case "isgood":sql="update "& sheethead &"_message set isgood=1 where classid="& classid &" and id="&id:SoonBiz.Execute(sql):Case "ungood":sql="update "& sheethead &"_message set isgood=0 where classid="& classid &" and id="&id:SoonBiz.Execute(sql):Case "islock":sql="update "& sheethead &"_message set islock=1 where classid="& classid &" and id="&id:SoonBiz.Execute(sql):Case "unlock":sql="update "& sheethead &"_message set islock=0 where classid="& classid &" and id="&id:SoonBiz.Execute(sql):Case "isdel" :uid=SoonBiz.rid("uid"):Set rs=SoonBiz.execute("select user_nickname from "& sheethead &"_user where id="&uid)
If rs.eof Then
ShowErr(1018)
Else:nickname=rs(0)'himself^me:come:':before:he*betweenhercomeor:'by
End If:rs.close:Set rs=Nothing:sql="select id from "& sheethead &"_message where isdel=0 and classid="& classid &" and uid="& uid &" and id="&id:Set rs=SoonBiz.Execute(sql)
If rs.eof Then
ShowErr("您要删除的贴子不存在或已经删除")
End If:rs.close:Set rs=Nothing:sql="update "& sheethead &"_message set isdel=1 where classid="& classid &" and uid="& uid &" and id="&id:SoonBiz.Execute(sql):SoonBiz.DoPoint delmessagepoint,uid,nickname,cid,id,"删除贴子","":Case "isdelremessage" :uid=SoonBiz.rid("uid"):thisid=SoonBiz.rid("thisid"):Set rs=SoonBiz.execute("select user_nickname from "& sheethead &"_user where id="&uid)
If rs.eof Then
ShowErr(1018)'didnever":inmany_andshould:or"'''}:"`
Else:nickname=rs(0)
End If:rs.close:Set rs=Nothing:sql="select id,forumid from "& sheethead &"_remessage where isdel=0 and uid="& uid &" and id="&thisid:Set rs=SoonBiz.Execute(sql)
If rs.eof Then
ShowErr("您要删除的贴子不存在")
Else:forumid=rs(1)
End If:rs.close:Set rs=Nothing:sql="update "& sheethead &"_remessage set isdel=1 where id="&thisid:SoonBiz.Execute(sql):SoonBiz.execute("update "& sheethead &"_message set reps=reps-1 where id="&forumid):SoonBiz.DoPoint delremessagepoint,uid,nickname,cid,thisid,"删除贴子","":Case "changeclass" :changeclass:Case "changetopic" :changetopic:Case "lockuser" :SoonBiz.execute("update "& sheethead &"_user set user_islock=1 where user_gid>1 and id="&SoonBiz.rid("uid")):SoonBiz.kick(SoonBiz.rid("uid")):End Select:SoonBiz.Delxml SoonBiz.Getxn("read",cid,classid,id,topicid,0):Sucmsg="<li>操作成功</li>":SoonBiz.success(Sucmsg):End Sub:Sub savestyle()'in::as'+:how"saidon|"get/"becausemake{
If (Not isclassmaster) And (Not SoonBiz.ismaster) Then
ShowErr("管理员和版主才可进行此操作")
End If:Dim titlecolor,titleweight,titledecoration:Dim titlestyle,titlestylecode:Dim sql:titlecolor=SoonBiz.Requeststr("颜色","titlecolor","post",1,3,8,30,0):titleweight=SoonBiz.Requeststr("字体","titleweight","post",1,3,8,30,0):titledecoration=SoonBiz.Requeststr("修饰","titledecoration","post",1,3,16,30,0):ShowErr("")
If len(titlecolor)>0 Then titlestylecode="color:"& titlecolor &";"
If len(titleweight)>0 Then titlestylecode=titlestylecode & "font-weight:"& titleweight &";"
If len(titledecoration)>0 Then titlestylecode=titlestylecode & "text-decoration:"& titledecoration &";"']::himover:for:did:}had;)"couldbeen$her
If len(titlestylecode)>0 Then titlestylecode="style="""& titlestylecode &""""
titlestyle=titlecolor&"|"&titleweight&"|"&titledecoration:sql="update "& sheethead &"_message set titlestyle='"& SoonBiz.Checkstr(titlestyle) &"',titlestylecode='"& SoonBiz.Checkstr(titlestylecode) &"' where id="&id:SoonBiz.execute(sql):SoonBiz.success("<li>操作成功</li>"):End Sub
%>