index server example_ASP全文检索_ASP教程
日期：2008-10-19 浏览次数：21414 次
<HTML><head>
<title>iskeyword.ASP</title>
</head><body bgcolor="#FFFFFF">
<Form action = "iskeywordRespond.ASP" method="get">
Choose The word You Want to Search For::<p>
Search word: <Input NAME="Keyword" size ="30"><br>
<Input type="submit" value="Find The Documents!">
</form>
</body></HTML>
The iskeywordrespond.ASP looks like this:
<HTML><head>
<title>iskeywordrespond.ASP</title>
</head>
<body>
<%
Set objQuery = Server.CreateObject("ixsso.query")
Set objUtil = Server.CreateObject("ixsso.util")
my_keyword=request("keyword")
objquery.catalog="learnASP"
' keyword search
myquery=myquery & "$contents " & my_keyword
' Exclude specific folders
%>
<!--#include virtual="/search/exclude.ASP"-->
<%
' Exclude specific filenames
myquery=myquery & " and not #filename indexmaster.ASP"
myquery=myquery & " and not #filename index.ASP"
myquery=myquery & " and not #filename indexold.ASP"
' Exclude specific extensions
myquery=myquery & " and not #filename *.|(txt|,inc|,htm|,mdb|,cnt|,class|,toc|,HTML|,CSS|)"
objQuery.Query=myQuery
objQuery.Columns = "Vpath, DocTitle, Filename, Characterization, Contents,DocKeywords, Rank"
objQuery.SortBy = "Rank [d]"
objQuery.MaxRecords = 50
objUtil.AddScopeToQuery objQuery, "/", "DEEP"
linebr="<br>" & vbcrlf
Set rstemp = objQuery.CreateRecordSet("nonsequential")
DO UNTIL rstemp.eof
FOR EACH key in rstemp.fields
keyname=lcase(key.name)
SELECT CASE keyname
CASE "vpath"
response.write "<a href=../../'"
response.write key
response.write "'>" & key & "</a>" & linebr
CASE ELSE
response.write "<b>" & keyname & ":</b>" & linebr
response.write key & linebr
END SELECT
NEXT
response.write "<br><hr>"
rstemp.movenext
LOOP
' clean up
rstemp.close
set rstemp=nothing
Set objQuery = nothing
Set objUtil = nothing
%>
</body>
</HTML>
It
<title>iskeyword.ASP</title>
</head><body bgcolor="#FFFFFF">
<Form action = "iskeywordRespond.ASP" method="get">
Choose The word You Want to Search For::<p>
Search word: <Input NAME="Keyword" size ="30"><br>
<Input type="submit" value="Find The Documents!">
</form>
</body></HTML>
The iskeywordrespond.ASP looks like this:
<HTML><head>
<title>iskeywordrespond.ASP</title>
</head>
<body>
<%
Set objQuery = Server.CreateObject("ixsso.query")
Set objUtil = Server.CreateObject("ixsso.util")
my_keyword=request("keyword")
objquery.catalog="learnASP"
' keyword search
myquery=myquery & "$contents " & my_keyword
' Exclude specific folders
%>
<!--#include virtual="/search/exclude.ASP"-->
<%
' Exclude specific filenames
myquery=myquery & " and not #filename indexmaster.ASP"
myquery=myquery & " and not #filename index.ASP"
myquery=myquery & " and not #filename indexold.ASP"
' Exclude specific extensions
myquery=myquery & " and not #filename *.|(txt|,inc|,htm|,mdb|,cnt|,class|,toc|,HTML|,CSS|)"
objQuery.Query=myQuery
objQuery.Columns = "Vpath, DocTitle, Filename, Characterization, Contents,DocKeywords, Rank"
objQuery.SortBy = "Rank [d]"
objQuery.MaxRecords = 50
objUtil.AddScopeToQuery objQuery, "/", "DEEP"
linebr="<br>" & vbcrlf
Set rstemp = objQuery.CreateRecordSet("nonsequential")
DO UNTIL rstemp.eof
FOR EACH key in rstemp.fields
keyname=lcase(key.name)
SELECT CASE keyname
CASE "vpath"
response.write "<a href=../../'"
response.write key
response.write "'>" & key & "</a>" & linebr
CASE ELSE
response.write "<b>" & keyname & ":</b>" & linebr
response.write key & linebr
END SELECT
NEXT
response.write "<br><hr>"
rstemp.movenext
LOOP
' clean up
rstemp.close
set rstemp=nothing
Set objQuery = nothing
Set objUtil = nothing
%>
</body>
</HTML>
It
免责声明： 本文仅代表作者个人观点，与爱易网无关。其原创性以及文中陈述文字和内容未经本站证实，对本文以及其中全部或者部分内容、文字的真实性、完整性、及时性本站不作任何保证或承诺，请读者仅作参考，并请自行核实相关内容。
