 |
|
|
 首页 |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
\\\'组合查询之核心：拼接字符串 \\\'功能：定义查询条件，定义返回集，定义排序方法 \\\'平台：Windows 2000 Server + IIS5.0 + SQL Server 2000 \\\'语言：VBScript \\\'***********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 返回类别: 教程 上一教程: 关于GLOBAL.ASA文件的深入研究与SESSION变量失效提示的详细方式 下一教程: 一个简朴的网上书城的例子(一) 您可以阅读与"组合查询之核心：拼接字符串"相关的教程: · 转变字符串带有HTTP://的超级链接字符串为真正的超级链接(源码) · 关于组合查询并排序的问题 · 转变字符串带有HTTP://的超级链接字符串为真正的超级链接 · 在WEB.CONFIG中添加连接字符串 · 连接数据库常用的连接字符串 |
  |
| 快精灵印艺坊 版权所有 |
首页 会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店
|
||
