ASP 程序修改

来源：百度知道 编辑：UC知道 时间：2024/05/08 05:08:39
<%
set Rs = Server.CreateObject("ADODB.Recordset")
IF request("caratRange")="all" Then
sql="select * from zsmz"
Else
sql="select * from zsmz where zl="&request("caratRange")
End If
IF request("locCode")="all" Then
sql="select * from zsmz"
Else
sql="select * from zsmz where dz="&request("locCode")
End If

IF request("fennei")="all" Then
sql="select * from zsmz"
Else
sql="select * from zsmz where zn="&request("fennei")
End If

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

是要同时对三个字段进行判断吗?
--------------------------------------------
dim condition '条件字符串
condition = "1"
caratRange = request("caratRange")
if caratRange <> "all" then
condition = condition & " and zl ='" & caratRange &"'"
end if
locCode = request("locCode")
if locCode <> "all" then
condition = condition & " and dz ='" & locCode &"'"
end if
fennei = request("fennei")
if fennei <> "all" then
condition = condition & " and zn ='" & fennei &"'"
end if
dim sql
sql = "select * from zsmz where "& condition

Rs.open sql,conn,1,1
-----------------------------------
还觉得烦,就封装函数过程啊