<% if request("page")="" then
pages=CInt(request.querystring("pages"))
else
pages=CInt(request("page"))
end if
%>
<% ID=request("ID")%>
<% page=CInt(request("page"))%>
<% if ID="" then ID="工程招标"%>
<% zbdate=date-15
set rec=server.createObject("ADODB.Recordset")
sqlmain="select * from bid where (ZBfl='采购公告' or ZBfl='本网采购') and zbti>='"&zbdate&"' and sfsh='1' order by id desc"
sqlmain1="select * from bid where (ZBfl='招标公告' or ZBfl='本网招标') and zbti>='"&zbdate&"' and sfsh='1' order by id desc"
'sqlmain2="select * from bid where ZBfl='中标公告' and zbti>='"&zbdate&"' and sfsh='1' order by id desc"
sqlmain2="select * from bid where ZBfl='中标公告' and sfsh='1' order by id desc"
if ID="工程招标" then
rec.open sqlmain1,con,1
'IDbs="采购招标"
end if
if ID="采购招标" then
rec.open sqlmain,con,1
'IDbs="工程招标"
end if
if ID="中标公告" then
rec.open sqlmain2,con,1
'IDbs="工程招标"
end if
rec.pagesize=13
if pages=0 then
pages=1
rowline=0
else
if pages>rec.pagecount then
rec.move (cint(rec.pagecount)-1)*rec.pagesize
rowline=(cint(rec.pagecount)-1)*rec.pagesize
else
rec.move (pages-1)*rec.pagesize
rowline=(pages-1)*rec.pagesize
end if
end if
%>
<% if pages
