index server example

index server example

- 中国WEB开发者网络 (http://www.webasp.net)
-- 技术教程 (http://www.webasp.net/article/)
--- index server example (http://www.webasp.net/article/3/2711.htm)

-- 作者：未知
-- 发布日期： 2003-07-11

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


<%
' 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 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 = *\advice\draft* "
myquery=myquery & " and not #Vpath = *\aspmagazine\new* "
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 = *\charlescarroll\draft* "

myquery=myquery & " and not #Vpath = *\dcline* "
myquery=myquery & " and not #Vpath = *\drafts* "

myquery=myquery & " and not #Vpath = *\experiments* "

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 = *\learn\cover* "

myquery=myquery & " and not #Vpath = *\private* "
myquery=myquery & " and not #Vpath = *\perlscript* "

myquery=myquery & " and not #Vpath = *\reference* "
myquery=myquery & " and not #Vpath = *\redesign* "

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 = *\trash* "
myquery=myquery & " and not #Vpath = *\test* "

myquery=myquery & " and not #Vpath = *\upload* "
myquery=myquery & " and not #Vpath = *\upload\tests* "

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

webasp.net