advSearch.htm 页里的表单对象名字都是数据库里某个字段名,我通过枚举读出所有被填写的字段,然后生成查询条件。
for each item in Request.Form if item<>"Submit" and item<>"Reset" then strTemp=FilterStr(Trim(Request.Form(item))) if strTemp<>"" and strTemp<>"选择" then strWhere=strWhere & " and " & item & " like '%" & strTemp & "%'" end if end if next