如何使用Index Server建立一个网站导航地图?
时间:2010-06-05 12:39:00
如何使用Index Server建立一个网站导航地图?
程序代码如下:
<html>
<head>
<title>asp教程之网站导航 - aspxhome.com</title>
</head>
<body>
<form method="POST" action="query.asp">
请输入你想搜索的内容:<input type="text" name="txtQuery" size="16">
<input type="submit" value="搜索">
<% If Request("txtQuery") <> "" Then
Dim objQuery
Dim rsQuery
' Query对象是搜索引擎核心,直接与Index Server引擎对话检索数据
Set objQuery = Server.CreateObject("ixsso.Query")
objQuery.Query = Request("txtQuery")
' Query属性用于存储搜索准则,可将数据输入表单文本框放在一页
objQuery.Columns="filename,vpath,DocTitle"
' Columns属性存储从查询返回的各列,这些列的名称是固定的;docttitle参数是文档标题,对于HTML文档是在文件的<TITLE>标记之间的值,对于其它类型的文档标题随存储位置不同而变; vpath参数是文件的虚拟路径
objQuery.Catalog = "E:\InetPub\wwwroot\qhmolss"
' Catalog属性指定索引所在的目录,一旦填充了Catalog对象,就创建了从查询得到的ADO记录集.这个记录集和从数据库中创建的记录集一样,可以相同的方式导航
objQuery.MaxRecords = 50
' MaxRecords属性不是必须使用的
Set rsQuery = objQuery.CreateRecordset("nonsequential")
If rsQuery.EOF Then %>
<font color="#FF0000">噢,没有找到您想查询的内容!</font><%
Else %>
<table>
<% Do While Not rsQuery.EOF
If rsQuery("doctitle") <> "" Then %>
<tr>
<td><a href="<% = rsQuery("vpath") %>">
<% = rsQuery("doctitle") %></a>
</td>
</tr>
<% End If
rsQuery.MoveNext
Loop
Response.Write "</table>"
End If
End If %>
</form>
</body>
</html>