ASP分页问题!在线等待！！

来源：百度知道 编辑：UC知道 时间：2024/05/26 13:29:10
我遇到的问题是：我的记录从ACCESS数据库中取出来分页显示，但是参数（bh）是由上一个页面（xx.asp）传过来的，现在是能显示第一个页面，当点击下一个页面的时候，就会显示“暂时没有”代码如下：

<%
dim bhx
bhx="1"
if (request("bh")="")then
%>
<table width="100" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><% response.write "没有收到参数" %></td>
</tr>
</table>
<%
end if
%>
<%
if (request("bh")<>"") then
bhx=request("bh")
exec="select * from dsj where bh="+bhx
set rs=server.CreateObject("adodb.recordset")
rs.open exec,conn,1,1
rs.pagesize=6 '每页的记录数
ipagesize=rs.pagesize
icount=rs.recordcount '记录总数
zongye=rs.pagecount '总共的页数
page=int(request

最好还是把request.querystring写完整。不完整有时总会出现某些错误。

一个简单ASP分页
我用的.

代码太长,懒得看!给你个分页的函数吧!
'=======================================================
'分页显示数据库数据，在SQL数据库中使用无任何问题
'pageRs 打开数据库的对象实例名称
'sqlcommand SQL语句的字符串变量名
'pagenum 每页显示多少条数据库记录
'accountnum 用于输出数据时的循环控制
'filename 分页的超级链接的设置
'例子：splitpage(rs,sql,20,accountnum,"pinpai.asp?action="&request("action")&"&search="&request("search")&"&searchlei="&request("searchlei")&"&keyword="&request("keyword"))
'========================================================
Public Function SplitPage(pageRs,sqlcommand,pagenum,accountnum,filename)
Dim total,page,pages,prepage,endpage
Dim nextpage,firstpage
If Not IsObject(Conn) Then ConnectionDatabase
accountnum=0
set pageRs=server.CreateObject("adodb.recordset")