<%
on error resume next
dim pmcount,pageno
'//设置每页新闻数目
pmcount=news_front_count
dim rs,sql
set rs=server.createobject("adodb.recordset")
s_keyword = RtnReplaceString(trim(request("keyword")))
s_cataid = RtnReplaceInt(trim(request("cataid")),0)
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
%>
山东省农业管理干部学院网络中心欢迎您