缅甸内比都地图:帮我看看这段ASP代码问题出在哪?

来源:百度文库 编辑:查人人中国名人网 时间:2024/04/28 04:56:51
<%
set conn2=server.createobject("adodb.connection")
conn2.open "DBQ="&server.mappath("SunData/Collect.mdb")&";Driver={Microsoft Access Driver (*.mdb)};"
Set rs=Server.CreateObject("ADODB.Recordset")
sql="Select * from news where title like '%"&request("key")&"%'"
rs.open sql,conn2,1,1
If rs.eof Then
%>
没有查找到信息!
<%
else
rs.pagesize=15
dim Page
Page =1
if request("Page") <> "" then
Page=cint(request("Page"))
end if
if not rs.eof and not rs.bof then
rs.absolutepage=Page
end if
count=rs.pagesize
do while not rs.eof and count>0
%>

<%=rs("title")%><br>

<%
rs.movenext
count=count-1
Loop
End If
%>

这是一段搜索代码,现在的问题是,如果Request("key")传过来的值能够查找到,那么一切正常,分页也正常,但如果数据库中没有找到,就会报“rs.open sql,conn2,1,1”这一行Microsoft OLE DB Provider for ODBC Drivers (0x80040E21)错误信息,没有找到的话怎么没有输出我定义的提示信息呢?
楼下兄弟,按你这样还是出现相同的错误。调试环境为2K专业版自带IIS
user830316兄,你没有理解我的意思,我的意思是比如查找的是"aaa",但数据库中没有aaa相关的信息,就应该提示找不到啊

把sql="Select * from news where title like '%"&request("key")&"%'" 改为

if request("key")="" then
response.write("查询关键字为空")
else
sql="Select * from news where title like '%"&request("key")&"%'"
end if

If rs.eof Then
%>
没有查找到信息!
rs.close
conn2.close
response.end
<%

If rs.eof and rs.bof Then
response.write("没有相关信息!")
else