<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="Connections/conn.asp" -->
<%
Dim rs__MMColParam
rs__MMColParam = ""
If (Request.Form("searchkey") <> "") Then
rs__MMColParam = Request.Form("searchkey")
End If
%>
<%
Dim rs
Dim rs_cmd
Dim rs_numRows
Set rs_cmd = Server.CreateObject ("ADODB.Command")
rs_cmd.ActiveConnection = MM_conn_STRING
rs_cmd.CommandText = "SELECT * FROM Products WHERE ProductName LIKE ?"
rs_cmd.Prepared = true
rs_cmd.Parameters.Append rs_cmd.CreateParameter("param1", 200, 1, 255, "%" + rs__MMColParam + "%") ' adVarChar
Set rs = rs_cmd.Execute
rs_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index
Repeat1__numRows = -1
Repeat1__index = 0
rs_numRows = rs_numRows + Repeat1__numRows
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>无标题文档</title>
</head>
<body>
<!--#include file="Head.inc" -->
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="260"><!--#include file="search.asp" --></td>
<td width="100"><img src="images/index1.jpg" width="100" height="140" /></td>
<td width="100"><img src="images/index2.jpg" width="100" height="140" /></td>
<td width="100"><img src="images/index3.jpg" width="100" height="140" /></td>
<td width="100"><img src="images/index4.jpg" width="100" height="140" /></td>
<td width="100"><img src="images/index5.jpg" width="100" height="140" /></td>
</tr>
</table>
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0">
<%
While ((Repeat1__numRows <> 0) AND (NOT rs.EOF))
%>
<tr>
<td width="100" height="100" align="center" bgcolor="#EFFBFF"><img src="<%=(rs.Fields.Item("ProductPicture").Value)%>" /></td>
<td width="160" height="100" align="center" bgcolor="#EFFBFF"><p><font color="#FF6600"><%=(rs.Fields.Item("ProductName").Value)%></font></p>
<p><font color="#000000">市场价：<%= FormatCurrency((rs.Fields.Item("ProductPrice").Value), -1, -2, -2, -2) %></font><font color="#FF6600"><br />
</font><font color="#000000">优惠价：<%= FormatCurrency((rs.Fields.Item("ProductSalePrice").Value), -1, -2, -2, -2) %></font><font color="#FF6600"><br />
<a href="AddItem.asp?name1=<%=(rs.Fields.Item("ProductName").Value)%>&ID1=<%=(rs.Fields.Item("ProductID").Value)%>&price1=<%=(rs.Fields.Item("ProductSalePrice").Value)%>">[>>购买]</a></font></p></td>
<td width="499" align="left" bgcolor="#EFFBFF"><%=(rs.Fields.Item("ProductDescription").Value)%></td>
</tr>
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
rs.MoveNext()
Wend
%>
</table>
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="760"><!--#include file="Foot.inc" --></td>
</tr>
</table>
</body>
</html>
<%
rs.Close()
Set rs = Nothing
%>
错误很明显了，不是提是你了么，完善下