硬盘文件搜索代码(ASP类)

原创 2003年12月07日 22:40:00

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
dim st
st=timer()
'*************************************************************
'*************搜索硬盘文件的类SearchFile         *************
'*************调用方法:                          *************
'*************Set newsearch=new SearchFile '声明 *************
'*************newsearch.Folder="F:+E:"'传入搜索源*************
'*************newsearch.keyword="汇编"    '关键词*************
'*************newsearch.Search          '开始搜索*************
'*************Set newsearch=Nothing         '结束*************
'*************Copyright(c)醉雨梧桐小站           *************
'*************http://btyz.51web.cn/              *************        
'*************************************************************
Class SearchFile
 dim Folders  '传入绝对路径,多路径使用+号连接,不能有空格
 dim keyword  '传入关键词
 dim objFso   '定义全局变量
 dim Counter  '定义全局变量,搜索结果的数目
'*****************初始化**************************************
 Private Sub Class_Initialize
  Set objFso=Server.CreateObject("Scripting.FileSystemObject")
  Counter=0    '初始化计数器
 End Sub
'************************************************************
 Private Sub Class_Terminate
    Set objFso=Nothing
 End Sub
'**************公有成员,调用的方法***************************
 Function Search
  Folders=split(Folders,"+")   '转化为数组
  keyword=trim(keyword)   '去掉前后空格
  if keyword="" then
    Response.Write("<font color='red'>关键字不能为空</font><br/>")
 exit Function
  end if
  '判断是否包含非法字符
  flag=instr(keyword,"/") or instr(keyword,"/")
  flag=flag or instr(keyword,":")
  flag=flag or instr(keyword,"|")
  flag=flag or instr(keyword,"&")
 
  if flag then   '关键字中不能包含//:|&
    Response.Write("<font color='red'>关键字不能包含//:|&</font><br/>")
 Exit Function   '如果包含有这个则退出
  end if
  '多路径搜索
  dim i
  for i=0 to ubound(Folders)
    Call GetAllFile(Folders(i))  '调用循环递归函数
  next
  Response.Write("共搜索到<font color='red'>"&Counter&"</font>个结果")
 End Function
'***************历遍文件和文件夹******************************
 Private Function GetAllFile(Folder)
  dim objFd,objFs,objFf
  Set objFd=objFso.GetFolder(Folder)
  Set objFs=objFd.SubFolders
  Set objFf=objFd.Files
  '历遍子文件夹
  dim strFdName  '声明子文件夹名
  '*********历遍子文件夹******
  on error resume next
  For Each OneDir In objFs
    strFdName=OneDir.Name
 '系统文件夹不在历遍之列
    If strFdName<>"Config.Msi" EQV strFdName<>"RECYCLED" EQV strFdName<>"RECYCLER" EQV strFdName<>"System Volume Information" Then
      SFN=Folder&"/"&strFdName     '绝对路径
      Call GetAllFile(SFN)            '调用递归
 End If
  Next
  dim strFlName
  '**********历遍文件********
  For Each OneFile In objFf
    strFlName=OneFile.Name
 'desktop.ini和folder.htt不在列取范围
    If strFlName<>"desktop.ini" EQV strFlName<>"folder.htt" Then
      FN=Folder&"/"&strFlName
   Counter=Counter+ColorOn(FN)
 End If
  Next
  '***************************
  '关闭各对象实例
  Set objFd=Nothing
  Set objFs=Nothing
  Set objFf=Nothing
 End Function
'*********************生成匹配模式***********************************
 Private Function CreatePattern(keyword)  
   CreatePattern=keyword
   CreatePattern=Replace(CreatePattern,".","/.")
   CreatePattern=Replace(CreatePattern,"+","/+")
   CreatePattern=Replace(CreatePattern,"(","/(")
   CreatePattern=Replace(CreatePattern,")","/)")
   CreatePattern=Replace(CreatePattern,"[","/[")
   CreatePattern=Replace(CreatePattern,"]","/]")
   CreatePattern=Replace(CreatePattern,"{","/{")
   CreatePattern=Replace(CreatePattern,"}","/}")
   CreatePattern=Replace(CreatePattern,"*","[^////]*")   '*号匹配
   CreatePattern=Replace(CreatePattern,"?","[^////]{1}") '?号匹配
   CreatePattern="("&CreatePattern&")+"                  '整体匹配
 End Function
'**************************搜索并使关键字上色*************************
 Private Function ColorOn(FileName)
   dim objReg
   Set objReg=new RegExp
   objReg.Pattern=CreatePattern(keyword)
   objReg.IgnoreCase=True
   objReg.Global=True
   retVal=objReg.Test(FileName)  '进行搜索测试,如果通过则上色并输出
   if retVal then
     OutPut=objReg.Replace(FileName,"<font color='#FF0000'>$1</font>")   '设置关键字的显示颜色
'***************************该部分可以根据需要修改输出************************************
     OutPut="<a href='#'>"&OutPut&"</a><br/>"
  Response.Write(OutPut)  '输出匹配的结果
'*************************************可修改部分结束**************************************
  ColorOn=1    '加入计数器的数目
   else
     ColorOn=0
   end if
   Set objReg=Nothing
 End Function
End Class
'************************结束类SearchFile**********************
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>Media搜索</title>
</head>

<body>
<form name="form1" method="post" action="<% =Request.ServerVariables("PATH_INFO")%>">
  关键词:
  <input name="keyword" type="text" id="keyword">
  <input type="submit" name="Submit" value="搜索">
  <a href="help.htm" target="_blank">高级搜索帮助</a>
</form>
<%
dim keyword
keyword=Request.Form("keyword")
if keyword<>"" then
  Set newsearch=new SearchFile
  newsearch.Folders="E:/Media+F:"
  newsearch.keyword=keyword
  newsearch.Search
  Set newsearch=Nothing
  response.Write("<br/>费时:"&(timer()-st)*1000&"毫秒")
end if

%>
</body>
</html>

ASP站内搜索代码#

方法一:利用各大搜索的收录 function Gsitesearch(curobj){ var domainroot=curobj.domainroot[curobj.domain...
  • sontin
  • sontin
  • 2013年08月13日 10:04
  • 494

【ASP】从URL获取中文字符然后查找数据库后输出GBK中文

昨天项目中遇到了些困难,研究了一下午终于搞定了。 事情是这样的:我们的客户端需要...
  • u011156012
  • u011156012
  • 2014年11月18日 10:33
  • 959

ASP.NET 搜索关键字标记为红色

/// /// 搜索关键字标记为红色 /// /// /// 中国移动通信 /// 中国移动通信集团重庆有限公司渝北广场移动通信营业厅注销 /// 加入CSS样式 .focus-char{col...
  • qq285679784
  • qq285679784
  • 2017年09月26日 11:12
  • 509

asp sql两表连接查询

懂的sql语句就可以快速查找出我们需要的数据,不然就要嵌套一层又一层,以前很少用连接语句来查询数据,经常要建立俩个rrs记录集,这样其实效率也...
  • eadio
  • eadio
  • 2014年03月18日 17:14
  • 1213

ASP应用程序怎么实现智能搜索

用ASP实现搜索引擎的功能是一件很方便的事,可是,如何实现类似3721的智能搜索呢?比如,当在搜索条件框内输入“中国人民”时,自动从中提取“中国”、“人民”等关键字并在数据库内进行搜索。看完本文后,你...
  • u012970801
  • u012970801
  • 2013年11月27日 11:27
  • 109

多关键字查询并根据匹配程度排序

多个关键字,根据包含的关键字个数从多到少排列。 即将包含关键字多的记录放在前面,包含少的关键字放在后面,不包含关键字的则不显示。比如一个表包含学号、姓名、性别、出生年月、籍贯、专业、学院等等信息。 ...
  • prstaxy
  • prstaxy
  • 2013年06月24日 20:11
  • 4069

ASPCMS多条件匹配搜索

比如后台新增一个字段叫做产品类型,文本字段,P_leixing 在根目录下找到search.asp,在加以下代码 ...
  • fengyu19880219
  • fengyu19880219
  • 2014年03月05日 12:36
  • 5518

C#(asp.net)仿baidu或google智能匹配搜索下拉框

页面文件代码: //文本输入框 //选择后的数字值 //下拉框的点击  
  • zlggyn
  • zlggyn
  • 2014年07月28日 08:29
  • 879

jquery实现仿select列表的即时搜索及拼音搜索

这里提到select,其实不是select,而是用标签去仿造一个select,以实现对已有“option”的快速检索功能。 以标签代替select的选择框,以标签代替option标签。每个li标签附o...
  • Wallbanger
  • Wallbanger
  • 2013年08月30日 16:47
  • 3501

【Discuz】导航条、搜索栏的修改

可能对于有些人来说,Discuz的导航栏与搜索栏需要修改、或者直接不要。 Discuz的导航条、搜索栏也是如同《【Discuz】去除版权信息,标题栏与底部修改》(点击打开链接)的信息一样,只要修改...
  • yongh701
  • yongh701
  • 2015年06月03日 11:10
  • 3792
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:硬盘文件搜索代码(ASP类)
举报原因:
原因补充:

(最多只允许输入30个字)