新微赢技术网

标题: 还是老问题。关于多关键字查询 [打印本页]

---

作者: 我只在乎你    时间: 2010-1-9 07:04
标题: 还是老问题。关于多关键字查询
先看看我需要实现的功能,输入关键字后(main.asp)

点查询,出现下面这个界面(query.asp)

现在出现的问题是只能实现能查询到的记录按照那样显示.没有查询的的记录则不能显示。请问各位兄弟姐妹,有没有方法指导一下:
以下是代码:(query.asp)

程序代码：
<!--#include file="conn.asp"-->

<%
dim pname
pname=request("search1")
If Trim(pname)="" Then
   Response.Write"<script>alert('Input Character');history.go(-1);</script>"
   Response.End()
End If
Set Rs=Server.CreateObject("Adodb.Recordset")
Str=Split(pname,",")
For i=0 to Ubound(Str)
   StrTemp=Str(i)
      Sql=Sql&" or proname like '%"&StrTemp&"%'"
Next
sql="Select * From mbcomp Where proname like '%"&Str(0)&"%'"&Sql&""
if not (rs.eof and rs.bof) then
   Rs.Open sql,dbconn,1,1
   Response.write"<table width='760' border='0' cellspacing='1' cellpadding='2' class='tbbgcolor'>"
   Response.write"<tr >"
   Response.write"<td class='trbgcolor_1'>Product Name</td>"
   Do while not Rs.eof
   Response.write" <tr>"
   Response.write" <td  class='trbgcolor_2'><a href='motherboard_view.asp?productid="&Rs("proid")&"'>"&Rs("proname")&"</a></td>"
   Response.write" <td><font color='#ff0000'>查询到记录</font></td></tr>"
   Rs.movenext
   loop
   Rs.movefirst
   Response.write"</table>"
end if
Rs.close : Set Rs=Nothing
%>

---

作者: 酷aiq兒kuku    时间: 2010-1-9 07:04
先将你的SQL打印出来看看，估计是SQL语句问题。

---

作者: 左手的云    时间: 2010-1-9 07:04
请问我怎么打出来.我代码都全部给出来了.那个"未查询到记录"的代码我没有.就是想实现这个功能.我应该怎么去改写我的代码.

---

作者: n煲    时间: 2010-3-1 21:05
楼主强呀，这样贴子也能发表出来，对你佩服之心比长江的水还多哦

---

欢迎光临 新微赢技术网 (http://bbs.weiying.cn/)

Powered by Discuz! X3.2