<!--#include file="setting/conn.asp"--><!--#include file="inc/cls_article.asp"-->
<%:SoonBiz.chkcls("creat"):creatnew():htmlstr=SoonBiz.HuiQiaoHtml(htmlstr):htmlstr=SoonBiz.replaceallflag(htmlstr):SoonBiz.endhtml:Setallnothing:Sub creatnew():Dim classname,tempxml:Dim jintong(1,2):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="& cid &"w"&classid:jintong(0,2)="发表新主题" : jintong(1,2)="#":navstate=SoonBiz.GetNavstate(jintong):SoonBiz.iseditor=True:SoonBiz.title=xmlchannel.getattribute("cha_name") & "- 发表新主题":htmlstr=SoonBiz.Tp(cid,pn,"index"):htmlstr=Replace(htmlstr,"{$action}","messagepost.asp?act=savenew&amp;u="& cid &"w"& classid &"&amp;comeurl="&server.urlencode(Request.ServerVariables("HTTP_REFERER"))):htmlstr=Replace(htmlstr,"{$selectstates}",SoonBiz.optionlist(messagestates,",",0)):htmlstr=Replace(htmlstr,"{$selecttopic}",SoonBiz.ReplaceMdb("messagecreat","select * from ["& sheethead &"_topic] where cid="& cid &" order by cls asc,id asc","<option value=""{$id}"">{$title}</option>","",1)):htmlstr=Replace(htmlstr,"{$selectclass}","<option value="""& classid &""">"& xmlclass.getattribute("title") &"</option>"):htmlstr=Replace(htmlstr,"{$adminimg}","<iframe id=""upfile"" src=""user/user_img.asp?cid="& cid &"&amp;obj=content"" frameborder=""0"" scrolling=""no"" width=""100%"" height=""280""></iframe>"):HtmlStr=Replace(HtmlStr,"{$mypoint}",mypoint) :End Sub:Function mypoint():Dim rs:Set rs=SoonBiz.execute("select user_point from "& sheethead &"_user where id="&SoonBiz.user_id):mypoint=rs(0):rs.close:Set rs=Nothing:End Function
%>