我们网站以前的一个程序员做的分页是这样的
<%
sql_all="select productid,productname,hot,tuicommend,taocommend,dancommend,cruisename,shipname,cruiseen,shipurl,passarea,passregion,priceadult,moneytype,typeshow,pricenotes,stardate,starport,endport,totalday,prophoto from v_product where "&sql&" and delflag=0 order by tuicommend desc,sortid desc"
'response.Write(sql_all)
set rs=server.createobject("adodb.recordset")
rs.open sql_all,conn,3,1
rs.pagesize=pagesz
total=rs.recordcount
pa=cint(total/pagesz)
tmp=total/pagesz-pa
if tmp>0 then pa=pa+1
if pa=0 then pa=1
if page="" then page=1
if page < 1 then page=1
if cint(page)>rs.pagecount then page=rs.pagecount
if not rs.eof then
rs.absolutepage=page
end if
if total=0 then
%>
暂无线路
<%else%>
<%
rs.movenext
if rs.bof or rs.eof then exit for
next
%>
<table width="100%" border="0" cellspacing="0" cellpadding="5">
<tr>
&nb
