UC知道asp 分页出错,急!急!帮忙?
来源：百度知道 编辑：UC知道 时间：2024/05/17 20:41:42
<%
Response.Write"<table width='100%' border='0' cellspacing='0' cellpadding='0' class='Index
-Center4'>"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.pagesize = 10
rs.cachesize = 10
rs.open sql,conn,1,1
ipagecount = rs.pagecount
if request.querystring("page")="" then
ipagecurrent=1
else
ipagecurrent=cint(request.querystring("page"))
end if
If ipagecurrent > ipagecount Then ipagecurrent = ipagecount
If ipagecurrent < 1 Then ipagecurrent = 1
if ipagecount=0 then
response.write"<tr><td align='center'>暂无相关内容！</td></tr>"
end if
end if
end if
irecordcount=rs.recordcount
rs.Close
set rs=nothing
Response.Write"</table>"
ProductsShu=10
%></td>
<%
'=========产品
Response.Write"<table width='100%' border='0' cellspacing='0' cellpadding='0' class='Index
-Center4'>"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.pagesize = 10
rs.cachesize = 10
rs.open sql,conn,1,1
ipagecount = rs.pagecount
if request.querystring("page")="" then
ipagecurrent=1
else
ipagecurrent=cint(request.querystring("page"))
end if
If ipagecurrent > ipagecount Then ipagecurrent = ipagecount
If ipagecurrent < 1 Then ipagecurrent = 1
if ipagecount=0 then
response.write"<tr><td align='center'>暂无相关内容！</td></tr>"
end if
end if
end if
irecordcount=rs.recordcount
rs.Close
set rs=nothing
Response.Write"</table>"
ProductsShu=10
%></td>
<%
'=========产品
set rs = server.createobject("adodb.recordset")
sql= "select * from jianyi where user='" & session("adminname") & "' order by Infotime desc "
rs.PageSize = 15 '这里设定每页显示的记录数
rs.CursorLocation = 3
rs.Open sql,conn,0,2,1
fenye=0
pre = true
last = true
page = trim(Request.QueryString("page"))
if len(page) = 0 then
intpage = 1
pre = false
else
if cint(page) =< 1 then
intpage = 1
pre = false
else
if cint(page)>=rs.PageCount then
intpage = rs.PageCount
last = false
else
intpage = cint(page)
end if
end if
end if
if not rs.eof then
rs.AbsolutePage = intpage
end if
--------------------------------------------------------------
if rs.Bof or rs.EOF then ContentList="还没有相关内容！"
if rs.recordcount>rs.pagesize then
fenye=rs.