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") ' 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|)" 'myquery="$CONTENTS dsn" objQuery.Query=myQuery objQuery.Columns = "Vpath, DocTitle, Filename, Characterization, Contents,DocKeyWords, Rank" 'objquery.Columns = "DocTitle, vpath, filename, size, write, characterization, rank" objQuery.SortBy = "Rank [d]" objQuery.MaxRecords = 50 objquery.catalog="learnasp" 'objUtil.AddScopeToQuery objQuery, "/", "deep" objquery.LocaleID = objutil.ISOToLocaleID("EN-US") linebr="
" & 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 "" & key & "" & linebr Case Else Response.Write "" & keyname & ":" & linebr Response.Write key & linebr End Select Next Response.Write "
" rstemp.movenext Loop ' clean up rstemp.close Set rstemp=Nothing Set objQuery = Nothing Set objUtil = Nothing %> It has To exclude many folders On my site And the following file excludes directories: <% myquery=myquery & " and not #Vpath = **_* " myquery=myquery & " and not #Vpath = *_contents* " myquery=myquery & " and not #Vpath = *_raw* " myquery=myquery & " and not #Vpath = *ads* " myquery=myquery & " and not #Vpath = *aspace* " myquery=myquery & " and not #Vpath = *advicedraft* " 'myquery=myquery & " and not #Vpath = *asplists* " myquery=myquery & " and not #Vpath = *aspmagazine ew* " myquery=myquery & " and not #Vpath = *aspfuture* " myquery=myquery & " and not #Vpath = *asptraining* " myquery=myquery & " and not #Vpath = *aspynews* " myquery=myquery & " and not #Vpath = *activeserverpages* " myquery=myquery & " and not #Vpath = *contribute* " myquery=myquery & " and not #Vpath = *cst* " myquery=myquery & " and not #Vpath = *charlescarrolldraft* " myquery=myquery & " and not #Vpath = *charlesteam* " myquery=myquery & " and not #Vpath = *dcline* " myquery=myquery & " and not #Vpath = *drafts* " myquery=myquery & " and not #Vpath = *experiments* " myquery=myquery & " and not #Vpath = *genericdb* " myquery=myquery & " and not #Vpath = *future* " myquery=myquery & " and not #Vpath = *home* " myquery=myquery & " and not #Vpath = *how* " myquery=myquery & " and not #Vpath = *images* " myquery=myquery & " and not #Vpath = *library* " myquery=myquery & " and not #Vpath = *learncover* " myquery=myquery & " and not #Vpath = *learnsecurityrisk* " myquery=myquery & " and not #Vpath = * aoko* " myquery=myquery & " and not #Vpath = *private* " myquery=myquery & " and not #Vpath = *perlscript* " myquery=myquery & " and not #Vpath = * eference* " myquery=myquery & " and not #Vpath = * edesign* " myquery=myquery & " and not #Vpath = *search* " myquery=myquery & " and not #Vpath = *searchasplists* " myquery=myquery & " and not #Vpath = *secret* " myquery=myquery & " and not #Vpath = *sites* " myquery=myquery & " and not #Vpath = *search* " myquery=myquery & " and not #Vpath = *speedsitelaws* " myquery=myquery & " and not #Vpath = *start* " myquery=myquery & " and not #Vpath = * rash* " myquery=myquery & " and not #Vpath = * est* " myquery=myquery & " and not #Vpath = *upload* " myquery=myquery & " and not #Vpath = *upload ests* " myquery=myquery & " and not #filename indexmaster.asp" myquery=myquery & " and not #filename index.asp" myquery=myquery & " and not #filename indexold.asp" myquery=myquery & " and not #filename *.|(txt|,inc|,htm|,mdb|,cnt|,class|,toc|,html|,css|)" %>