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