UC知道ASP分页不显示
来源：百度知道 编辑：UC知道 时间：2024/05/26 23:16:12
<%
dim LID
LID=trim(request("LID"))
set rs=server.CreateObject("adodb.recordset")
sql="select * from Cata where C_RootID='"&LID&"'"
rs.Open sql, Conn, 0, 1
if not rs.eof then
rs.close
set rs=nothing
end if
Sub ShowPage(rs,page) '显示结果集中的指定页
Response.write("<table border=0>")
rs.AbsolutePage=Page
For i=1 to rs.PageSize
response.write("<tr>")
response.write("<td><a href=show.asp?sid=" & rs.Fields(0).Value & ">" & rs.Fields(1).Value & "</a></td>")'该行的 rs.Fields(0).Value 就是表SCHOOL中的第1行S_ID，既是相当于rs("S_ID")
' 而rs.Fields(1).Value意思就是表中的第2行，既是标题S_Title
response.write("</tr>")
rs.MoveNext
if rs.eof then exit for
next
response
dim LID
LID=trim(request("LID"))
set rs=server.CreateObject("adodb.recordset")
sql="select * from Cata where C_RootID='"&LID&"'"
rs.Open sql, Conn, 0, 1
if not rs.eof then
rs.close
set rs=nothing
end if
Sub ShowPage(rs,page) '显示结果集中的指定页
Response.write("<table border=0>")
rs.AbsolutePage=Page
For i=1 to rs.PageSize
response.write("<tr>")
response.write("<td><a href=show.asp?sid=" & rs.Fields(0).Value & ">" & rs.Fields(1).Value & "</a></td>")'该行的 rs.Fields(0).Value 就是表SCHOOL中的第1行S_ID，既是相当于rs("S_ID")
' 而rs.Fields(1).Value意思就是表中的第2行，既是标题S_Title
response.write("</tr>")
rs.MoveNext
if rs.eof then exit for
next
response
你到我的空间里看看吧: 199248375 .你看看吧.上面有一个我的分页教程.
晕！上一页下一页的时候你都要带参数啊，也就是select后面的值。
BOF 属性：目前指标指到 RecordSet 的第一笔。
EOF 属性：目前指标指到 RecordSet 的最后一笔。
Move 方法：移动指标到 RecordSet 中的某一条记录。
AbsolutePage 属性：设定当前记录的位置是位于哪一页
AbsolutePosition 属性：目前指标在 RecordSet 中的位置。
PageCount 属性：显示 Recordset 对象包括多少“页”的数据。
PageSize 属性：显示 Recordset 对象每一页显示的记录数。
RecordCount 属性：显示 Recordset 对象记录的总数。
<%
set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open Server.MapPath("\")&"\1991.mdb"
dim sql,conn,rs,n
sql="select * from luntan"
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,1
'分页代码--
if not isempty(request("page")) then
pagecount=cint(request("page"))
else
pagec