最新下载
热门教程
- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
组合查询之核心:拼接字符串
时间:2022-06-30 10:25:24 编辑:袖梨 来源:一聚教程网
'组合查询之核心:拼接字符串
'功能:定义查询条件,定义返回集,定义排序方式
'平台: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
'功能:定义查询条件,定义返回集,定义排序方式
'平台: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
相关文章
- 不思议迷宫咒灵试炼怎么过 05-17
- 崩坏星穹铁道如狼成就怎么获取 05-17
- DNF手游安图恩困难模式怎么打 DNF手游安图恩困难模式攻略技巧 05-17
- 崩坏星穹铁道如狼成就怎么获取 崩坏星穹铁道如狼成就获取方法 05-17
- 不思议迷宫咒灵试炼怎么过 不思议迷宫咒灵试炼攻略 05-17
- 《复体重剪版》游戏攻略 简述+配置+下载 05-17