首页 新闻 搜索 专区 学院

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>

webfrom的主页 webfrom | 初学一级 | 园豆:84
提问于:2015-01-12 15:37
< >
分享
所有回答(3)
0

好古老的语言啊,完全看不懂

刘宏玺 | 园豆:14020 (专家六级) | 2015-01-12 15:42

额。你是在逗我么。、

支持(0) 反对(0) webfrom | 园豆:84 (初学一级) | 2015-01-12 15:43

@webfrom: 你点击数字后连接变化了没?你先看看,好排除是查询数据库的问题

支持(0) 反对(0) 刘宏玺 | 园豆:14020 (专家六级) | 2015-01-12 16:07
0

我是00后。这语言…… 不认识, 不过看着,好高级,好屌啊, 比如for i=0 to 4  这么牛叉的写法。 不错, 为什么后来的语言要for i=0; i<4; i++;写得如此复杂呢。。。。

原来这叫asp啊, 这代码怎么调试呢?

我看到select * from, 这个,这个好像叫sql语句吧? 它查出来的数据翻页会变化吗?

问天何必 | 园豆:3311 (老鸟四级) | 2015-01-12 15:57

我要是知道就好了,我搞的asp.net   人家给我asp代码给我让我给他看看,不好意思拒绝只好上这来问咯。。。

支持(0) 反对(0) webfrom | 园豆:84 (初学一级) | 2015-01-12 16:00
0

的确是很老了,2000年以后就是asp.net了,

1.调试 看分页页面?ID="&ID&"&page="&tmppage&看看有没有问题

2.  " <a href='?ID="&ID&"&page="&tmppage&"'>下一页</a> "我感觉你这里拼接有问题,看看

秋壶冰月 | 园豆:5694 (大侠五级) | 2015-01-12 16:05

下一页可以点击的就是点击数字的时候根本就不跳转。。。

支持(0) 反对(0) webfrom | 园豆:84 (初学一级) | 2015-01-12 16:07

@webfrom: 我其实是想你看a标签href的内容是不是正确的,firefox用firebug,将鼠标放到你分页的页码上,查看元素

支持(0) 反对(0) 秋壶冰月 | 园豆:5694 (大侠五级) | 2015-01-12 16:09

@秋壶冰月: 

 

这是他a标签的元素 

支持(0) 反对(0) webfrom | 园豆:84 (初学一级) | 2015-01-12 16:17

@秋壶冰月:他这个有点叼   我点数字页  他就跳转到上一页,前面的1.2.3.4.5.6页点击直接回到主页。。

支持(0) 反对(0) webfrom | 园豆:84 (初学一级) | 2015-01-12 16:18

@webfrom: 你点击分页标签,查看上面的url参数,看你说的,点击1到6都是回到主页,估计生成分页页码的时候有问题,你能调试代码的话,就调一下

支持(0) 反对(0) 秋壶冰月 | 园豆:5694 (大侠五级) | 2015-01-12 16:29

@秋壶冰月: 找到问题了。定义分页的时候定义错了。。。谢谢、、、

支持(0) 反对(0) webfrom | 园豆:84 (初学一级) | 2015-01-12 16:35

@webfrom: 也没帮上,主要这个没具体代码,没法调

支持(0) 反对(0) 秋壶冰月 | 园豆:5694 (大侠五级) | 2015-01-12 16:37
清除回答草稿
   您需要登录以后才能回答,未注册用户请先注册