如图的搜索程序怎么写啊，谢谢！ - 编程论坛

#2

multiple19022007-08-12 21:25

图片给这么大干啥？我还以为图片没下载完……这很可能让大家觉得图片无法显示！！！

dim sortby
sortby=request("sortby")
if sortby="产品名称" then
sortby="productname"
elseif sortby="产品人品" then
sortby="productrp"
else response.end '恶意提交？

剩下来的自己考虑

构造sql可以这样：
sql="select * from products where " & sortby & "='" & request("value") & "' and productcategory=" & category
request("value")注意防注入不要直接这么写

#3

jacklabyo2007-08-12 21:50

回复：（multiple1902）图片给这么大干啥？我还以为图...

呵呵，谢谢！

#4

multiple19022007-08-12 22:10

好吧？

#5

jacklabyo2007-08-15 18:44

我写了程序，但是实现不了，按如图查找的效果啊。我写程序后，只要一按搜索，把所有产品都搜出来了。代如下:
<%
dim field,sort_id,keyword
field=request.form("field")
classname=request.form("classname")
keyword=request.form("keyword")
if field="产品名称" then
field="shop_name"
elseif field="产品说明" then
field="introduce"
end if
set rs=server.createobject("ADODB.Recordset")
sql="SELECT * FROM product where '%"&field&"%' and '%"&classname&"%' and '%"&keyword&"%'"
set rs=conn.execute(sql)
if rs.bof and rs.eof then
response.write"<script language=javascript>alert('对不起没有您所需的产品!');history.go(-1)</script>"
else
%>
<TABLE cellSpacing=0 cellPadding=0 width="98%" align=center border=0>
<TBODY>
<TR>
<TD height=2></TD></TR>
<TR>
<TD height=26>   <IMG height=16
src="images/HaoSc23.png" width=14 align=absMiddle>
<font size="3"><b>产品展示中心</b></font></TD>
</TR>
<TR>
<TD bgColor=#cbe0e9 height=2></TD></TR></TBODY></TABLE>
  <a href="product.asp">产品展示</a> >> 统计查询共有
<% Response.Write(rs.RecordCount) %>条纪录</a><BR><br>
<table width="442" height="159" border="1" align="center" bordercolor="#62C0FF" style="border-collapse: collapse">
<%do until rs.eof%>
<tr>
<td width="92" rowspan="2">
<A href="ProductShow.asp?shop_id=<%=rs("shop_id")%>">
<%if rs("pic")<>"" then %>
<img src=admin/pic/<%=rs("pic")%> width=125 border=0>
<%else%>
<img src=admin/pic/no.jpg width=125 border=0>
<%end if%>
</A>
</td>
<td width="66" align="center">产品名称</td>
<td width="262"><A href="ProductShow.asp?shop_id=<%=rs("shop_id")%>"><%=rs("shop_name")%></A></td>
</tr>
<tr>
<td align="center" bgcolor="#F2F2F2">产品说明</td>
<td bgcolor="#F2F2F2"><%=rs("introduce")%></td>
</tr>
<%
rs.movenext
loop
%>
</table>

#6

madpbpl2007-08-15 20:10

if field="产品名称" then
field="shop_name"
elseif field="产品说明" then
field="introduce"
end if
set rs=server.createobject("ADODB.Recordset")
sql="SELECT * FROM product where '%"&field&"%' and '%"&classname&"%' and '%"&keyword&"%'"
set rs=conn.execute(sql)
改成
if field="产品名称" then
sql="select * from product where shop_name like '%" & keyword & "%'"
elseif field="产品说明" then
sql="select * from product where introduct like '%" & keyword & "%'"
end if
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1

#7

jieyoyo2007-08-15 22:14

我的水平不高，学习一下