<%
Option Explicit
Dim SearchString
Dim LenKey
Dim fs
Dim fd
'-----------
Const Catalog = "/" '被搜索的目录，请使用非绝对路径，当前使用默认的DOWNLOAD目录
Const Head = "PopSciChina.com" '搜索引擎标题
Const KeyStart = "<TITLE>" '被搜索的HTM结构文件的可搜索范围的头标记(大小写无所谓)
Const KeyEnd = "</TITLE>" '被搜索的HTM结构文件的可搜索范围的末标记(大小写无所谓)
Const FolderImg = "FOLDER.GIF" '代表目录的图片路径[可以不改]
Const FileImg = "FILE.GIF" '代表文件的图片路径[可以不改]
Const FileType = "htm" '文件类型，后缀名，此处默认的为搜索后缀名称为.ASP的文件内容
SearchString = Request("SearchString") '接收被搜索的数值[无需更改]
LenKey = Len(KeyStart) 'KeyStart字符长度[无需更改]
Function UnMapPath( Path )
UnMapPath = Replace(Mid(Path, Len(Server.MapPath("/")) + 1), "\", "/")
End Function
Function SearchFile( f, s, title )
Dim fo
Dim content
Dim pos1,pos2
On Error Resume Next
Set fo = fs.OpenTextFile(f)
content = fo.ReadAll
fo.Close
SearchFile = InStr(1, content, S, vbTextCompare) > 0
If SearchFile Then
pos1 = InStr(1, Lcase(content), Lcase(KeyStart), vbTextCompare)
pos2 = InStr(1, Lcase(content), Lcase(KeyEnd), vbTextCompare)
title = ""
If pos1 > 0 And pos2 > 0 Then
title = Mid( content, pos1 + LenKey, pos2 - pos1 - LenKey )
End If
End If
If Err Then
Response.Write ("<font color=red><B>")
Response.Write ("Error #" & CStr(Err.Number) & "" & Err.des cription )
Response.Write ("该文件名称为：" & f.Name & "<br>" & VbCrlf)
Response.Write ("</B></font>" & VbCrlf)
Else
Response.Write ("<font color=#000000>")
Response.Write ("Error #" & CStr(Err.Number) & "" & Err.des cription )
Response.Write ( f.name & "在正常运行<br>" & VbCrlf)
Response.Write ("</font>" & VbCrlf)
End If
End Function
Function FolderLink( fd )
Dim vPath
vPath = UnMapPath( fd.Path )
FolderLink = "<A HREF=""" & vPath & """>" & vPath & "</A>"
FolderLink = "<IMG SRC=" & FolderImg & " Align=TextTop> "& FolderLink
End Function
Function FileLink( f, title )
Dim vPath
vPath = UnMapPath( f.Path )
If title = "" Then title = f.Name
FileLink = "<A HREF=""" & vPath & """>" & title & "</A>"
FileLink = "<UL><IMG SRC=" & FileImg & " Align=TextTop> " & FileLink & "</UL>"
End Function
Sub SearchFolder( fd, s )
Dim found
Dim pos
Dim ext
Dim f
Dim sfd
Dim Title
found = False
For each f In fd.Files
pos = InStrRev(f.Path, "." )
If pos > 0 Then
ext = Mid(f.Path, pos + 1 )
Else
ext = ""
End If
If LCase(ext) = LCase(FileType) Then
If SearchFile( f, s, title ) Then
If found = False Then
found = True
Response.Write FolderLink(fd) & "<P>"
End If
Response.Write FileLink(f, title)
End If
End If
Next
For each sfd In fd.SubFolders
SearchFolder sfd, s
Next
End Sub
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb_2312-80">
<title><%=Head%></title>
</head>
<body bgcolor="#FFFFFF">
<h2><%=Head%></h2>
<hr>
<form action="<%=Request.ServerVariables("s cript_NAME")%>" method="Get">
<p>请输入欲搜索的字串： <input type="text"
size="20" name="SearchString" value="<%=SearchString%>"> <input
type="submit" value="搜索"> </p>
</form>
<%
Set fs = Server.CreateObject("s cripting.FileSystemObject")
Set fd = fs.GetFolder( Server.MapPath(Catalog))
If SearchString <> "" Then
Response.Write "<H2>搜索 " & SearchString & " 的结果：</H2><P>"
SearchFolder fd, SearchString
End If
%>
<hr>
</body>
</html>
请网页高手帮助我一下,如何在自己的主页上加搜索,搜索站点内部的...
Const FolderImg = "FOLDER.GIF" '代表目录的图片路径[可以不改]Const FileImg = "FILE.GIF" '代表文件的图片路径[可以不改]Const FileType = "htm" '文件类型，后缀名，此处默认的为搜索后缀名称为.ASP的文件内容 SearchString = Request("SearchString") '接收被搜索的数值[无需更改]LenKey =...
网页高手帮帮我 啊
●尽可能将网站内最有价值的内容列在栏目上; ●尽可能从访问者角度来编排栏目以方便访问者的浏览和查询;辅助内容,如站点简介、版权信息、个人信息等大可不必放在主栏目里,以免冲淡主题。 另外,板块的编排设置也要合理安排与划分。板块比栏目的概念要大一些,每个板块都有自己的栏目。举个例子:ENET硅谷动力(www.enet...
请高手告诉如何在百度等搜索引擎推广我的网站http:\/\/www.gz2020.com...
方法一：主动向搜索引擎提交自己的网址 向百度、Google、Yahoo提交网址是不用花钱的，其提交页面分别为：http:\/\/www.baidu.com\/search\/url_submit.html http:\/\/www.google.com\/intl\/zh-CN\/add_url.html http:\/\/www.yisou.com\/search_submit.html?source=yisou_www_hp 还有一个比较特殊且重要的网站...
求SEO高手,求高人,求指教, 本人 才开始做电影网站推广 求高人指点...
第一：站内优化：你可以加入一些热门影片，利用百度指数等关键词工具看看近一段时间内那些电影比较过，你就在你的子页面重点优化，获取点击；合理的分配标题的关键词，提高网页相关性；找到一些权重比较高的网站做好友情链接。第二外部优化以及外链建设 一、论坛、百度贴吧推广：我通常都是把一些特别热门的...
我的IE主页上次在这图中间有一些连接,就是自己添加在上面的,然后点一下...
点五角星 显示收藏栏
百度搜索引擎有什么使用技巧
身高”来查询。而由于明星的名字一般在网页标题中出现，因此，更精确的查询方式，可以是“姓名 身高 intitle:林青霞”。Intitle，表示后接的词限制在网页标题范围内。这类主题词加上特征词的查询构造方法，适用于搜索具有某种共性的网页。前提是，您必须了解这种共性（或者通过试验性搜索预先发现共性）。
请网页制作高手帮个忙,谢啦!
1、首先要求分辨率为1024*768是说要把显示器分辨率调成1024*768再做吗？只是要求在1024＊768分辨率下能正常显示，建议分辨率不低于这一设置，调试网页更方便。2、是用FrontPage做好还是用Dreamweaver做好？如果可以，那当然用Dreamweaver。3、是要新建一个什么？网页还是站点？新建一个站点，由若干个网页链接...
怎样能让别人在百度上搜索到我公司名字和相关介绍
比如本文呵呵相信对你很有用吧)引导阅读者去进行该词的搜索比如本文就在不断地引导你在百度上搜索"温州东方妇产医院不孕不育";步骤三:把这些文章发到一些大型的博客和论坛如新浪\\搜狐\\\\和讯\\阿里巴巴等等;相信通过上面的说明你应该可以理解其中奥妙了吧那就赶快行动试验一下吧....
如何在自己的网站上添加可供下载的文档(产品说明书)
最好把说明书做成PDF格式。然后，编辑一个说明书网页，添加产品名称以及每个产品对应的说明书名称，可以用表格形式，做好表格后，设置网页链接，把表格里面每一个产品做一个链接，链接到站点目录product下的说明书文件。然后，在主页上导航栏里面，做一个网页链接，把说明书网页链接到主页上。
寻求seo高人,比如,www.xx.cn 和www.xx.cn\/index.html,从seo角度看是相 ...
以前做过的几个网站，搜索引擎给上面的两个url的权重是不同的。一个最明显的现象就是不带\/index.html的网页pr是4，带\/index.html的pr是2。不过你也没有必要一定要进行301重定向，只要做外部链接的时候注意一下，让对方链接其中的一个；而内部链接你自己看着办就行了。
