查询DW站内搜索代码步骤

站内搜索代码时间:2021-01-27 阅读:()

用DW MX造站内搜索

有关用DW MX制作站内搜索的问题贴子在论坛不断地有人提问 因此也就出了这一篇教程希望对你有所帮助。站内搜索可分为单参数根据一个条件查询一个字段查询和多参数多个条件可选查询不同的数据库字段查询单参数查询在DW MX的简单记录集中把筛选条件选择为“包含”就行了这时切换到“高级记录集”模式SQL语句如下

SELECT *

FROM user

WHERE uesr LIKE '%MMColParam%'user为要查询的数据库表 uesr为要查询的字段 MMColParam为查询变量从表单提交数据时把文本域的值赋值给该变量 %%为通配符 LIKE为逻辑运算符意为“类似于” 用于搜索包含关键词的记录。以上这些代码是DW MX自动生成的 比较简单。下面我们要实现的是多参数查询 即多个条件查询多个数据库字段把符合搜索条件的记录筛出。

在动手制作前笔者建议你先看看这个页面http://7294.be23.com/aspbbs/Search.asp

这是本人用DW MX做的多参数站内搜索可根据多个条件查询记录。

实例一、根据两个条件搜索

操作步骤

1、设计好你的数据库表本例用是论坛贴子表如下图所示

bbs_title字段为贴子标题 bbs_uesr字段为主题作者。现在要求用户可在查询页面选择以标题或作者搜索。

2、新建一个页面保存为HTM或ASP 如果有ASP代码 本例保存为Search.asp。插入表单、一个文本域和一个列表菜单表单方法为GET对应名称和值如下

列表菜单设置以下

页面样式

为了实例示方便搜索界面和搜索结果页在同一个页面中 即Search.asp。

3、插入记录集

启动“记录集”对话框在简单记录集中设置好连接和数据数据库表如下

单击“测试” 应该有记录。切换行“高级”模式如下

添加一个WHERE子句到SQL文本框中如下图

上图中的and bbs_dist=0是为了搜索出为贴子主题的记录你可以删除它如

WHERE MM_sch LIKE '%MM_text%'

变量设置如下

这样一个多参数搜索页面就做成了把记录集相关字段绑定到页面

输入“李飞” 选择“作者” ,搜索结果如下

输入“李飞” 选择“标题” ,搜索结果如下

这里比上例多了一个时间筛选条件bbs_t ima>=now()-MM_t ima,nwo()是获取当前系统日期时间的一个函数,用它减去选定多少天前的变量值 即可筛出发表时间大于或等于多少天前的记录。

以上两例都是单层S QL查询你可以依照以上介绍的方法添AND条件如果要同时查询两个字段除了用AND外还可用OR运算符比如WHEREbbs_title LIKE'%MM_title%' or bbs_uesr LIKE'%MM_uesr%' 它查询bbs_title或者bbs_uesr字段符合搜索条件的记录。但有些记录 比如论坛回复贴子 因为它没有标题 bbs_title字段是空的而我要根据回复内容搜索贴子时就不能显示出主题标题。如何解决这个问题呢用嵌套查询可实现这个目的。

实例三、按标题、作者、回复内容及发表时间搜索记录。

1\把例二中的select列表菜单添多一项“回复内容” 如下图所示

2、修改代码

切换到“代码”视图找到这句代码

技巧为了把标题中关键词以不同颜色显示如上图所示 标题字段值用一个函数替换关键词如下<%=replace( (Recordset1.Fields. Item("bbs_title") .Value) ,request.QueryString("text") , "<fontcolor='#FF0000'>"&request.QueryString("text")&"</font>")%>

把(Recordset1.Fields. Item("bbs_title") .Value)换成你的字段并且将text修改为你设计的文本域名称。实例二根据标题、作者和发表时间搜索记录

1、在例一的基础增加一个列表菜单名称为t i ma,设置如下

上图中的“不选定条件”值为空稍后在记录集中设置它的默认值。其它的你自己可以任意添加选项和时间一天前值为1一年前值为365依此类推。

2、打开高级记录集设置如下

上图那个MM_t ima变量的默认值99999999是刚才“不选条件”值为空时返回99999999 即查询99999999天前的记录这个数值你可以自已设置如果不选定时间就查询你的数据中第一条记录插入时的时间这样就搜索数据库的全部记录了。

Recordset1.Source = "SELECT * FROM bbs WHERE " + Replace(Recordset1__MM_sch, "' ", "' ' ") + " LIKE '%"+ Replace(Recordset1__MM_text, "' ", "' ' ") + "%'and bbs_tima>=now()-" + Replace(Recordset1__MM_tima,"' ", "' ' ") + " and bbs_dist=0 ORDER BY bbsID DESC"

这是记录集SQL查询语句把它改为

Recordset1.Source = sql

然在在记录集代码段的第一行输入dim sqlif Recordset1__MM_sch="bbs_book" thensql=" SELECT *FROM bbs WHERE bbsID IN (SELECT bbs_dist FROM bbs WHERE " + Replace(Recordset1__MM_sch,"' ", "' ' ") + " LIKE '%" + Replace(Recordset1__MM_text, "' ", "' ' ") + "%'and bbs_tima>=now()-" +Replace(Recordset1__MM_tima, "' ", "' ' ") + " and bbs_dist<>0 ORDER BY bbsID DESC) ORDER BY bbsID DESC"elsesql="SELECT * FROM bbs WHERE " + Replace(Recordset1__MM_sch, "' ", "' ' ") + " LIKE '%" +Replace(Recordset1__MM_text, "' ", "' ' ") +"%'and bbs_tima>=now()-" +Replace(Recordset1__MM_tima, "' ","' ' ") + " and bbs_dist=0 ORDER BY bbsID DESC"end if

放入位置下图选中部分 

以上代码的简要说明

由于要用到嵌套查询所以使用判断语句根据用户选定的条件切换SQL语句 比如当用户选择“回复内容”时菜单列表返回值为“bbs_book” ,执行下面这一段SQL语句sql=" SELECT *FROM bbs WHERE bbsID IN (SELECT bbs_dist FROM bbs WHERE " + Replace(Recordset1__MM_sch,"' ", "' ' ") + " LIKE '%" + Replace(Recordset1__MM_text, "' ", "' ' ") + "%'and bbs_tima>=now()-" +Replace(Recordset1__MM_tima, "' ", "' ' ") + " and bbs_dist<>0 ORDER BY bbsID DESC) ORDER BY bbsID DESC"这是嵌套查询的语句小括号 内的是子级查询把符合搜索条件的记录筛出然后把bbs_dist 注这个字段记录主题ID号对应所回复的主题的ID号字段的值以列表形式返回主查询继续下一次查询 比如程序执行时 ()内的SQL语句优先执行筛出符合条件的记录后把它的bbs_dist的值返回主查询查询如下SELECT * FROM bbs WHERE bbsID IN (12,35,41,45,87. . . )

这样主查询语句就能把bbsid ID号等于12、 35、 41、 45、 87的记录全部筛出而这些记录都是有标题的贴子。 bbs_dist<>0表示只查询所有回复内容不查询主题内容。

须要注意的是子查询SELECT子句只能返回一个字段的值如SELECT bbs_dist否则将报错若写成这样 SELECTbbs_dist,bbs_id

报错如下

如果不是选中“回复内容” 将由else切换为sql="SELECT * FROM bbs WHERE " + Replace(Recordset1__MM_sch, "' ", "' ' ") + " LIKE '%" +Replace(Recordset1__MM_text, "' ", "' ' ") +"%'and bbs_tima>=now()-" +Replace(Recordset1__MM_tima, "' ","' ' ") + " and bbs_dist=0 ORDER BY bbsID DESC"

以上这段代码是单层查询和第二例SQL语句是一样的。

好了关于用DW MX做站内搜索就讲到这里只要核心原理都告诉给你了 留一些思考的空间给你吧 自己去试验扩展它的功能。俺没时间了就此告别。 886!

下面是搜索结果页源代码搜索页和结果页合拼在一起实际上应把它分离开来 

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>

Dim Recordset1__MM_text

Recordset1__MM_text = "1"

If (request.QueryString("text") <> "") Then

Recordset1__MM_text = request.QueryString("text")

End If

<%Dim Recordset1__MM_sch

Recordset1__MM_sch = "1"

If (request.QueryString("select") <> "") Then

Recordset1__MM_sch = request.QueryString("select")

End If%>

<%Dim Recordset1__MM_tima

Recordset1__MM_tima = "99999999"

If (request.QueryString("tima") <> "") Then

Recordset1__MM_tima = request.QueryString("tima")

End If%>

<%dim sqlif Recordset1__MM_sch="bbs_book" then

sql=" SELECT * FROM bbs WHERE bbsID IN (SELECT bbs_dist,bbs_id FROM bbs WHERE " +Replace(Recordset1__MM_sch, "' ", "' ' ") + " LIKE '%" +Replace(Recordset1__MM_text, "' ", "' ' ") + "%'andbbs_tima>=now()-" + Replace(Recordset1__MM_tima, "' ", "' ' ") + " and bbs_dist<>0 ORDER BY bbsID DESC)ORDER BY bbsID DESC"elsesql="SELECT * FROM bbs WHERE " + Replace(Recordset1__MM_sch, "' ", "' ' ") + " LIKE '%" +Replace(Recordset1__MM_text, "' ", "' ' ") +"%'and bbs_tima>=now()-" +Replace(Recordset1__MM_tima, "' ","' ' ") + " and bbs_dist=0 ORDER BY bbsID DESC"end if

Dim Recordset1

Dim Recordset1_numRows

Set Recordset1 = Server.CreateObject("ADODB.Recordset")

Recordset1.ActiveConnection = MM_new_STRING

Recordset1.Source = sql

Recordset1.CursorType = 0

Recordset1.CursorLocation = 2

Recordset1.LockType = 1

Recordset1.Open()

Recordset1_numRows = 0%>

<%Dim Repeat1__numRows

Dim Repeat1__index

Repeat 1__numRows = 20

Repeat1__index = 0

Recordset1_numRows = Recordset 1_numRows + Repeat1__numRows%>

<title>用DW MX打造站内搜索</title>

</head>

<body>

<p>关键词

选择条件

<option value="bbs_uesr+bbs_title" <%If (Not isNull (request.QueryString("select") ) ) Then If("bbs_uesr+bbs_title" = CStr(request.QueryString("select") ) ) Then Response.Write("SELECTED") :Response.Write("")%>>不选定条件</option>

</select>

<br>

选择时间

<option value="" <%If (Not isNull (request.QueryString("tima") ) ) Then If ("" =CStr(request.QueryString("tima") ) ) Then Response.Write("SELECTED") : Response.Write("")%>>不选定条件</option>

<option value="7" <%If (Not isNull (request.QueryString("tima") ) ) Then If ("7" =

CStr(request.QueryString("tima") ) ) Then Response.Write("SELECTED") : Response.Write("")%>>一周前</option>

</select>

<br>

</f orm>

</tr>

<% Whi le ( (Repeat1__numRows <> 0) AND (NOT Recordset1.EOF) ) %>

<td><%=replace( (Recordset1.Fields. Item("bbs_title") .Value) ,request.QueryString("text") , "<fontcolor='#FF0000' >"&request.QueryString("text")&"</font>")%></td>

</tr><% Repeat1__index=Repeat1__index+1

Repeat 1__numRows=Repeat 1__numRows-1

Recordset1.MoveNext()

Wend %>

</tabl e>

</body>

</html>

<% Recordset1.Close()

Set Recordset1 = Nothing %>

展开全文