Dreamweaver MX打造自己的网站站内搜索引擎

Dreamweaver MX打造自己的网站站内搜索引擎

收藏此文到

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

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

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
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>用DW MX打造站内搜索</title>
</head>

<body>
<form name="form1" method="get" action="">
<p>关键词：
<input name="text" type="text" id="text" value="<%=request.QueryString("text")%>">
选择条件：
<select name="select">
<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>
<option value="bbs_uesr" <%If (Not isNull(request.QueryString("select"))) Then If ("bbs_uesr" = CStr(request.QueryString("select"))) Then Response.Write("SELECTED") : Response.Write("")%>>作者</option>
<option value="bbs_title" <%If (Not isNull(request.QueryString("select"))) Then If ("bbs_title" = CStr(request.QueryString("select"))) Then Response.Write("SELECTED") : Response.Write("")%>>标题</option>
<option value="bbs_book" <%If (Not isNull(request.QueryString("select"))) Then If ("bbs_book" = CStr(request.QueryString("select"))) Then Response.Write("SELECTED") : Response.Write("")%>>回复内容</option>
</select>
<br>
选择时间：
<select name="tima" id="tima">
<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>
<option value="31" <%If (Not isNull(request.QueryString("tima"))) Then If ("31" = CStr(request.QueryString("tima"))) Then Response.Write("SELECTED") : Response.Write("")%>>一个月前</option>
<option value="182" <%If (Not isNull(request.QueryString("tima"))) Then If ("182" = CStr(request.QueryString("tima"))) Then Response.Write("SELECTED") : Response.Write("")%>>半年前</option>
<option value="365" <%If (Not isNull(request.QueryString("tima"))) Then If ("365" = CStr(request.QueryString("tima"))) Then Response.Write("SELECTED") : Response.Write("")%>>一年前</option>
</select>
<input type="submit" name="Submit" value="搜索">
<br>
</form>
<table width="666" border="0" cellpadding="0" cellspacing="1" bgcolor="#FFCC33">
<tr bgcolor="#FFCC66">
<td width="291">标题</td>
<td width="156">作者</td>
<td width="219">发表时间</td>
</tr>
<%
While ((Repeat1__numRows <> 0) AND (NOT Recordset1.EOF))
%>
<tr bgcolor="#FFFFFF">
<td><%=replace((Recordset1.Fields.Item("bbs_title").Value),request.QueryString("text"), "<font color='#FF0000'>"&request.QueryString("text")&"</font>")%></td>
<td><%=(Recordset1.Fields.Item("bbs_uesr").Value)%></td>
<td><%=(Recordset1.Fields.Item("bbs_tima").Value)%></td>
</tr>
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
Recordset1.MoveNext()
Wend
%>
</table>
</body>
</html>
<%
Recordset1.Close()
Set Recordset1 = Nothing
%>

<------------完----------->

上一页 [1] [2] [3]

上一篇文章： Dreamweaver制作在线音乐网站

下一篇文章：没有了

图解Dreamweaver虚线制作方法
Dreamweaver方便快捷编辑网页标签
dreamweaver制作滚动字幕
Dreamweaver架设网站终极教程
Dreamweaver MX表格排序功能介绍
Dreamweaver制作网页过度效果技巧
玩转DW属性检查器和文本格式设置
Dreamweaver中空格问题的探讨
Dreamweaver8对网站文件进行检查和整理
Dreamweaver中灵活使用网页表格

常用软件类：	\|杀毒安全	\|联络聊天	\|网络软件	\|多媒体类	\|系统工具	\|图形图像	\|系统工具	\|应用软件	\|行业软件
开发设计类：	\|动画制作	\|图像处理	\|3D设计	\|操作系统	\|站长学院	\|网络相关	\|WEB设计	\|数据库类	\|程序开发