如何使用Index Server建立一个网站导航地图？

如何使用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＞