' 组合 查询 之 核心 ： 拼接 字符串 '功能：定义 查询 条件，定义返回集，定义排序方式 '平台：windows 2000 server + iis5.0 + sql server 2000 '语言：vbscript '作者：cheery_ke '***********start************ '**************读取变量************* .
'组合查询之核心：拼接字符串
'功能：定义查询条件，定义返回集，定义排序方式
'平台：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
end if
if request(seatimefrist2) then
seatimefrist2 = request(seatimefrist2)
sql = sql & and timefrist
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
end if
if request(seaneartime2) then
seaneartime2 = request(seaneartime2)
sql = sql & and timenear
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
end if
if request(seaapptime2) then
seaapptime2 = request(seaapptime2)
sql = sql & and apptime
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