繁体中文
设为首页
加入收藏
当前位置:ASP技术首页 >> 全文检索 >> index server example

index server example

2004-10-01 08:26:10  作者:  来源:互联网  浏览次数:37  文字大小:【】【】【
简介:<html><head> <title>iskeyword.asp</title> </head><body bgcolor="#FFFFFF"> <Form action = "iskeywordRespond.asp" method="get">...
关键字:example server index

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

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

%>

责任编辑:admin
相关文章