网络编程
位置：首页>> 网络编程>> Asp编程>> 如何创建一个对索引服务器进行查询的ASP页面？

如何创建一个对索引服务器进行查询的ASP页面？

　来源：asp之家　发布时间：2009-11-14 20:54:00　

标签：服务器,查询,asp

看看下面：

<％
Set objQuery = Server.CreateObject("ixsso.Query")
' 设置查询对象set the query object
objQuery.SetQueryFromURL(Request.QueryString)
' 从输入的URL (from the form GET operation)得到查询属性
objquery.columns="filename,HitCount,vpath,DocTitle,characterization"
' 应包含哪些列
set rsQuery = objquery.createrecordset("nonsequential")
' 打开记录集以查询
％>
' 如果rsquery.eof 返回值不是 TRUE,则显示查询结果;如果返回值是TRUE;则表示没查询到
<html>
<head>
<title>精彩春风之ASP查询索引服务器</title>
</head>
<body>
<h1>精彩春风之查询结果</h1>
本次查询最多返回并显示200个记录,每页显示20个. <br>
<％
if not rsquery.eof then
Response.Write rsquery.recordcount & " 个结果被找到！ "
if rsquery.recordcount > 30 then
Response.Write "请核对并优化您的查询！"
end if
Response.Write "<br>"
end if 
％>
<％
if not rsquery.eof then
while not rsquery.eof and rowcount > 0
if rsquery("doctitle") <> "" then
Response.Write "<p><b><a href="" & rsquery("vpath") & "">" & rsquery("doctitle") & "</a></b><br>"
response.write "<font size=-1>" & rsquery("characterization") & "...</font><Br>"
Response.Write "<font size=- 2>" & rsquery("hitcount") & " hit(s)</font></p>"
end if
rowcount = rowcount - 1
rsquery.movenext
wend
Response.Write "<br><Br>"
％>
<％ 
else
％>
<p>
噢,没有找到您要查询的纪录！
</p>
<p>
如果您想使用两个或两个以上的词查询，使用and或or。
</p>
<％
end if
％>
</body>
</html>

调试好上面的程序，我们就可以使用server.creatobject方法来建立对索引服务器对象的引用了：

Set objQuery = Server.CreateObject("ixsso.Query")

 

0
投稿

猜你喜欢

手机版 网络编程 asp之家 www.aspxhome.com