| 广告招租，e-mail:yesize@hotmail.com
|
|
广告招租，e-mail:yesize@hotmail.com
<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
%>
<!--#include virtual=/search/exclude.asp-->
<%
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|)
%>
版权说明：作品来源于网上，版权归作者所有，如果无意中侵犯了您的版权，请来信告知，本站将在3个工作日内删除。yesize@hotmail.com |
|
 热门小游戏分类 |
|
|
|
加入最爱
