用程序来生成。例如:
四个框分别为:txt1,txt2,txt3
对应字段分别为:key1,key2,key3,key4
查询的表名为:table
程序如下:<
txt1=requtst.form("txt1") '取得变量
txt2=requtst.form("txt2")
txt3=requtst.form("txt3")
txt4=requtst.form("txt4")
sql="select * from table " '初始查询语句
if txt1<>"" then
sql=sql & " where key1 = " & txt1
tf=true '设置标志 表示已经取得某一条件
end if
if txt2<>"" then
if tf then '如果已经有条件
sql=sql & " and "
else
sql=sql & " wehre "
end if
sql=sql & " key2 = " & txt2
tf=true
end if
if txt3<>"" then
if tf then '如果已经有条件
sql=sql & " and "
else
sql=sql & " wehre "
end if
sql=sql & " key3 = " & txt3
tf=true
end if
if txt4<>"" then
if tf then '如果已经有条件
sql=sql & " and "
else
sql=sql & " wehre "
end if
sql=sql & " key4 = " & txt4
tf=true
end if
sql=sql & " order by ID" '如果要排序,在这里加入
txt2=requtst.form("txt2")
txt3=requtst.form("txt3")
txt4=requtst.form("txt4")
sql="select * from table " '初始查询语句
if txt1<>"" then
sql=sql & " where key1 = " & txt1
tf=true '设置标志 表示已经取得某一条件
end if
if txt2<>"" then
if tf then '如果已经有条件
sql=sql & " and "
else
sql=sql & " wehre "
end if
sql=sql & " key2 = " & txt2
tf=true
end if
if txt3<>"" then
if tf then '如果已经有条件
sql=sql & " and "
else
sql=sql & " wehre "
end if
sql=sql & " key3 = " & txt3
tf=true
end if
if txt4<>"" then
if tf then '如果已经有条件
sql=sql & " and "
else
sql=sql & " wehre "
end if
sql=sql & " key4 = " & txt4
tf=true
end if
sql=sql & " order by ID" '如果要排序,在这里加入