組合查詢之核心：拼接字符串

‘’組合查詢之核心：拼接字符串
‘’功能：定義查詢條件，定義返回集，定義排序方式
‘’平臺：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&"‘’"

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

‘’******End***********************

原文轉自：http://www.kjueaiud.com