jiazhu_so.asp

支持IE 手机同步访问的WAP论坛社区程序

<!--#Include File="Inc/xkon.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
%>