asp 分页功能点击数字还是停留在第一页怎么回事，这是小弟的代码急急急，在线等、、、
0
悬赏园豆：60
[已关闭问题]
关闭于 2015-01-12 16:35
<!--#include file="Inc/Conn.asp"-->
<!--#include file="Inc/Function.asp"-->
<!--#include file="Inc/Function.Db.asp"-->
<%
If Len(Trim(Request("page")))=0 Then
page=1
Else
page=CInt(Trim(Request("page")))
End If
Dim id
id = chkcode(Trim(request.QueryString("id")))
classid=""
set rs=server.CreateObject("adodb.recordset")
rs.open"select * from asp_news_class where NewsClass_ID="&id&"",conn,1,1
if not (rs.eof and rs.bof) then
classid=id
classtitle=rs("NewsClass_Title")
end if
rs.close
set rs=nothing
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title><%=classtitle%>--<%=SiteName%></title>
<meta name="keywords" content="<%=SiteKeyWord%>" />
<meta name="description" content="<%=SiteDescription%>" />
<link href="style.css" rel="stylesheet" type="text/css" />
<script language="javascript">
function addBookmark(title,url) {
if (window.sidebar) {
window.sidebar.addPanel(title, url,"");
} else if( document.all ) {
window.external.AddFavorite( url, title);
} else if( window.opera && window.print ) {
return true;
}
}
function setHome(url)
{
if (document.all){
document.body.style.behavior='url(#default#homepage)';
document.body.setHomePage(url);
}else if (window.sidebar){
if(window.netscape){
try{
netscape.security.PrivilegeManager.enablePrivilege("UniversalXPConnect");
}catch (e){
alert( "该操作被浏览器拒绝，如果想启用该功能，请在地址栏内输入 about:config,然后将项 signed.applets.codebase_principal_support 值该为true" );
}
}
if(window.confirm("你确定要设置"+url+"为首页吗？")==1){
var prefs = Components.classes['@mozilla.org/preferences-service;1'].getService(Components.interfaces.nsIPrefBranch);
prefs.setCharPref('browser.startup.homepage',url);
}
}
}
</script>
</head>
<body>
<!--#include file="top.asp"-->
<div class="wrop1">
<div class="guild">您的位置：<a href="/">首页</a> > <%=classtitle%></div>
<!--#include file="left.asp"-->
<div class="right">
<div class="cp1a">
<div class="cp1a_l"><%=classtitle%></div>
<div class="cp1a_r">
<ul>
<%
set rs1=server.CreateObject("adodb.recordset")
rs1.open"select * from asp_news_class where NewsClass_parnetid="&id&"",conn,1,1
if not(rs1.eof and rs1.bof) then
do while not rs1.eof
classid=classid&","&rs1("NewsClass_ID")
%>
<li><a href="Products_list.asp?id=<%=rs1("NewsClass_ID")%>"><%=rs1("NewsClass_Title")%></a></li>
<%
rs1.movenext
loop
end if
rs1.close
set rs1=nothing
%>
</ul>
</div>
</div>
<div class="cp1">
<dl></dl>
<ul>
<%
set rsNews=server.createobject("adodb.recordset")
sql="select * from asp_news where News_ClassID <>11 and News_ClassID in ("&classid&") order by News_ID "
rsNews.open sql,conn,1,1
rsNews.PageSize=16
if rsNews.EOF and rsNews.BOF then%>
<%Else
If not rsNews.eof then
rsNews.AbsolutePage=page
for k=1 to rsNews.PageSize
%>
<li><a href="product_show.asp?id=<%=rsNews("News_ID")%>"><img src="<%=rsNews("News_PicUrl")%>" width="122" height="92" /></a><span>名称: <a href="product_show.asp?id=<%=rsNews("News_ID")%>"><%=rsNews("News_Title")%></a><br />
型号: <%=rsNews("news_cpxh")%></span></li>
<%
rsNews.movenext
If rsNews.EOF Then Exit For
next
End If
End If
%>
</ul>
<div class="fy">
<span><a href="?page=1">首页</a>
<%
If page <>1 Then
Response.Write "<a href='?ID="&ID&"&page=1'>First</a> "
End If
tmppage = page - 1
If tmppage <= 0 Then
tmppage = 1
Else
Response.Write"<a href='?ID="&ID&"&page="&tmppage&"'>上一页</a>"
End If
for i=0 to 4
showpage=page+i
Response.Write " <a href='?ID="&ID&"&page="&tmppage&"'>"&showpage&"</a> "
if page>=rsNews.PageCount then exit for
next
tmppage = page + 1
If tmppage >rsNews.PageCount Then
tmppage = page
Else
Response.Write " <a href='?ID="&ID&"&page="&tmppage&"'>下一页</a> "
End If
If Cstr(rsNews.PageCount) <> 0 Then
Response.Write "<a href='?ID="&ID&"&page="&rsNews.PageCount&"'>尾页</a> "
End If
response.Write("</span>")
If Cstr(rsNews.PageCount) <> 0 Then
Response.Write "共 "&rsNews.recordcount& " 条 每页 "&rsNews.PageSize&" 条 页次" & page & "/"&rsNews.PageCount&"</b> "
End If
rsNews.close
set rsNews=nothing
%>
</div>
</div>
</div>
</div>
<div class="copy"><span>京ICP备13034908号 京公海网安备110108000047号</span>版权所有：北京众和迪乐科技有限公司 技术支持：查查看</div>
</body>
</html>
所有回答(3)
0
好古老的语言啊，完全看不懂
额。你是在逗我么。、
@webfrom: 你点击数字后连接变化了没？你先看看，好排除是查询数据库的问题
0
我是00后。这语言…… 不认识， 不过看着，好高级，好屌啊， 比如for i=0 to 4 这么牛叉的写法。 不错， 为什么后来的语言要for i=0； i<4； i++；写得如此复杂呢。。。。
原来这叫asp啊， 这代码怎么调试呢？
我看到select * from， 这个，这个好像叫sql语句吧？ 它查出来的数据翻页会变化吗？
我要是知道就好了，我搞的asp.net 人家给我asp代码给我让我给他看看，不好意思拒绝只好上这来问咯。。。
0
的确是很老了,2000年以后就是asp.net了,
1.调试 看分页页面?ID="&ID&"&page="&tmppage&看看有没有问题
2. " <a href='?ID="&ID&"&page="&tmppage&"'>下一页</a> "我感觉你这里拼接有问题,看看
下一页可以点击的就是点击数字的时候根本就不跳转。。。
@webfrom: 我其实是想你看a标签href的内容是不是正确的,firefox用firebug,将鼠标放到你分页的页码上,查看元素
@秋壶冰月: 
这是他a标签的元素
@秋壶冰月:他这个有点叼 我点数字页 他就跳转到上一页，前面的1.2.3.4.5.6页点击直接回到主页。。
@webfrom: 你点击分页标签,查看上面的url参数,看你说的,点击1到6都是回到主页,估计生成分页页码的时候有问题,你能调试代码的话,就调一下
@秋壶冰月: 找到问题了。定义分页的时候定义错了。。。谢谢、、、
@webfrom: 也没帮上,主要这个没具体代码,没法调
