dim strsql 

strsql="select * from where  开始日期>='"&request.querystring("开始日期")&"' and 截至日期<='"&request.querystring("开始日期")&"' "

if request.querystring("材料名称")<>"" then strsql=strsql & "and 材料名称='"&request.querystring("材料名称")&"'"

if request.querystring("类别")<>"" then strsql=strsql & "and 类别='"&request.querystring("类别")&"'"

...