搜索文件 (sjsearch.asp)
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>手机搜索</title>
</head>
<body>
<p> </p>
<p> </p>
<p> </p>
<p> </p>
<form method="post" action="sjlist.asp">
<input type="hidden" name="action" value="SearchFor">
<table width="100%" border="1" cellspacing="0" cellpadding="0">
<tr>
<td width="20%" align="center" valign="middle">手机搜索</td>
<td width="80%"><input type="text" name="searchfor"></td>
</tr>
<tr>
<td width="20%" align="center" valign="middle">操作</td>
<td width="80%"><input type="submit" name="Submit" value="送出"></td>
</tr>
</table>
</form>
</body>
</html>
显示文件 (sjlist.asp)
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="conn.asp"-->
<%
set rs=server.CreateObject("adodb.connection")
SearchFor=trim(request(SearchFor))
query="select*from sjinfo where sjname like '%"+SearchFor+"%'or sjcs like '%"
query=query+SearchFor+"%'or sjjg like'%"+SearchFor+"%'"
Rs.Open query,Con,3,2
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>手机显示</title>
</head>
<body>
<table width="100%" border="1"cellspcing="0" cellpadding="0">
<tr align="center" valign="middle">
<td width="30%">手机名称</td>
<td width="30%">厂商</td>
<td width="20%">价格</td>
<td width="20%">操作</td>
</tr>
<%
while not rs.EOF
%>
<tr>
<td width="30%"><%=rs("sjname")%></td>
<td width="30%"><%=rs("sjcs")%></td>
<td width="20%"><%=rs("sjjg")%></td>
<td width="20%"><a herf="cart.asp?ID=<%=Rs("ID")%> &sjname=<%=rs("sjname")%>&Action=add" title="订购">订购</a></td>
</tr>
<%
rs.movenext
wend
%>
</table>
</body>
</html>
其中cart.asp为购物车页面，还没建好。
数据库为sj.mdb中有一个表sjinfo
运行时出现
Microsoft VBScript 编译器错误 错误 '800a03f6'
缺少 'End'
/iisHelp/common/500-100.asp，行242
ADODB.Connection 错误 '800a0e78'
对象关闭时，不允许操作。
/hu/search/sjlist.asp，行27
请高手帮忙看看
