有关站内模糊查询的源程序! 

if bh="" then
   sql="select * from sl where bh like @#%"&ss&"%@#"
  else
bh=clng(bh)
sql="select * from sl where bh=" & bh & " "
end if
  if nam<>"" then
  sql=sql&" and nam like @#%"&nam&"%@# "
   end if
  if jz<>"" then
   sql=sql&" and jz like @#%"&jz&"%@# "
end if
if pc<>"" then
pc=cint(pc)
  sql=sql&" and pc="&pc&" "
  end if
  if zw<>"" then
  sql=sql&" and zw like @#%"&zw&"%@# "
end if  

原文转自：http://www.ltesting.net