有关模糊查询的源程! （转）

整理编辑：China ASP

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

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/10294527/viewspace-124430/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/10294527/viewspace-124430/