当前位置：编程学习 > asp >>
答案：<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|)"
%>
上一个：全文本检索的应用(三)
下一个：Windows 2000 Server 下 Indexing Service 编程实例。
- 更多asp疑问解答：
- asp正则过滤重复字符串的代码
- 用asp过滤全部html但保留br类似的符号
- 会asp，但感觉asp要过点，想学php。但我一般做的都是小公司的站，用access数
- PHP的空间可以用ASP的源代码吗？
- 以前做asp程序，现在应该怎样发展？是学.net还是php
- 以前做asp程序，现在应该怎样发展？是学.net还是php
- 想做一个市级的人才网acess,sql数据库，语言asp,jsp,php分别用哪种好
- jsp，asp，php 区别
- 我想找一个有比较多漏洞的网站的源码，比如可以asp，php注入等都可以。供学习研究用。请提供下载地址。。
- 现在候找人做个网站，用ASP，还是PHP语言去做好
- asp,php ,jsp,.net 对于做网站前台的重要吗？
- asp和php的区别是什么？
- 我是新手SEO菜鸟 请问wp dw php asp cms myspl dede 这些软件应该如何区分呀？
- 网页制作相关的三种语言：ASP JSP PHP那个好点，简单点？
- 网页制作相关的三种语言：ASP JSP PHP那个好点，简单点？