[indexof]index server example

【www.bbyears.com--word】

Choose The Word You Want to Search For::

Search Word:

The iskeywordrespond.asp looks like this:




<%
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
%>

<%
" 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="
" & vbcrlf
Set rstemp = objQuery.CreateRecordSet("nonsequential")
        DO UNTIL rstemp.eof
        FOR EACH key in rstemp.fields

本文来源：http://www.bbyears.com/bangongshuma/3183.html