网页效果：
http://q58520.cn/q/JiaZhu_So.Asp ... 53s%2F90&YuYan=
支持电脑手机访问，但就是点下一页时并没有跳到下一页，还是在本面，如果加上&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&"&l="&l&"&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
%>
