组合查询之核心：拼接字符串-数据库

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