组合查询之核心：拼接字符串 -pc6资讯

您的位置：首页 → 技术开发 → ASP技巧 → 组合查询之核心：拼接字符串

组合查询之核心：拼接字符串 时间：2004/11/7 4:12:00来源：本站整理作者：蓝点我要评论(1): '组合查询之核心：拼接字符串

'功能：定义查询条件，定义返回集，定义排序方式

'平台：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

文章评论

查看所有1条评论>>

热门文章 没有查询到任何记录。