%
on error resume next
page=request("page")
if page="" then
page=1
end if
datejsq=Year(Now())&"-"&Month(Now())&"-"&Day(Now())
dim rsjsq,sqljsq
call Connstart(str_conn)
sqljsq ="select * from jsq where rq between '"+datejsq+"' and '"+datejsq+"' and ym like '%[服务中心]-网站地图%'"
set rsjsq=server.CreateObject ("adodb.recordset")
rsjsq.open sqljsq,conn,1,3
if rsjsq("id")="" then
rsjsq.addnew
rsjsq("ym")="[服务中心]-网站地图"
rsjsq("number")=1
rsjsq("rq")=date()
rsjsq.update
else
rsjsq("number")=rsjsq("number")+1
rsjsq.update
end if
dim rsjsq1,sqljsq1
call Connstart(str_conn)
sqljsq1 ="select * from jsq1 where ym like '%[服务中心]-网站地图%'"
set rsjsq1=server.CreateObject ("adodb.recordset")
rsjsq1.open sqljsq1,conn,1,3
if rsjsq1("id")="" then
rsjsq1.addnew
rsjsq1("ym")="[服务中心]-网站地图"
rsjsq1("number")=1
rsjsq1.update
else
rsjsq1("number")=rsjsq1("number")+1
rsjsq1("rq")=date()
rsjsq1.update
end if
dim rs,sql
call Connstart(str_conn)
sql ="select * from air_zhengce_guonei order by rq desc "
set rs=server.CreateObject ("adodb.recordset")
rs.open sql,conn,1,3
rs.pagesize=3000
dim rs1,sql1
call Connstart(str_conn)
sql1 ="select * from air_time order by rq desc "
set rs1=server.CreateObject ("adodb.recordset")
rs1.open sql1,conn,1,3
rs1.pagesize=5000
%>