经典论坛 » WAP 技术专栏 » 求助，网站分页后不能进入下一页

q58520 发表于 2008-7-7 13:14

求助，网站分页后不能进入下一页

网页效果：[url]http://q58520.cn/q/JiaZhu_So.Asp?MingChen=&l=0&x=1&xkon=blr%E5%9B%9Bkyb%E9%9B%B6gg8%EF%BC%88h%253s%2F90&YuYan=[/url]

支持电脑手机访问，但就是点下一页时并没有跳到下一页，还是在本面，如果加上&p=2就可以了，但我没修改成功，哪位帮忙修改一下


原代码如下
<!--#Include File="inc.Asp"--><%
Call QuanXian("1",0)
Private c,s
Set c=New xkon_Response
Set s=New xkon_Request
        Private Function JiaZhu_So()
                Dim MingChen,l,x,SQL,p,i,Cn1
                x=s.QueryString_Form("x")
                MingChen=s.QueryString_Form("MingChen")
                l=s.QueryString_Form("l")
                p=s.QueryString_Long("p")
                SQL="Select ID,BanKuai_MingChen,BanKuai_JianJie From BanKuai Where"
                Select Case l
                Case "0"
                        SQL=SQL&" BanKuai_MingChen Like '%"&MingChen&"%'"
                Case "1"
                        SQL=SQL&" BanKuai_BanZhu Like '%"&MingChen&"%'"
                Case Else
                        SQL=SQL&" 1=1"
                End Select
                Select Case x
                Case "0"
                        SQL=SQL&" Order By ID Desc"
                Case "1"
                        SQL=SQL&" Order By ChengYuan_Shu Desc"
                End Select
                Call OpenData()
                        Set Cn1=Server.CreateObject("Adodb.RecordSet")
                        Cn1.Open SQL,Conn,1,1
                        Cn1.PageSize=Const_Page_Ys
                        If Cn1.Eof Then
                                JiaZhu_So="未找到任何记录<br/>"
                        Else
                                Cn1.AbsolutePage=p
                                For i=1 To Const_Page_Ys
                                        If Cn1.Eof Then Exit For
                                        JiaZhu_So=JiaZhu_So&"<a href=""B;LieBiao.Asp?ID="&Cn1("ID")&"{(xkon.cn)链接}"">"&Cn1("BanKuai_MingChen")&"</a><br/>简介:"&Cn1("BanKuai_JianJie")&"<br/>"
                                        Cn1.MoveNext
                                Next
                                JiaZhu_So=JiaZhu_So&CPage(Cn1.PageCount,p,"JiaZhu_So.Asp?MingChen="&MingChen&"&amp;l="&l&"&amp;x="&x&"{(xkon.cn)链接}")
                        End If
                        Cn1.Close
                        Set Cn1=Nothing
                Call CloseData()
        End Function
        Call H_Title("{(xkon.cn)家族名称}搜索")
                c.Write(xkon_FenXi(Replace(Read_Text("JiaZhu_So"),xkon_S("家族列表"),JiaZhu_So())))
        Call H_End()
Set c=Nothing
Set s=Nothing
%>

q58520 发表于 2008-7-7 20:50

没人愿意帮我吗???

q58520 发表于 2008-7-7 20:51

没人愿意帮我吗???:) :o

q58520 发表于 2008-7-8 18:37

我已经找到问题点了,少了一个字符.已经解决

查看完整版本: 求助，网站分页后不能进入下一页