asp 分页参数传递
<%setrs=server.createobject("adodb.recordset")sql="selecttitle,contentfromtestorderby...
<%
set rs=server.createobject("adodb.recordset")
sql="select title,content from test order by id desc"
rs.open sql,conn,1,1
%>
<%
if rs.eof and rs.bof then
response.Write("暂时没有内容！")
else
counts=1
rs.pagesize=counts
allpages=rs.pagecount
page=request("page")
if isempty(page) or cint(page)<1 then
page=1
elseif cint(page)>=allpages then
page=allpages
end if
rs.absolutepage=page
do while (not rs.eof) and counts>0
%>
<%
counts=counts-1
if rs.eof then exit do
loop
end if
%>
<%
if page=1 then
response.write"首篇 上一篇"
else
response.write"<a style='text-decoration:none;color:#999;' href=travel.asp?page=1>首篇</a> <a style='text-decoration:none;color:#999;' href=travel.asp?page="&page-1&">上一篇</a>"
end if
if page=allpages then
response.write"下一篇 末篇"
else
response.write"<a style='text-decoration:none;color:#999;' href=travel.asp?page="&page+1&">下一篇</a> <a style='text-decoration:none;color:#999;' href=travel.asp?page="&allpages&">末篇</a>"
end if
response.write"第"&page&"篇 共"&allpages&"篇"
%>
就是在新闻页面使用了这样的分页，另外在首页上有新闻的标题，我是想点一个标题就连接到新闻页对应的文章，那个page不是参数吗，如何传递给首页？谢谢大家了
在首页并没有分页，还有，如果使用id又该如何做，上面的代码我看得懂，呵呵，可能吧，首页上的标题是从数据库中读取的，一楼的办法每次链接都到了尾页 展开
set rs=server.createobject("adodb.recordset")
sql="select title,content from test order by id desc"
rs.open sql,conn,1,1
%>
<%
if rs.eof and rs.bof then
response.Write("暂时没有内容！")
else
counts=1
rs.pagesize=counts
allpages=rs.pagecount
page=request("page")
if isempty(page) or cint(page)<1 then
page=1
elseif cint(page)>=allpages then
page=allpages
end if
rs.absolutepage=page
do while (not rs.eof) and counts>0
%>
<%
counts=counts-1
if rs.eof then exit do
loop
end if
%>
<%
if page=1 then
response.write"首篇 上一篇"
else
response.write"<a style='text-decoration:none;color:#999;' href=travel.asp?page=1>首篇</a> <a style='text-decoration:none;color:#999;' href=travel.asp?page="&page-1&">上一篇</a>"
end if
if page=allpages then
response.write"下一篇 末篇"
else
response.write"<a style='text-decoration:none;color:#999;' href=travel.asp?page="&page+1&">下一篇</a> <a style='text-decoration:none;color:#999;' href=travel.asp?page="&allpages&">末篇</a>"
end if
response.write"第"&page&"篇 共"&allpages&"篇"
%>
就是在新闻页面使用了这样的分页，另外在首页上有新闻的标题，我是想点一个标题就连接到新闻页对应的文章，那个page不是参数吗，如何传递给首页？谢谢大家了
在首页并没有分页，还有，如果使用id又该如何做，上面的代码我看得懂，呵呵，可能吧，首页上的标题是从数据库中读取的，一楼的办法每次链接都到了尾页 展开
5个回答
展开全部
建立access的数据库news,还有表news,表的字段(id,title),id唯一,输入数据保存,用下面代码可查询,可分页
-----------------------下面保存为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
%>
-----------------------下面保存为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
%>
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
<a
href="bookview.asp?booknum=<%=rs("booknum")%>">查看</a>
这个是你分页效果下图书编号为312的超链接，不出意外的话，参数booknum传递过去的值是312，然后在bookview.asp里写入
<%
booknum=request("booknum")
%>
然后再写入查询的sql语句，sql语句的条件就是图书编号等于booknum，这样就能查询出你想要的结果。
希望该回答能对你有所帮助，望采纳！^_^
href="bookview.asp?booknum=<%=rs("booknum")%>">查看</a>
这个是你分页效果下图书编号为312的超链接，不出意外的话，参数booknum传递过去的值是312，然后在bookview.asp里写入
<%
booknum=request("booknum")
%>
然后再写入查询的sql语句，sql语句的条件就是图书编号等于booknum，这样就能查询出你想要的结果。
希望该回答能对你有所帮助，望采纳！^_^
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
比如图书编号的字段是booknum，你要传去的页面是bookview.asp，那么，查看按钮的超链接是bookview.asp?booknum=<%("booknum")%> 。
bookview.asp页面，用request("booknum")来获取你传过去的值 。根据取得的值 ，调用数据库应该会了吧？
bookview.asp页面，用request("booknum")来获取你传过去的值 。根据取得的值 ，调用数据库应该会了吧？
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
“想点一个标题就连接到新闻页对应的文章”
只要在标题的链接上加上文章的ID，传给新闻显示页。新闻显示页接到文章ID参数，显示对应的文章内容。
因此，要实现这点，用不到page这个参数。
page这个参数是用在新闻分页显示时，标识显示的是第几页。
相关知识，多研究分页程序。把上面代码，一点一点看懂分析透。
只要在标题的链接上加上文章的ID，传给新闻显示页。新闻显示页接到文章ID参数，显示对应的文章内容。
因此，要实现这点，用不到page这个参数。
page这个参数是用在新闻分页显示时，标识显示的是第几页。
相关知识，多研究分页程序。把上面代码，一点一点看懂分析透。
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
一般呢,我们作这种类型的网页时,是用id来作参数,这样更方便,而且,写起来要你现在写得要容易些.
不过你这样写也是可以啦.解决方案如下:
在首页,你也是这样分页的话,那也是用page,rs.pagesize,counts;
这时我们要知道的是,在首页的分页与这里的是不一样的.它的pagesize肯定不少于1.于我们可以这样得出要使用到新闻页面的page数的大小是:
rs.pagesize-counts+page*rs.pagesize
即<a href="???.asp?page=<%=rs.pagesize-counts+page*rs.pagesize%>"> 标题</a>
???表示新闻页面
不过你这样写也是可以啦.解决方案如下:
在首页,你也是这样分页的话,那也是用page,rs.pagesize,counts;
这时我们要知道的是,在首页的分页与这里的是不一样的.它的pagesize肯定不少于1.于我们可以这样得出要使用到新闻页面的page数的大小是:
rs.pagesize-counts+page*rs.pagesize
即<a href="???.asp?page=<%=rs.pagesize-counts+page*rs.pagesize%>"> 标题</a>
???表示新闻页面
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
更多回答（3）
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
