b;so.asp

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

<!--#Include File="Inc/xkon.Asp"--><%
Private c,s
Set c=New xkon_Response
Set s=New xkon_Request
	Dim ID
	ID=s.QueryString_Long("ID")
	Private Function sosuo()
		Dim MingChen,ZhangHao,BanKuai,SQL,SoSuo_Cn1,p,i
		MingChen=s.QueryString_Form("MingChen")
		ZhangHao=s.QueryString_Form("ZhangHao")
		BanKuai=s.QueryString_Form("BanKuai")
		p=s.QueryString_Long("p")
		If BanKuai="" Then Exit Function
		SQL="Select BanKuai,ID,MingChen From TieZhi Where"
		If MingChen="" Then
			SQL=SQL&" 1=1"
		Else
			SQL=SQL&" MingChen Like '%"&Replace(MingChen," ","%")&"%'"
		End If
		If ZhangHao="" Then
			SQL=SQL&" And 1=1"
		Else
			SQL=SQL&" And HuiYuan ='"&ZhangHao&"'"
		End If
		If BanKuai="1" Then
			SQL=SQL&" And 1=1"
		Else
			SQL=SQL&" And BanKuai="&ID
		End If
		SQL=SQL&" Order By ID Desc"
		Call OpenData()
			Set SoSuo_Cn1=Server.CreateObject("Adodb.RecordSet")
			SoSuo_Cn1.Open SQL,Conn,1,1
			SoSuo_Cn1.PageSize=Const_Page_Ys
			If SoSuo_Cn1.Eof Then SoSuo_Cn1.Close:Set SoSuo_Cn1=Nothing:Call CloseData():SoSuo="鏈