组合查询之核心：拼接字符串

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

******end***********************