#12004/12/15 14:40:01
提示的错误为:
错误类型:
Microsoft VBScript 运行时错误 (0x800A01A8)
缺少对象: ''
/search.asp, 第 23 行
原文件:
<title><%=request("searchkey")%>的查找结果</title>
<!--#include file="conn.asp"-->
<%key=request("searchkey")%>
<%lsearch=request("lsearch")%>
<%if lsearch="biaoti" then %>
<%
sql="select * from guestbook where title like '%"&key&"%'"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
%>
<%else%>
<%if lsearch="neirong" then%>
<%
sql="select * from guestbook where title like '%"&content&"%'"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
%>
<%else%>
<%end if%>
<%end if%>
<link href="a.css" rel="stylesheet" type="text/css">
<table width="500" border="0" cellspacing="0" cellpadding="0">
<%if rs.recordcount>0 then%>您搜索的记录为://////提示这一行有错误!
<%while not rs.eof%>
<tr>
<td background="bg.gif"><%=rs("title")%></td>
<td background="bg.gif"><%=left(rs("content"),18)%></td>
<td background="bg.gif"><%=rs("date")%></td>
</tr>
<%rs.movenext%>
<%wend%>
<%else%>
<%end if%>
</table>
<%
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
世界因你的离开而感动!