<!--#include file="setting/conn.asp"--><!--#include file="inc/cls_article.asp"-->
<%:SoonBiz.chkcls("edit"):act=SoonBiz.ract:Select Case act:Case "editmessage" : editmessage:Case "editreply" : editreply:End Select:htmlstr=SoonBiz.HuiQiaoHtml(htmlstr):htmlstr=SoonBiz.replaceallflag(htmlstr):SoonBiz.endhtml:Setallnothing:Sub editmessage():Dim tr:Dim rs,sql:Dim fuyou:Dim jintong(1,2):SoonBiz.readchannel(cid):jintong(0,0)=xmlchannel.getattribute("cha_name") : jintong(1,0)="message.asp?u="&cid:jintong(0,1)=xmlclass.getattribute("title") : jintong(1,1)="messagelist.asp?u="& u:jintong(0,2)="编辑主题" : jintong(1,2)="#":navstate=SoonBiz.GetNavstate(jintong):fuyou="<script type=""text/javascript"">CheckSel(""states"",""{$states}"")</script>":sql="select * from ["& sheethead &"_message] where isdel=0 and classid="& classid &" and uid="& uid &" and id="&id :SoonBiz.iseditor=True:htmlstr=SoonBiz.Tp(cid,pn,"index"):htmlstr=htmlstr & fuyou:htmlstr=Replace(htmlstr,"{$action}","messagepost.asp?act=saveedit&amp;u="& u &"&amp;uid="& uid &"&amp;comeurl="&server.urlencode(Request.ServerVariables("HTTP_REFERER"))):htmlstr=Replace(htmlstr,"{$selectstates}",SoonBiz.optionlist(messagestates,",",0)):htmlstr=Replace(htmlstr,"{$adminimg}","<iframe id=""upfile"" src=""user/user_img.asp?cid="& cid &"&amp;obj=content&amp;fid=m"& id &""" frameborder=""0"" scrolling=""no"" width=""100%"" height=""280""></iframe>"):htmlstr=SoonBiz.ReplaceMdb("",sql,htmlstr,1,1):SoonBiz.title=xmlchannel.getattribute("cha_name") & " - 编辑" & SoonBiz.title:End Sub:Sub editreply():Dim sql:Dim sname,slink:Dim thisid:Dim jintong(1,2):jintong(0,0)=xmlchannel.getattribute("cha_name") : jintong(1,1)="message.asp?u="&cid:jintong(0,1)=xmlclass.getattribute("title") : jintong(1,1)="messagelist.asp?u="& u:jintong(0,2)="编辑回复" : jintong(1,2)="#":navstate=SoonBiz.GetNavstate(jintong):thisid=SoonBiz.rid("thisid"):sql="select * from ["& sheethead &"_remessage] where isdel=0 and classid="& classid &" and uid="& uid &" and forumid="& id &" and id="&thisid:SoonBiz.iseditor=True:htmlstr=SoonBiz.Tp(cid,pn,"edit"):htmlstr=Replace(htmlstr,"{$action}","messagepost.asp?act=savereedit&amp;u="& u &"&amp;uid="& uid &"&amp;thisid="& SoonBiz.rid("thisid") &"&amp;comeurl="&server.urlencode(Request.ServerVariables("HTTP_REFERER"))):htmlstr=Replace(htmlstr,"{$adminimg}","<iframe id=""upfile"" src=""user/user_img.asp?cid="& cid &"&amp;obj=content&amp;fid=m"& id &""" frameborder=""0"" scrolling=""no"" width=""100%"" height=""280""></iframe>"):htmlstr=SoonBiz.ReplaceMdb("",sql,htmlstr,1,1):SoonBiz.title=xmlchannel.getattribute("cha_name") & " - 编辑" & SoonBiz.title:End Sub
%>