组合查询之核心：拼接字符串

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

查看更多关于组合查询之核心：拼接字符串的详细内容...