用case实现搜索 怎么什么都不显示??
sousuo1.asp<%@ language=vbscript%>
<html>
<body>
<form action="sousuo2.asp" method="post">
<input type=text name="a">
<select name="b">
<option value="dao">导演</option>
<option value="man">演员</option>
<option value="lei">类型</option>
<option value="qu">地区</option>
</select>
<input type=submit value=搜索>
</form>
</body>
</html>
sosuo2.asp
<%@ language=vbscript%>
<% dim a,b,conn,rs,strsql
a=trim(request.form("a"))
b=trim(request.form("b"))
set conn=server.createobject("adodb.connection")
conn.open"driver={microsoft access driver (*.mdb)};dbq=e:\bishe\beiyong\1.mdb"
strsql="select * from 1"
set rs=server.createobject("adodb.recordset")
rs.source=strsql
rs.activeconnection=conn
rs.cursortype=3
rs.locktype=3
rs.open
%>
<html>
<body>
<table border=1>
<%select case b%>
<%case dao%>
<%do while not rs.eof%><tr>
<%if(rs("dao")=a) then%>
<td><%=rs(0)%></td>
<%end if%></tr>
<%rs.movenext
loop%>
<%case man%><%do while not rs.eof%><tr>
<%if(rs("man")=a) then%>
<td><%=rs(0)%></td>
<%end if%></tr>
<%rs.movenext
loop%>
<%case lei%><%do while not rs.eof%><tr>
<%if(rs("lei")=a) then%>
<td><%=rs(0)%></td>
<%end if%></tr>
<%rs.movenext
loop%>
<%case qu%><%do while not rs.eof%><tr>
<%if(rs("qu")=a) then%>
<<td><%=rs(0)%></td>
<%end if%></tr>
<%rs.movenext
loop%><%end select%>
</tr>
<%
rs.close
conn.close
%>
</table>
</body>
</html>
