asp分页问题?我点"上一页"没反映,点下一页就出现图中的现象,代码如下,什么情况帮忙看一下?
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
</head>
<body>
<!--#include file = "adovbs.inc" -->
<%
dim cnn,rst,access,currentpage,rowcount,i
currentpage = request.querystring("currentpage")
if currentpage = "" then
currentpage = 1
end if
set cnn = server.CreateObject("adodb.connection")
set rst = server.CreateObject("adodb.recordset")
cnn.connectionstring = "provider = microsoft.Jet.oledb.4.0; data source=" & server.mappath("fww0404.mdb")
cnn.open
rst.cursortype = adopenstatic
rst.pagesize = 5
access = "select * from zhuti"
rst.open access, cnn
rst.absolutepage = CInt(currentpage)
rowcount = 0
%>
<tr>
<%
for i = 2 to rst.fields.count - 1
%>
<% = rst(i).name %>
<% next %>
</tr>
</br>
<%
while not rst.eof and rowcount < rst.pagesize
%>
<tr>
<% for i = 2 to rst.fields.count - 1 %>
<td><% = rst(i) %></td>
<% next %>
</br>
<%
rowcount = rowcount + 1
rst.movenext
wend
%>
</tr>
<p>共<% =rst.pagecount %>
当前页次：<% = currentpage %>/<% = rst.pagecount %>
<%
for i = 1 to rst.pagecount
next
currentpage = i
%>
<a href="zhuti.asp?page=1">首页</a> |
<%if currentpage>1 then %><a href="zhuti.asp?currentpage=<%=currentpage - 1%>"><%end if%>上一页</a> |
<%if 1 < currentpage < pagecount then %><a href="zhuti.asp?currentpage=<%=currentpage + 1%>"><%end if%>下一页</a> |
<a href="zhuti.asp?currentpage=<%=rst.pagecount%>">尾页</a>
</p>
</body>
</html>
图的效果如下:
共5页 5/7页 首页 上一页 下一页 尾页 这就是点"下一页"出现的情况,当然分页的内容我就不写了.
-----------------------下面保存为search.asp--------------------------
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>文件</title>
</head>
<body bgcolor="#ffffff">
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<script>
function btn_ck_bh_Click()
{
var cx = document.form1.cxsj.value;
form1.action ="search.asp?cx="+cx;
}
</script>
<table border="1" cellspacing="0" bgcolor="#F0F8FF" bordercolorlight="#4DA6FF" bordercolordark="#ECF5FF" width="88%" style="word-break:break-all">
<tr>
<td width="778" align="center" colspan="7">
<form method="POST" name="form1" action=search.asp>
<p>输入搜索内容:<input type="text" name="cxsj" size="20"><input type="submit" value="提交" name="B1" LANGUAGE="javascript" onclick="btn_ck_bh_Click()">
<input type="reset" value="重写" name="B2"></p>
</form>
</td>
</tr>
</table>
<table border="1" cellspacing="0" bgcolor="#F0F8FF" bordercolorlight="#4DA6FF" bordercolordark="#ECF5FF" width="88%" style="word-break:break-all">
<tr>
<td width="8%" align="center"><strong><font color="#0080C0">ID 号</font></strong></td>
<td width="58%" align="center"><strong><font color="#0080C0">标 题</font></strong></td>
<td width="8%" align="center"><strong><font color="#0080C0">修 改</font></strong></td>
<td width="8%" align="center"><strong><font color="#0080C0">删 除</font></strong></td>
</tr>
<%
'数据库查询
'获得搜索内容
cx = request("cx")
dim pageCount
'把page转换成整数
page = cint(request("page"))
set conn=server.createobject("adodb.connection")'
set rs=server.createobject("adodb.recordset")
conn.open "DBQ=" & server.mappath("./news.mdb") & ";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
' 获取产品的名字记录集（从 news表中）
if cx <> "" then
sql = "select * from news where title like '%"&cx& "%' order by id desc"
else
sql ="select * from news order by id desc"
end if
rs.open sql,conn,3,3
'如果没有数据记录
if rs.bof then
errmsg=errmsg+"<br>"+"<li>"+keyword+"没有记录,请返回!!"
response.write errmsg
response.end
end if
' 设置记录集在每页的总行数，也就是 PageSize属性
RS.PageSize=40
'把rs.pageCount转换成整数和page才能作比较
pageCount = cint(rs.pageCount)
' 设置当前的页号（ AbsolutePage属性）
if page = 0 then
page =1
end if
RS.AbsolutePage = page
x=1
' 显示当前页中的所有记录（ PageSize中设置的行数）
WHILE NOT RS.EOF AND NumRows<RS.PageSize
%>
<tr onmouseover="this.bgColor='#99ccff'" onmouseout="this.bgColor=''">
<td width="8%"><p align="center"><%=rs("id")%></td>
<td width="58%"><a href="view.asp?id=<%=rs("id")%>" target="_blank"><%=rs("title")%></a></td>
<td width="8%" align="center"><a href="edit.asp?id="<%=rs("id")%>>修 改</a></td>
<td width="8%" align="center"><a href="delet.asp?id="<%=rs("id")%>>删 除</a></td>
</tr>
<%RS.MoveNext
NumRows=NumRows+1
WEND%>
<tr onmouseover="this.bgColor='#99ccff'" onmouseout="this.bgColor=''">
<td width="105%" align="center" colspan="6"> </td> </tr>
<tr>
<td width="105%" align="center" colspan="6">
<p align="center"><FONT color=#333333>共<%=PageCount%>页 第<%=page%>页★
<%if page=1 then%>首页<%end if%>
<%if page>1 then%>
<A HREF="search.asp?page=1&cx=<%=cx%>"> 首页</A>
<%end if%>★
<%if page>1 then%><A HREF="search.asp?page=<%=page-1%>&cx=<%=cx%>"><%end if%>上一页</a>
<%
dim pagewhere
dim p
p = 1
'把pagewhere转换成整数
'pagewhere = cint(request("pagewhere"))
pagewhere = pageCount
if pagewhere>0 then
for p=1 to pagewhere
if p <> page then%>
<A HREF="search.asp?page=<%=p%>&cx=<%=cx%>"><%=p%></a>
<%end if
if p =page then%>
<%=p%>
<% end if
next
end if%>
<%if page < PageCount then%>
<A HREF="search.asp?page=<%=page+1%>&cx=<%=cx%>">
<%end if %>下一页</A>★
<%if page=PageCount then%>尾页
<%end if%>
<%if page<PageCount then%>
<A HREF="search.asp?page=<%=PageCount%>&cx=<%=cx%>"> 尾页</A>
<%end if%>
</p></FONT></td> </tr> <tr>
<td width="105%" align="center" colspan="6">搜索内容:<%=cx%></td>
</tr>
</table></center></div>
</body></html>
<%
rs.close
Set rs=nothing
conn.close
set conn=nothing
%>
asp分页问题?我点"上一页"没反映,点下一页就出现图中的现象,代码如下...
pageCount = cint(rs.pageCount)' 设置当前的页号（ AbsolutePage属性）if page = 0 then page =1 end if RS.AbsolutePage = page x=1 ' 显示当前页中的所有记录（ PageSize中设置的行数）WHILE NOT RS.EOF AND NumRows<RS.PageSize > <%=rs("id")%> <a href="view.asp?id=<%=r...
急!ASP分页代码问题,为什么第一页显示正常,点下一页就会报错?
我没仔细看你的代码，从你说的问题看，问题应该出在 <a href="wstj-d.asp?page=<%=((page2+1)*x)-(x-1)%>&k=<%=page2+1%>">后<%=x%>页 这句代码上，你没有把变量传递给要打开的页面
asp网页高手帮帮忙,搜索分页点“下一页”就显示乱码
你的关键字没有urlencode tempstr=server.urlencode(request('sous'))然后 <a href='jieguo.asp?sous=<%=tempstr%>?page=<%=page-1%>'>上一页 <%end if%> <%if rs.eof then%> <%else%> <a href='jieguo.asp?sous=<%=tempstr%>?page=<%=page+1%>'>下一页 ...
asp 分页不能实现。点击下一页总是出现的是第一页
看了你的代码，老火，很难读，以后要多写一些可读性强的代码，下面是我发现的一些问题：1、在每一个链接（ href='"& hrefto &"page="& page+1 & hrefname &"'）上仔细看看，hrefto 参数是什么格式的，如果参数连接没有连接符（&）结束，要在"page="前加&符号（href='"& hrefto &"&pag...
ASP数据分页显示问题(看下面代码)
设置一个变量，将分页相关的内容存到变量里面，然后循环之后再用变量显示分页代码 urlstr = ""If Page <> 1 Then urlstr = urlstr & "<A HREF=xxxx.asp?Page=1>第一页<\/A>?"urlstr = urlstr & "<A HREF=xxxx.asp?Page=" & (Page-1) & ">上一页<\/A>?"End If If Page <> ...
asp分页代码问题,请大神帮我
在下一页的时候ZhuangTai=trim(request.Form("DanXuan1"))这个参数要传过去，这里接收改为ZhuangTai=trim(request("DanXuan1"))这个<a href="SQLChaXun.asp?page=<%=epage+1%>">后一页| 要改成<a href="SQLChaXun.asp?DanXuan1=<%=ZhuangTai%>&page=<%=epage+1%>">后一页| ，同理别...
...asp代码显示“上一页 下一页”等信息 代码如下 点击都是显示的全部...
我没有看到类似 pageno = Request.QueryString("pageno") 的代码, 不知道是不是你代码没贴全, 但是如果你从没给 pageno 变量赋过值的话,那它在程序里将永远是1, 所以你看到的都是第1页. 检查一下吧.追加回答:=== 用以下代码替换标签与标签之间的代码.< sql1="select * from Conews where...
高分求教:ASP分页问题,上一页、下一页不能用,急急急
ASP代码很眼花。给你一个完整的，照 着改吧。set rsall=server.createobject("adodb.recordset")sql = "select * from yp_com where yz=1 order by id desc"rsall.open sql,conn,1,1 rsall.Pagesize=14 '指示每页显示记录数 pagecount=rsall.pagecount '确定对象数据中的页数 recor...
asp分页显示错误,无论点几页显示第一页内容
< m=m+1 next > <a href="?fengli1=<%=fengli1%>&page=<%=rs.pagecount%>">尾页 当然有区别，你原来的代码，参数形式是：？fengli1=fengli1&？page=2 两个参数之间怎么可以有“？”呢？这样的话程序就不识别page了
asp分页问题,点下一页时候显示为空
1、首先看你是不是少了先判断为空怎么样，也就是这样 if rs.eof or rs.bof then response.write("暂无数据")2、你的else后面是不是判断错了，是不是应该这样 else sql="select * from lw_products order by Price desc "3、写条件搜索最好不要那样写，这样写 sql="select * from lw_...
