<%
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("../mdb/book.mdb")
set rs=server.createobject("adodb.recordset")
%>
<%
name=request.form("name")
atype=request.form("type")
publishing=request.form("publishing")
sql1=""
if name <>"" then
Sql1= Sql1 & "name like '%"&name&"%'"
end if
if atype <>"" then
Sql1= Sql1 & "or type like '%"&atype&"%'"
end if
if publishing <>"" then
Sql1= Sql1 & "or publishing like '%"&publishing&"%'"
end if
response.write sql1
sql="select * from booksx where sql1 "
rs.open sql,conn,1,1
%>
<table width="900" border="2" cellspacing="0" cellpadding="0">
<tr>
<td width="41"> </td>
<td width="204"> </td>
<td width="655"> </td>
</tr>
<tr>
<td> </td>
<td>
<table width="200" height="100" border="2">
<%do while not rs.eof%> <tr>
<td><%=rs("name")%></td>
<td><%=rs("type")%></td>
<td><%=rs("publishing")%></td>
</tr>
<%
rs.movenext
loop
rs.close
%>
</table>
</td>
<td><p> </p>
<p> </p>
<p> </p>
<p> </p></td>
</tr>
<tr>
<td> </td>
<td> </td>
<td> </td>
</tr>
</table>
这段程序调试报错:
错误类型：
Microsoft OLE DB Provider for ODBC Drivers (0x80040E21)
ODBC 驱动程序不支持所需的属性。
/程序/select.asp, 第 24 行
第24行为 rs.open sql,conn,1,1
这个问题整么解决呢
參考答案:<%
name=request.form("name")
atype=request.form("type")
publishing=request.form("publishing")
sql1=""
if name <>"" then
Sql1= Sql1 & "name like '%"&name&"%'"
end if
if atype <>"" then
Sql1= Sql1 & "or type like '%"&atype&"%'"
end if
if publishing <>"" then
Sql1= Sql1 & "or publishing like '%"&publishing&"%'"
end if
response.write sql1
sql="select * from booksx where sql1 "
rs.open sql,conn,1,1
%>
改为
<%
name=request.form("name")
atype=request.form("type")
publishing=request.form("publishing")
'sql1=""
sql="select * from booksx"
if name <>"" then
sql= sql & "where name like '%"&name&"%'"
end if
if atype <>"" then
sql= sql & "where name like '%"&name&"%' or type like '%"&atype&"%'"
end if
if publishing <>"" then
sql= sql & "where name like '%"&name&"%' or type like '%"&atype&"%' or publishing like '%"&publishing&"%'"
end if
'response.write sql1
rs.open sql,conn,1,1
%>
