<table style="margin:0px auto" width="1000" height="344" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#F1F1F1">
<tr>
<td height="344" colspan="12" align="center" valign="middle">
<%
set rs=server.createobject("adodb.recordset")
exec="select top 9 * from Info where tj=*1* order by rq desc "
rs.open exec,conn,1,1
if rs.eof then
response.Write " 暂无产品！"
else
rs.PageSize =12 *每页记录条数
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
%>
<%For i=1 To x%>
<div style="float:left;padding-left:19px;">
<table width="308" border="0" cellpadding="0" cellspacing="10" bgcolor="#FFFFFF">
<tr>
<td height="127"><div align="center"><a href="view.asp?id=<%=rs("id")%>" title="<%=rs("title")%>"
class="img"><img src="<%=rs("pic")%>" width="280" height="150" align="middle" /></a></div></td>
</tr>
<tr>
<td height="33" align="left"><a href="view.asp?id=<%=rs("id")%> " title="<%
=rs("title")%>" class="STYLE1"><%=left(rs("title"),20)%></a></td>
</tr>
<tr>
<td height="85" align="left" valign="top"><%=left(rs("content"),80)&"..."%></td>
</tr>
</table>
</div>
<%rs.movenext
next
%>
<%
end if
%></td>
</tr>
</table>

rs.PageSize =9 *每页记录条数
iCount=rs.RecordCount *记录总数
iPageSize=rs.PageSize
maxpage=rs.PageCount
page=request("page")
if Not IsNumeric(page) or page="9" 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
%>
根本实现不了分页啊