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