组合查询之核心:拼接字符串
程序员文章站
2022-05-13 08:50:32
...
' 组合 查询 之 核心 : 拼接 字符串 '功能:定义 查询 条件,定义返回集,定义排序方式 '平台: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