用DW MX造站内搜索

2、修改代码

切换到“代码”视图，找到这句代码：

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 sql
if Recordset1__MM_sch="bbs_book" then
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"
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"
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，否则将报错，若写成这样：

SELECT bbs_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 sql
if 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, "'", "''") + "%'and bbs_tima>=now()-" + Replace(Recordset1__MM_tima, "'", "''") + " and bbs_dist<>0 ORDER BY bbsID DESC) ORDER BY bbsID DESC"
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"
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

Repeat1__numRows = 20
Repeat1__index = 0
Recordset1_numRows = Recordset1_numRows + Repeat1__numRows
%>

关键词：
">
选择条件：
>不选定条件>作者>标题>回复内容


选择时间：
>不选定条件>一周前>一个月前>半年前>一年前

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

<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
Recordset1.MoveNext()
Wend
%>

标题	作者	发表时间
<%=replace((Recordset1.Fields.Item("bbs_title").Value),request.QueryString("text"), ""&request.QueryString("text")&"")%>	<%=(Recordset1.Fields.Item("bbs_uesr").Value)%>	<%=(Recordset1.Fields.Item("bbs_tima").Value)%>

<%
Recordset1.Close()
Set Recordset1 = Nothing
%>