UC知道让我弄了一上午的 ASP分页显示
来源：百度知道 编辑：UC知道 时间：2024/06/28 06:32:14
<TD>
<%
typeid=request("typeid")
if typeid="" then
typeid="无锡商贸"
end if
set rs=server.createobject("adodb.recordset")
rs.open "select * from xibu where type='"&typeid&"' order by time desc ",conn,1,1
%>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD height="300" align="left" valign="top">
<%do while not rs.eof%>
<table width="95%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="17" align="left" valign="top"><img src="img/item_04.gif" width="15" heigh
<%
typeid=request("typeid")
if typeid="" then
typeid="无锡商贸"
end if
set rs=server.createobject("adodb.recordset")
rs.open "select * from xibu where type='"&typeid&"' order by time desc ",conn,1,1
%>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD height="300" align="left" valign="top">
<%do while not rs.eof%>
<table width="95%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="17" align="left" valign="top"><img src="img/item_04.gif" width="15" heigh
先确定你每页要显示几条
用rs.pagesize=5,5就是你每页显示5条
rs.pagesize=5
page=request("page")
If Not IsNumeric(page) Then
page=1
ElseIf page<0 Then
page=1
ElseIf CInt(page)>CInt(rs.pagecount) Then
response.write rs.pagecount&"<br>"
page=rs.pagecount
Else
page=CInt(page)
End If
response.write "总共"&rs.recordcount&"条记录,当前第"&page&"页 共"&rs.pagecount&"页<br>"
rs.absolutepage=page
i=0
While i<rs.pagesize And Not rs.eof
response.write "------"&rs("你表中要显示的内容")&"-----"&rs("你表中要显示的内容")&"<br>"
rs.movenext
i=i+1
Wend
response.write "<a href=(名称).asp?page=1 target=self>第一页</a>"
If page>2 Then
response.write "<a href=(名称).asp?page="&page-1&" target=self>上一页</a>"
End If
If page<rs.pagecount