<!--#include file="setting/conn.asp"--><%:cid=8:SoonBiz.readchannel(cid):pagemain():htmlstr=SoonBiz.HuiQiaoHtml(htmlstr):htmlstr=SoonBiz.replaceallflag(htmlstr):SoonBiz.endhtml:Setallnothing:Sub pagemain():Dim maxcount,jinlan:Dim sql,rs:classid=SoonBiz.rid("classid")
If classid=-1 Then ShowErr(1022)
Set rs=SoonBiz.execute("select max(hits) from "& sheethead &"_article where cid="& cid &" and classid="&classid):maxcount=rs(0):rs.close:Set rs=Nothing:Set rs=SoonBiz.execute("select sum(hits) from "& sheethead &"_article where cid="& cid &" and classid="&classid):jinlan=rs(0):rs.close:Set rs=Nothing:sql="select * from ["& sheethead &"_article] where classid="&classid&" order by cls asc,id asc ":htmlstr=SoonBiz.Tp(cid,pn,"index"):htmlstr=Replace(htmlstr,"{$allcount}",jinlan):htmlstr=Replace(htmlstr,"{$maxcount}",maxcount):htmlstr=Replace(htmlstr,"{$title}",SoonBiz.getxmlvalue("class","class[@id='"& classid &"']","title")):htmlstr=Replace(htmlstr,"{$trhtml}",SoonBiz.ReplaceMdb("",sql,SoonBiz.Tp(cid,pn,"list"),"",1)):End Sub
%>