繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP > 组合查询之核心：拼接字符串
- ASP
- ADO如何提供异动功能？（BIG5）
- 从数据库中动态选取下拉列表的方法
- 数 据 库 设 计 经 验 谈
- 用SQL实现分布式数据复制
- NT4的ODBC与SQL7相连，不支持中文？
- 大部分ADO的错误码对应的含义
- ASP+中取代ASP的RS(Remote Scripting)技术的Framework
- 利用Page.IsPostBack属性保持用户输入的Framework
- 用VB6读写数据库中的图片
- VisualInterDev6.0七种实现分页显示的方法
- 利用ASP获得图象的实际尺寸的示例
- 5个实用的ASP网站功能（GIB5）
- 在ＡＳＰ中用集合成批操作数据库
- 用asp管理sql server数据库
- 用asp处理access数据库
- 使用速度更快的OLEDB取代ODBC连结
- 对Query字段进行Encode操作的一点看法
- 用ASP语言实现对SQL SERVER 数据库的操作
- Microsoft SQL Server 7.0 备份及恢复相关问题
- Microsoft SQL Server 7.0数据库升级转换问题
ASP 中的 组合查询之核心：拼接字符串
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-11-03 浏览: 158 ::
收藏到网摘: n/a
'功能：定义查询条件，定义返回集，定义排序方式
'平台：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&"'"
En
评论 (0) All
