<!--#include file="setting/conn.asp"--><!--#include file="inc/cls_article.asp"-->
<%:SoonBiz.chkcls("index"):SoonBiz.title=xmlchannel.getattribute("cha_name"):SoonBiz.metakeywords=xmlchannel.getattribute("cha_tags"):SoonBiz.metadescription=xmlchannel.getattribute("cha_readme"):htmlstr=SoonBiz.Tp(cid,pn,"index"):HtmlStr=Replace(HtmlStr,"{$grouplist}",SoonBiz.ReplaceClass("message",cid,0,SoonBiz.Tp(cid,pn,"group"),"class1")):HtmlStr=ReadClassbar(HtmlStr):pagemain ():htmlstr=SoonBiz.huiqiaoHtml(htmlstr):htmlstr=SoonBiz.replaceallflag(htmlstr):SoonBiz.endhtml:Setallnothing:Function ReadClassBar(ByVal str):Dim flag,setting:Dim arrflag,arrsetting:Dim arrsettings:Dim j:Dim fileflag :fileflag="{$classbar(":flag=SoonBiz.CutMatchContent(str, fileflag, ")}", 1) & "|||":setting=SoonBiz.CutMatchContent(str, fileflag, ")}", 0) & "|||":arrflag=Split(flag, "|||"):arrsetting=Split(setting, "|||"):For j=0 To UBound(arrflag)-1:arrsettings=Split(arrsetting(j),","):str=Replace(str, arrflag(j), LoadClassBar(arrsettings(0))):Next:ReadClassBar=str:End Function:Function LoadClassBar(pid):Dim tr:tr=SoonBiz.Tp(cid,pn,"class"):tr=Replace(tr,"{$readhref}","messagelist.asp?u={$cid}w{$id}"):LoadClassBar=SoonBiz.ReplaceClass("message.asp",cid,pid,tr,"current"):End Function
%>