Set rs = Server.CreateObject ("ADODB.Recordset")
sql="Select * from data where 1=1"
if a<>"" and b="" then
sql=sql&" and 开始日期='"&a&"'"
elseif a<>"" and b<>"" then
sql=sql&" and 开始日期 between '"&a&"' and '"&b&"'"
elseif a="" and b="" then
sql=sql
elseif a="" and b<>"" then
sql=sql&" and 开始日期='"&b&"'"
end if
if c<>"请选择" then
sql=sql&" and 设备='"&c&"'"
end if
if d<>"请选择" then
sql=sql&" and 主要告警信息='"&d&"'"
end if
if e<>"" then
sql=sql&" and 故障原因 like '%"&e&"%'"
end if
if f<>"" then
sql=sql&" and 维护区='"&f&"'"
end if
if g<>"" then
sql=sql&" and 处理人='"&g&"'"
end if
if h<>"" then
sql=sql&" and 客户名称='"&h&"'"
end if
rs.Open sql,conn,1,3
%>