<%
on error resume next
dim pmcount,pageno
'//设置每页新闻数目
pmcount=news_front_count
dim rs,sql
set rs=server.createobject("adodb.recordset")
s_keyword = trim(request("keyword"))
s_cataid = trim(request("cataid"))
sub getNewsBoardTree()
set rsf=server.CreateObject("adodb.recordset")
sqlf="Select * from newscata order by rootid"
rsf.Open sqlf,conn,1,3
do while not rsf.EOF
tempcataStr=""
Response.Write tempcataStr
rsf.MoveNext
loop
rsf.Close()
set rsf=nothing
end sub
%>
小白羊餐饮--荣誉
