end if
rs.open sql,conn,1,1
'显示搜索结果
if rs.eof and rs.bof then
response.write "目前通讯录中没有记录"
else
do while not rs.eof
response.write "姓名："&rs("Name")&"电话："&rs("Tel")&"学校："&rs("School")&"<br>"
rs.movenext
loop
end if
'断开数据库
set rs=nothing
conn.close
set conn=nothing
理解上述程序时，着重琢磨核心部分，8组语句一一对应了3个搜索框中的8种状态
|
Name |
Tel |
School |
|
空 |
空 |
空 |
|
空 |
空 |
非空 |
|
空 |
非空 |
空 |
|
空 |
非空 |
非空 |
|
非空 |
空 |
空 |
|
非空 |
空 |
非空 |
|
非空 |
非空 |
空 |
|
非空 |
非空 |
非空 |
另外trim()是VB的函数，将输入的字符串前后的空格去掉；%是SQL语言中的多字符通配符（_是单字符通配符），由此可见%"&trim()&"%对搜索框中输入的关键字是分别向左向右匹配的；SQL语言中用and连接说明非空条件之间是“与”关系。
再来看看递进法，与枚举法相比它们只有核心部分不同：
'递进法的搜索核心，依次判断条件为空否，非空则将其加入搜索条件
sql="select * from address where"
if Name<>"" then
sql=sql&" Name like '%"&Name&"%' "
flag=1
end if
if Tel<>"" and flag=1 then
sql=sql&" and Tel like '%"&Tel&"%'"
flag=1
elseif Tel<>"" then
sql=sql&" Tel like '%"&Tel&"%'"
flag=1
end if
if Company<>"" and flag=1 then
sql=sql&" and Company like '%"&Company&"%'"
| 
设为主页
收藏本站
相关文章: