查人人中国名人网怎么样拼读英语单词:ASP 内容分页代码。
来源：百度文库 编辑：查人人中国名人网 时间：2024/05/07 07:20:07
因为一些新闻文字过多，页面会比较长。我想让内容达到一定到数量就自动分页。
这个怎么实现啊。
我是菜鸟。
大家能不能给我一段代码 我让研究研究啊
谢谢大家了。
<%
page =int(Request.QueryString("page"))
set rs=server.createobject("adodb.recordset")
if session("tbyhm")<>"" or session("tbjb")="admin" then
exec="select * from info order by id desc"
rs.open exec,conn,1,1
rs.PageSize =30
If page < 1 Then page = 1
If page > rs.PageCount Then page = rs.PageCount
if not rs.eof then rs.AbsolutePage =page%>
<table width="100%" border="0" cellpadding="1" cellspacing="1" align="center">
<tr bgcolor="#CCD8E6">
<Td align="center" width="10%">序 号</Td>
<td align="center" width="29%">标 题</td>
<td align="center" width="10%">类 型</td>
<td align="center" width="20%">时 间</td>
</tr>
<%For i = 1 To rs.PageSize
If rs.EOF Then Exit For%>
<tr bgcolor="#E3E9F1">
<td align="center">
<%=rs.pagesize*(page-1)+cstr(i)%></td>
<td align="center"><%=rs("title")%></td>
<td align="center"><%=rs("type")%></td>
<td align="center"><%=rs("date")%></td>
</tr>
<%rs.movenext
next%>
</table>
<TABLE> <TBODY>
<TR>
<TD width=100% colspan="2" align=middle vAlign=top bordercolor="#FFFFFF"><center>
<hr size="0" color="#CCD8E6" width="778">
第
<%for i=1 to rs.PageCount%>
<a href="chakan.asp?lx=<%=lx%>&page=<%=i%>">
<%if i=page then
response.write i
else
response.write "["+cstr(i)+"]"
end if%>
</a>
<%next%>
页
</p>
</center>
<%end if
rs.close
conn.close
set conn=nothing%></TD>
</TR>
</TBODY></TABLE>