救高手指点一下，代码需求如下！
<div class="weekly_content_list">
<%'开始分页
Const MaxPerPage=2
dim totalPut
dim CurrentPage
dim TotalPages
dim j
if Not isempty(request("page")) then
currentPage=Cint(request("page"))
else
currentPage=1
end if
Set Rs = Db.CreateRS()
sql="select * from weekly"
sql="select * from weeklySort where ID>0"
namekey=FLib.SafeSql(Request("namekey"))
if namekey<>"" then
sql=sql&" and SortName like '%"&namekey&"%'"
end if
if SortID<>"" then
sql=sql&" and SortID="&SortID&""
end if
sql=sql&" order by PX desc"
Rs.Open Sql, Db.Conn, 1, 1
if err.number<>0 then
response.write "数据库中无数据"
end if
if rs.eof And rs.bof then
Response.Write "<p align='center' class='contents'> 没有此类信息！<a href='#' onclick='history.go(-1);'>返回上一步</a></p>"
else
totalPut=rs.recordcount
if currentpage<1 then
currentpage=1
end if
if (currentpage-1)*MaxPerPage>totalput then
if (totalPut mod MaxPerPage)=0 then
currentpage= totalPut \ MaxPerPage
else
currentpage= totalPut \ MaxPerPage + 1
end if
end if
if currentPage=1 then
showContent
showpage totalput,MaxPerPage,"weekly.asp"
else
if (currentPage-1)*MaxPerPage<totalPut then
rs.move (currentPage-1)*MaxPerPage
dim bookmark
bookmark=rs.bookmark
showContent
showpage totalput,MaxPerPage,"weekly.asp"
else
currentPage=1
showContent
showpage totalput,MaxPerPage,"weekly.asp"
end if
end if
end if
sub showContent
dim i
i=0
%>
<div>
<%
cols=3
do while not rs.eof
if abc mod cols=0 then response.Write("<tr>")
abc=abc+1
%>
<div class="weekly_content_list_table">
<div class="weekly_content_list_time">
<img src="../<%=rs("SmallPic")%>" />
</div>
<div class="weekly_content_list_name" style="background-color:#999; text-align:center; font-size:17px;"><%=rs("SortName")%></div>
<div class="weekly_content_list_name">
<li><a href="#">小标题2</a></li>
<li><a href="#">小标题2</a></li>
<li><a href="#">小标题2</a></li>
<li><a href="#">小标题2</a></li>
</div>
</div>
<%
i=i+1
if i>=MaxPerPage then Exit Do
rs.movenext
loop
rs.close
set rs=nothing%>
</div>
</div>
[解决办法]
完整的分页例子
<table border="0" width="775" id="table39" height="466" cellspacing="0" cellpadding="0" align="center">
<tr>
<%
'=======================================================显示商品===================================================================================
t1 = request.QueryString("t1")
if t1="zuixin" then
'conditions=" order by adddate desc"
sql="select * from shop_products where deleteid=0 order by adddate desc"
elseif t1="tese" then
sql="select * from shop_products where deleteid=0 and sytstj=1 order by adddate desc"
elseif t1="rexiao" then
sql="select * from shop_products where deleteid=0 order by chengjiaocount desc"
elseif t1="zhekou" then
sql="select * from shop_products where deleteid=0 order by huiyuanjia asc"
else
sql="select * from shop_products where deleteid=0 order by adddate desc"
end if
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.Write("<td width='151' height='146'>暂无商品！</td>")
else
rs.PageSize =16 '每页记录条数
iCount=rs.RecordCount '记录总数
iPageSize=rs.PageSize
maxpage=rs.PageCount
page=request("page")
if Not IsNumeric(page) or page="" then
page=1
else
page=cint(page)
end if
if page<1 then
page=1
elseif page>maxpage then
page=maxpage
end if
rs.AbsolutePage=Page
if page=maxpage then
x=iCount-(maxpage-1)*iPageSize
else
x=iPageSize
end if
zx=0
For i=1 To x
%>
<td width="151" height="140" align="center">
<table border="0" cellpadding="0" cellspacing="0" align="center">
<tr>
<td align="center" width="155" height="134">
<%
if rs("bookpic")="" then
response.Write("暂无商品图片！")
else
%>
<a href='view_shop.asp?pid=<%=rs("bookid")%>'><img border="0" src='<%=rs("bookpic")%>' width="120" height="140" border="0"></a>
<% end if%>
</td>
</tr>
<tr>
<td align="center">
<%
if len(rs("bookname"))>10 then
response.Write("<span style='font-size: 9pt'><a href='view_shop.asp?pid="&rs("bookid")&"'><font color='#FD5322'>"&left(rs("bookname"),10)&"</font></a></span>")
else
response.Write("<span style='font-size: 9pt'><a href='view_shop.asp?pid="&rs("bookid")&"'><font color='#FD5322'>"&rs("bookname")&"</font></a></span>")
end if
%></td>
</tr>
<tr><td align="center">
<span style='font-size: 9pt'><font color="#4F4F4F">原价:<%=rs("shichangjia")%>元 现价:</font></span><font color="#226F24"><span style="font-size: 9pt; font-weight: 700"><%=rs("huiyuanjia")%></span></font><span style="font-size: 9pt">元</span>
</td></tr></table></td>
<%
rs.movenext
zx=zx+1
if zx mod 4=0 then
%>
</tr>
<%
else
end if
next
rs.close()
set rs = nothing
%>
<tr><td colspan="4">
<span style="PADDING-RIGHT: 0px; PADDING-LEFT: 0px; FONT-SIZE: 9pt; PADDING-BOTTOM: 0px; MARGIN: 0px; PADDING-TOP: 0px">
<p align="center"><font color="#4F4F4F">
<%
call PageControl(iCount,maxpage,page,"border=0 align=center","<p align=center>")
end if
rs.close
set rs=nothing
Sub PageControl(iCount,pagecount,page,table_style,font_style)
'生成上一页下一页链接
Dim query, a, x, temp
action = "http://" & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME")
query = Split(Request.ServerVariables("QUERY_STRING"), "&")
For Each x In query
a = Split(x, "=")
If StrComp(a(0), "page", vbTextCompare) <> 0 Then
temp = temp & a(0) & "=" & a(1) & "&"
End If
Next
Response.Write("<table width=100% border=0 cellpadding=0 cellspacing=0 >" & vbCrLf )
Response.Write("<form method=get onsubmit=""document.location = '" & action & "?" & temp & "Page='+ this.page.value;return false;""><TR >" & vbCrLf )
Response.Write("<TD align=center height=40>" & vbCrLf )
Response.Write(font_style & vbCrLf )
if page<=1 then
Response.Write ("<font size='2' color='#555555'>首 页 </font>" & vbCrLf)
Response.Write ("<font size='2' color='#555555'>上一页 </font>" & vbCrLf)
else
Response.Write("<A HREF=" & action & "?" & temp & "Page=1><font size='2' color='#555555'>首 页</font></A> " & vbCrLf)
Response.Write("<A HREF=" & action & "?" & temp & "Page=" & (Page-1) & "><font size='2' color='#555555'>上一页</font></A> " & vbCrLf)
end if
if page>=pagecount then
Response.Write ("<font size='2' color='#555555'>下一页 </font>" & vbCrLf)
Response.Write ("<font size='2' color='#555555'>尾 页 </font>" & vbCrLf)
else
Response.Write("<A HREF=" & action & "?" & temp & "Page=" & (Page+1) & "><font size='2' color='#555555'>下一页</font></A> " & vbCrLf)
Response.Write("<A HREF=" & action & "?" & temp & "Page=" & pagecount & "><font size='2' color='#555555'>尾 页</font></A> " & vbCrLf)
end if
Response.Write("<font size='2' color='#555555'> 页次</font>：<font size='2' color='#555555'>" & page & "/" & pageCount & "</font><font size='2'>页</font>" & vbCrLf)
Response.Write("<font size='2' color='#555555'> 共有</font><font size='2' color='#555555'>" & iCount & "</font><font size='2' color='#555555'>种商品</font>" & vbCrLf)
Response.Write("<font size='2' color='#555555'> 转到</font>" & "<INPUT CLASS=wenbenkuang TYEP=TEXT NAME=page SIZE=2 Maxlength=5 VALUE=" & page & ">" & "<font size='2' color='#555555'>页</font>" & vbCrLf & "<INPUT CLASS=go-wenbenkuang type=submit value=GO>")
Response.Write("</TD>" & vbCrLf )
Response.Write("</TR></form>" & vbCrLf )
Response.Write("</table>" & vbCrLf )
End Sub
%></font></p></span>
</td></tr>
</table>
