組合查詢之核心:拼接字串

來源:互聯網
上載者:User
字串|組合查詢 '組合查詢之核心:拼接字串
'功能:定義查詢條件,定義返回集,定義排序方式
'平台: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 < '"&seaTimeFrist2&"'"

End If

If Request(seaTimeFrist2) <> "" Then

seaTimeFrist2 = Request(seaTimeFrist2)

SQL = SQL & " And TimeFrist < '"&seaTimeFrist2&"'"

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 < '"&seaNearTime2&"'"

End If

If Request(seaNearTime2) <> "" Then

seaNearTime2 = Request(seaNearTime2)

SQL = SQL & " And TimeNear < '"&seaNearTime2&"'"

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 < '"&seaAppTime2&"'"

End If

If Request(seaAppTime2) <> "" Then

seaAppTime2 = Request(seaAppTime2)

SQL = SQL & " And AppTime < '"&seaAppTime2&"'"



相關文章

Beyond APAC's No.1 Cloud

19.6% IaaS Market Share in Asia Pacific - Gartner IT Service report, 2018

Learn more >

Apsara Conference 2019

The Rise of Data Intelligence, September 25th - 27th, Hangzhou, China

Learn more >

Alibaba Cloud Free Trial

Learn and experience the power of Alibaba Cloud with a free trial worth $300-1200 USD

Learn more >

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。