高手请进来帮忙精简(修改）ASP程序

<%
set Rs = Server.CreateObject("ADODB.Recordset")

tiaojian=""
temp=request("caratRange")
if(temp="all") then
tiaojian="where zl=all"
end if

temp=request("locCode")
if(temp="all") then
tiaojian="where dz=all"
end if

temp=request("fennei")
if(temp="all") then
tiaojian="where zn=all"

sql="select * from zsmz "+tiaojian

Rs.open sql,conn,1,1
do while not rs.eof
%>

这样不知道合不合你的要求
<%
set Rs = Server.CreateObject("ADODB.Recordset")
sqlt=""
sql="select * from zsmz"
IF request("caratRange")<>"all" THEN
sqlt="where zl="&request("caratRange")
END IF
IF sqlt<>"" AND request("locCode")<>"all" THEN
sqlt=sqlt&" AND dz="&request("locCode")
ELSE
sqlt="where dl="&request("locCode")
END IF
IF sqlt<>"" AND request("fennei")<>"all" THEN
sqlt=sqlt&" AND zn="&request("fennei")
ELSE
sqlt="where dl="&request("fennei")
END IF
Rs.open sql,conn,1,1
do while not rs.eof
%>

你这代码那来的.如果说要精简,我想这以经是差不多了.不能精了.

用SELECT语句
set Rs = Server.CreateObject("ADODB.Recordset")
car=requrequest("caratRange")
select car="all"
case true
sql="select * from zsmz"
case false
sql="select * from zsmz where zl="&car
end select

以下同上。