%@language="vbscript"%>
<%
Set RS = Server.CreateObject("ADODB.Recordset")
RS.CursorLocation=3
RS.CursorType=adOpenDynamic
RS.CacheSize=20
RS.ActiveConnection=dbConn
dim col
col=request.querystring("col")
page=request.querystring("page")
if col="" then
col="^行政事业性收费^桂林价格信息网^"
end if
colarr=split(col,"^")
bt=colarr(0)
if bt="收费管理法规" then
bt="收费管理法规及文件"
end if
if bt="收费管理法规" then
bt="收费管理法规及文件"
end if
if page="" then
page=request.form("page")
end if
if page="" then
page=1
end if
SQLstr="select id,title,url,yea,mon,da,hot from web_file where col like '%"+col+"%' and aud=1 order by id desc"
RS.Source = SQLstr
RS.open
RS.PageSize=10
if RS.eof<>true then
if page="" then
RS.AbsolutePage=1
else
RS.AbsolutePage=cint(page)
end if
end if
if RS.AbsolutePage>RS.PageCount then
RS.AbsolutePage=1
end if
%>