如何做一个只搜索本网站的引擎
来源:互联网 发布:dnf组队网络冲突2017 编辑:程序博客网 时间:2024/06/09 22:59
searchfiles.html
<html>
<head>
<title>撼雪喷云之本网搜索引擎</title>
</head>
<body>
<form method="POST" action="cgi-bin/searchfiles.asp">
<table border="0" cellpadding="5" bgcolor="#C2E7E3">
<tr>
<td align="center">请输入条目或关键词<input type="text" name="term" size="15"> <input type="submit" value="搜索"></td>
</tr>
</table>
</form>
</body></html>
searchfiles.asp
<%
SearchTerm = request.form("term")
Novalid=" a b c d e f g h i j k l m n o p q r s t u v w x y z yes no and more"
NovalidResponse ="你输入的内容过于简单,请返回重试!"
if instr(SearchTerm,Novalid)=0 then
Response. Write ("<CENTER><H2>搜索结果</H2></CENTER>")
FolderName= "FolderName"
ShowList()
else
Response.Write NovalidResponse
End if
SearchResponse=""
%>
<%
Sub ShowList()
FolderToCheck = server.mappath("\") &"/" & FolderName & "/"
Dim fs, f, f1, fc, s
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(FolderToCheck)
Set fc = f.Files
For Each f1 in fc
Wfile = f1.name
if right(Wfile, 5)=".html" OR right(Wfile, 4)=".htm" then
Wfile2 = FolderToCheck & Wfile
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.OpenTextFile(Wfile2)
ct = a.ReadAll
a.close
ct2=lcase(ct)
SearchTerm2 = lcase(SearchTerm)
if instr(ct2,SearchTerm2)>0 then
if instr(ct,"</title>")>0 then
longitud=instr(ct,"</title>")
longitud=longitud -1
ct=left(ct,longitud)
longitud2=len(ct)
longitud=instr(ct,"<title>")
longitud=longitud2 -longitud -6
ct=right(ct,longitud)
else
if instr(ct,"</title>")>0 then
longitud=instr(ct,"</title>")
longitud=longitud -1
ct=left(ct,longitud)
longitud2=len(ct)
longitud=instr(ct,"<title>")
longitud=longitud2 -longitud -6
ct=right(ct,longitud)
end if
end if
SearchResponse= SearchResponse +"<tr><td>"+ ct + "</td><td ALIGN=CENTER
VALIGN=MIDDLE>" + " <A HREF=" + "/" + FolderName + "/" + Wfile +"> More </A></td></tr>"
longitud=0
ct=""
end if
end if
Next
Response.Write ("<html><head><title>搜索结果</title></head><body BGCOLOR=FFFFFF><CENTER>")
Response.Write ("<TABLE BORDER=0 WIDTH=550><tr><td BGCOLOR=C0C0C0><FONT SIZE=5><B>搜索结果</B></FONT></td></tr></TABLE>")
Response.Write ("<TABLE BORDER=0 WIDTH=550>")
if SearchResponse<>"" then
Response.Write SearchResponse
else
Response.Write ("<tr><td>对不起,没有找到你输入的条目或关键词!</td></tr>")
end if
Response.Write ("</TABLE>")
Response.Write ("<TABLE BORDER=0 WIDTH=550><tr><td BGCOLOR=C0C0C0 ALIGN=RIGHT><FONT SIZE=1>现在调用专业搜索引擎<A HREF=http://www.yahoo.com.cn/ </A></FONT></td></tr></TABLE>")
' 任选一个你喜欢的引擎.
Response.Write ("</CENTER></body></html>")
End Sub
%>
- 如何做一个只搜索本网站的引擎
- 如何做一个网站
- 如何做一个自己的服务器网站
- 如何做一个网站的SEO
- 如何做一个标准的网站?
- 如何做一个好的网站
- 怎样做可以只从某网站搜索信息
- 如何做一个钓鱼网站并伪装自己的IP?
- 如何做一个针对百度搜索引擎友好的网站
- 如何做一个高质量的网站页面?
- 如何做一个高质量的网站页面
- 如何在本网站域名下展示另外一个网站域名的内容
- 一个计算器的代码,只做注释
- 刚毕业的时候想做的一个图书搜索网站
- 如何快速搜索本博客的文章
- AR技术应用 の 如何做一个Pokemon GO这只皮卡丘是你的吗?
- 做一个网站的步骤
- 如何做一个网站来赚钱盈利!
- 如何读取一个.ini文件
- iOS应用的真机调试
- emulator: ERROR: the user data image is used by another emulator. aborting
- JDK环境变量配置
- php判断来源网址地址并且限制非法来源
- 如何做一个只搜索本网站的引擎
- c++中的explicit关键字
- PHP 判断访问来源是否来自手机并跳转页面
- 在vim中让大括号自动完成并对齐
- ArcGIS Runtime for Android开发教程V2.0(9)基础篇-----查询检索
- 纪念这一天
- 如何实现全文检索
- 单例模式1(singleton pattern)
- oracle 索引整理