一聚教程网:一个值得你收藏的教程网站

热门教程

index server example

时间:2022-06-30 09:35:11 编辑:袖梨 来源:一聚教程网


iskeyword.asp


Choose The Word You Want to Search For::


Search Word:




The iskeywordrespond.asp looks like this:

iskeywordrespond.asp


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

热门栏目