用asp怎样做搜索引擎呢？给出具体例子好吗？

nnit 2001-07-18 12:02:22

...全文

121 2 打赏收藏转发到动态举报

写回复

用AI写文章

2 条回复

切换为时间正序

请发表友善的回复…

发表回复

tripofdream 2001-07-18

打赏
举报

这是runqi的代码,供你参考
<html>
<head>
</head>
<body>
<form method="post" action="query.asp">
搜索：<input type="text" name="txtQuery" size="16" value=<%=Request("txtQuery")%>>
<input type="submit" value="确定">

<%
If Request("txtQuery") <> "" Then
set objquery=server.CreateObject ("ixsso.query")
'set util=server.createobject("ixsso.Util")
objQuery.Query = Request("txtQuery")
objQuery.Columns="filename,vpath,DocTitle,size,write"
objQuery.Catalog = "test2"
objQuery.MaxRecords = 50
'util.AddScopeToQuery objQuery,formScope,"deep"
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>
<%
if rsQuery("vpath")="" then Response.Write "path is empty"
%>
<a href="<%=Server.HTMLEncode(rsQuery("vpath"))%>"><% =rsQuery("doctitle")%></a> 　　
<%
response.write rsQuery("size")
response.write rsQuery("vpath")
response.write rsQuery("write")
%>

</td>
</tr>
<%
end if
rsQuery.MoveNext
loop
%>
</table>
<%end if
end if
%>
</form>
</body>
</html>

jaderabbit 2001-07-18