set rs=conn.execute(sql)
if rs.bof and rs.eof then
response.write "暂时没有任何内容"
else
url="more.asp?typeid="&typeid
rs.pagesize=5
PageNo=request("PageNo")
if PageNo="" or PageNo=0 then PageNo=1
rs.AbsolutePage=PageNo
TSum=rs.pagecount
maxperpage=rs.pagesize
PageNo=PageNo+1
PageNo=PageNo-1
if CINT(pageno)>1 then
if CINT(pageno)>CINT(TSum) then
response.Write("对不起没有您想要的页数")
Response.End
end if
end if
if PageNo<0 then
response.Write("没有这一页!")
Response.End
End if
i=0
do while not rs.eof and i<rs.pagesize
%><table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="344" class="P"><font color=\"#0066cc\">○</font><a href='../<%=rs("path")%>/<%=rs("N_Fname")%>'><%=rs("title")%></a></td>
</tr>
</table>
<%i=i+1
rs.movenext
loop
%>
</td>
</tr>
<tr>
<td height="21"> </td>
<td align="right" valign="top">
<% call showpage(url,rs.RECORDCOUNT,maxperpage,false,true,"条主题") %>
<%end if%>
<%
rs.close
set rs =nothing
conn.close
set conn=nothing
%>
不能显示分页啊。但可以控制每页的条数。