<%
jtype=request.QueryString("jtype")
if jtype="" then jtype="供应"
sql3="select * from info where flag=1 and jtype like '%"&jtype&"%'"
sql3=sql3&" order by dateandtime desc"
set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql3,conn,1,1
if not rs.eof then
dim page_size,page_total,page_no,startp,endp,start
page_size=10
page_no=request.QueryString("mypage")
start=request.QueryString("start")
if not(isnumeric(start))then
start=0
end if
startp=start*8+1
endp=(start+1)*8
rs.pagesize=page_size
page_total=rs.pagecount
if rs.pagecount>8 then
startend=int(rs.pagecount/8)
end if
if page_no="" then
page_no=startp
elseif not(isnumeric(page_no)) then
page_no=1
else
page_no=page_no
end if
if cint(page_no) > rs.pagecount then
page_no = rs.pagecount
end if
rs.absolutepage=page_no
if endp>page_total then
endp=page_total
end if
dim j
j=10
do while not rs.eof and j>0
j=j-1
%>