组合查询之核心：拼接字符串

' 组合 查询 之 核心 ： 拼接 字符串 '功能：定义 查询 条件，定义返回集，定义排序方式 '平台：Windows 2000 Server + IIS5.0 + SQL Server 2000 '语言：VBScript '作者：Cheery_Ke '***********Start************ '**************读取变量************* .

'组合查询之核心：拼接字符串
'功能：定义查询条件，定义返回集，定义排序方式
'平台：Windows 2000 Server + IIS5.0 + SQL Server 2000
'语言：VBScript
'作者：Cheery_Ke
'***********Start************
'**************读取变量*************
.
.
.
seaLastUpdTime = Request("seaLastUpdTime1")&"-"&Request("seaLastUpdTime2")&"-"&Request("seaLastUpdTime3")

returnItem = Request("ReturnItem")'******个人设定要返回的字段

'Response.Write returnItem

'***********拼接字符串***************************

If returnItem "" Then

SQL = "Select ComID,ComName, " & returnItem & " From ClientInfo Where ISInva = 0"

Else

SQL = "Select ComID,ComName From ClientInfo where IsInva = 0"

End If

If seaComName "" Then

　　SQL = SQL & " And ComName Like '%"&seaComName&"%'"

End If

If seanexus1 "" Then

　　SQL = SQL & " And nexus like '%"&seanexus1&"%'"
　　
End If

If seanexus2 "" Then

　　SQL = SQL & " And nexus like '%"&seanexus2&"%'"
　　
End If

If seaComType "" Then

　　SQL = SQL & " And ComType = '"&seaComType&"'"

End If

If seaComPRov "" Then

　　SQL = SQL & " And ComProv = '"&seaComProv&"'"

End If

If seaTimeFrist11 "" Then

　　seaTimeFrist1 = seaTimeFrist11&"-"&seaTimeFrist12&"-"&seaTimeFrist13
　　
　　SQL = SQL & " And TimeFrist > '"&seaTimeFrist1&"'"

End If

If Request(seaTimeFrist1) "" Then

　　seaTimeFrist1 = Request(seaTimeFrist1)
　　
　　SQL = SQL & " And TimeFrist > '"&seaTimeFrist1&"'"

End If

If seaTimeFrist21 "" Then

　　seaTimeFrist2 = seaTimeFrist21&"-"&seaTimeFrist22&"-"&seaTimeFrist23

　　SQL = SQL & " And TimeFrist
End If

If Request(seaTimeFrist2) "" Then

　　seaTimeFrist2 = Request(seaTimeFrist2)

　　SQL = SQL & " And TimeFrist
End If

If seaNearTime11 "" Then

　　seaNearTime1 = seaNearTime11&"-"&seaNearTime12&"-"&seaNearTime13
　　
　　SQL = SQL & " And TimeNear > '"&seaNearTime1&"'"

End If

If Request(seaNearTime1) "" Then

　　seaNearTime1 = Request(seaNearTime1)
　　
　　SQL = SQL & " And TimeNear > '"&seaNearTime1&"'"

End If

If seaNearTime21 "" Then　　

　　seaNearTime2 = seaNearTime21&"-"&seaNearTime22&"-"&seaNearTime23
　　
　　SQL = SQL & " And TimeNear 　　
End If

If Request(seaNearTime2) "" Then　　

　　seaNearTime2 = Request(seaNearTime2)
　　
　　SQL = SQL & " And TimeNear 　　
End If

If seaAppTime11 "" Then

　　seaAppTime1 = seaAppTime11&"-"&seaAppTime12&"-"&seaAppTime13
　　
　　SQL = SQL & " And AppTime > '"&seaAppTime1&"'"

End If

If Request(seaAppTime1) "" Then

　　seaAppTime1 = Request(seaAppTime1)
　　
　　SQL = SQL & " And AppTime > '"&seaAppTime1&"'"

End If

If seaAppTime21 "" Then

　　seaAppTime2 = seaAppTime21&"-"&seaAppTime22&"-"&seaAppTime23
　　
　　SQL = SQL & " And AppTime
End If

If Request(seaAppTime2) "" Then

　　seaAppTime2 = Request(seaAppTime2)
　　
　　SQL = SQL & " And AppTime
End If

If Request("seaLastUpdTime1") "" Then

//　　seaLastUpdTime0 = seaLastUpdTime1&"-"&seaLastUpdTime2&"-"&seaLastUpdTime3
　　
　　SQL = SQL & " And LastUpdTime > '"&seaLastUpdTime&"'"

End If

If Request(seaLastUpdTime1) "" Then

　　//seaLastUpdTime0 = Request(seaLastUpdTime0)

　　SQL = SQL & " And LastUpdTime > '"&seaLastUpdTime&"'"

End If

If session("Pop") = "1" Then

　　AdminName = Session("UserName")

SQL = SQL & " And (OurSales Like '%"&AdminName&"%' Or nexus Like '%w%') Order By " & Order

Else

Response.Write SQL

SQL = SQL & " Order By "& Order 'Order设定排序方式

End If

'Response.Write SQL