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

2008-02-23 05:26:12来源:互联网 阅读 ()

新老客户大回馈,云服务器低至5折

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

标签:

版权申明:本站文章部分自网络,如有侵权,请联系:west999com@outlook.com
特别注意:本站所有转载文章言论不代表本站观点,本站所提供的摄影照片,插画,设计作品,如需使用,请与原作者联系,版权归原作者所有

上一篇:构造ConnectionString的方法

下一篇:fso的一些特殊功能