%
dim pageno,row,i
pageno=trim(request("pageno"))
if pageno="" then
pageno=1
end if
row=0
strDetails="select * from tb_zcdh where lm like '"&request("lm")&"%' order by id desc "
set rsDetails=Server.CreateObject("Adodb.Recordset")
rsDetails.pagesize=12
rsDetails.open strDetails,cnn,3,2
rsDetails.absolutepage=cint(pageno)
pg=rsDetails.pagecount
pk=cint(pg)-cint(pageno)
if request("lm")="zcfg" then
lm="-法律法规"
else if request("lm")="ldjh" then
lm="-领导讲话"
else if request("lm")="tztg" then
lm="-通知公告"
else if request("lm")="tzgg" then
lm="-体制改革"
else lm=""
end if
end if
end if
end if
%>