| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 453 人关注过本帖
标题:寻求帮助!!!!
只看楼主 加入收藏
linjirongll
Rank: 1
等 级:新手上路
帖 子:32
专家分:0
注 册:2008-3-26
结帖率:0
收藏
 问题点数:0 回复次数:1 
寻求帮助!!!!
ASP分页问题.求高手帮忙
那位高手帮我看看,我遇到的问题是ID接收显示面的分页问题,能够正常显示,但一点分页就出现对像已关闭无法操作的错误,如果不是在ID接受页这个分页又可以正常使用,希望高手能帮一下.我只要实现的功能是:根本接收到的ID来判断搜索那个表单的数据库,然后列出那表单的数据,因为数据过多要分页.
<%name=request.QueryString("id")

Set conn=server.CreateObject("adodb.connection")
    crt="provider=Microsoft.JET.OLEDB.4.0;Data Source="&Server.MapPath("shuju.mdb")
    conn.open crt
    set rs=server.createobject("adodb.recordset")
    if name="new"then /这个是我用来判断执行下面搜索那个表的语句
        rs.open"select * from new ",conn,1,1
        <%end if%>
        if name="new2"then
        rs.open"select * from new2 ",conn,1,1
    <%end if%>
    dim   zongye,page,coun  
             rs.pagesize=15                           
        zongye=rs.pagecount
        page=trim(request.querystring("page"))
        if page="" then page=1
        if not isnumeric(page) then page=1
        page=cint(page)
        if page<1 then page=1
        if zongye<1 then zongye=1
        if page>zongye then page=zongye
        rs.absolutepage=page
         
         
         
         if rs.bof and rs.eof then
         response.write("没有任何新闻")
        else
           rs.absolutepage=page
            js=rs.pagesize
           do while not  rs.eof and  js>0%>

            <%=rs("title")%>
    <%js=js-1
            rs.movenext
        loop
            end if %>
<table>
<tr>
<td width="45"><a href="cc.asp?id=<%=name%>?page=<%=zongye-(zongye-1)%>">第一页</a></td>
<td width="45"><a href="cc.asp?id=<%=name%>?page=<%= page-1%>">上一页</a></td>
<td width="45"><a href="cc.asp?id=<%=name%>?page=<%= page+1%>">下一页</a></td>
<td width="49"><a href="cc.asp?id=<%=name%>?page=<%=zongye%>">最后一页</a></td>
</tr></table>
搜索更多相关主题的帖子: server 数据库 
2008-04-12 07:26
Dk99
Rank: 1
等 级:新手上路
帖 子:1
专家分:0
注 册:2008-4-12
收藏
得分:0 
好象是符号问题
<%name=request.QueryString("id")

Set conn=server.CreateObject("adodb.connection")
    crt="provider=Microsoft.JET.OLEDB.4.0;Data Source="&Server.MapPath("shuju.mdb")
    conn.open crt
    set rs=server.createobject("adodb.recordset")
   
    if name="new"then
        rs.open"select * from new ",conn,1,1
        end if
        if name="new2"then
        rs.open"select * from new2 ",conn,1,1
    end if
    dim   zongye,page,coun  
             rs.pagesize=15                           
        zongye=rs.pagecount
        page=trim(request.querystring("page"))
        if page="" then page=1
        if not isnumeric(page) then page=1
        page=cint(page)
        if page<1 then page=1
        if zongye<1 then zongye=1
        if page>zongye then page=zongye
        rs.absolutepage=page
         
         
         
         if rs.bof and rs.eof then
         response.write("没有任何新闻")
        else
           rs.absolutepage=page
            js=rs.pagesize
           do while not  rs.eof and  js>0%>

            <%=rs("title")%>
    <%js=js-1
            rs.movenext
        loop
            end if %>
<table>
<tr>
<td width="45"><a href="cc.asp?id=<%=name%>?page=<%=zongye-(zongye-1)%>">第一页</a></td>
<td width="45"><a href="cc.asp?id=<%=name%>?page=<%= page-1%>">上一页</a></td>
<td width="45"><a href="cc.asp?id=<%=name%>?page=<%= page+1%>">下一页</a></td>
<td width="49"><a href="cc.asp?id=<%=name%>?page=<%=zongye%>">最后一页</a></td>
</tr></table>
2008-04-12 09:42
快速回复:寻求帮助!!!!
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.024984 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved