IDC资讯中心
组合查询之核心：拼接字符串
功能：定义查询条件，定义返回集，定义排序方式
平台：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
