UC知道asp搜索，当搜索结果为空时，为何总是出错？
来源：百度知道 编辑：UC知道 时间：2024/06/16 00:14:11
当能搜索到结果时，能正常显示，当搜不到结果，不能正常显示。 ==============以下为代码================================
<%
Function ChkString(str)
str = replace(str, "<", "<", 1, -1, 1)
str = replace(str, ">", ">", 1, -1, 1)
ChkString = str
End Function
name = trim(ChkString(Request.form("name")))
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db/member.mdb")
set rs=server.CreateObject("adodb.recordset")
sqlstr="select * from member where name='"&name&"' order by memberdate desc"
rs.open sqlstr,conn,1,1
rs.movefirst
%>
<table width="100%" border="0">
<tr>
<td width=80%>
详细信息：<table width
<%
Function ChkString(str)
str = replace(str, "<", "<", 1, -1, 1)
str = replace(str, ">", ">", 1, -1, 1)
ChkString = str
End Function
name = trim(ChkString(Request.form("name")))
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db/member.mdb")
set rs=server.CreateObject("adodb.recordset")
sqlstr="select * from member where name='"&name&"' order by memberdate desc"
rs.open sqlstr,conn,1,1
rs.movefirst
%>
<table width="100%" border="0">
<tr>
<td width=80%>
详细信息：<table width
IF语句是在数据表打开情况下进行的，而你的代码中IF语句的下半部分放在了数据表关闭之后，所以才会引起错误，这部分代码可以改成：
<%
if not rs.bof then
response.write("<tr><td>" & rs("name") & "</td></tr>")
%>
</table>
<%
else
%>
很遗憾，没有记录！
<%
end if
rs.close
conn.close
set rs=nothing
set conn=nothing
%>
rs.movefirst 去掉