繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP > 同文件夹内文本搜索器(vbs)
- ASP
- ASP里面令人震撼地Debug类（VBScript）
- 提供个 全免杀海洋2006asp木马 下载
- VBS加密免杀器 下载
- asp页面下的乱码问题终于解决了
- 一款不错的asp木马 黑色界面
- 七步倒┈→专用asp后门
- ASP对网页进行保护的简单代码 ip
- asp遍历站点所有文件夹的代码
- 用js实现QQ在线查询功能
- 非常不错的ASP+Access数据库的终极安全大法18则
- 万能Asp防注入代码 拒绝攻击
- 用asp实现把文件打包成Xml文件包，带解包的ASP工具附下载
- asp下实现代码的“运行代码”“复制代码”“保存代码”功能源码
- asp字符串加密解密函数
- asp adodb.stream对象的方法/属性
- asp rs.open sql,conn,3,1中3，1代表什么？
- 推荐ASP中VBScript常用函数
- ASP的Global.asa使用说明
- ASP七大对象说明分析
- ASP网站生成静态html页面技术小结
ASP 中的 同文件夹内文本搜索器(vbs)
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-09-13 浏览: 169 ::
收藏到网摘: n/a
<HTML><HEAD><TITLE>同文件夹内文本搜索器(vbs)</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<SCRIPT language=vbscript id=clientEventHandlersVBS>
<!--
Dim fso, f, f1, fc,fn,s,uf1,ufn
Sub B1_onclick
fn=T1.value ''
pn=mid(location.pathname,2,len(location.pathname)-14)
ShowFolderList(pn)
End Sub
Function ShowFolderList(path)
''msgbox path
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(path)
Set fc = f.Files
'' ufn=ucase(fn)
For Each f1 in fc
filespec= path & f1.name
ReadEntireFile(filespec)
'' uf1=ucase(f1.name)
'' if instr(uf1,ufn) <> 0 then
'' s=s & "<a href=" & path & f1.name & ">" & f1.name & "</a><br>"
'' end if
Next
document.write "已搜索到以下条目，请单击之。[墨伯编制 于2003年元月]<br>"
document.write s
set fc=nothing
set f=nothing
set fso=nothing
End Function
Function ReadEntireFile(filespec)
Const ForReading = 1
Dim fso, theFile, retstring
Set fso = CreateObject("Scripting.FileSystemObject")
Set theFile = fso.OpenTextFile(filespec, ForReading, False)
ufn=ucase(fn)
Do While theFile.AtEndOfStream<> True
retstring = theFile.ReadLine
uf1=ucase(retstring)
if instr(uf1,ufn) <> 0 then
s=s & "<a href=" & path & f1.name & ">" & f1.name & "</a><br>"
exit do
end if
Loop
theFile.Close
ReadEntireFile = s
End Function
-->
</SCRIPT>
</HEAD>
<BODY>
<P align=center><FONT color=#000000 size=6>请输入要搜索[在正文中包含]的关键词(</FONT><FONT
color=#000000 size=3>忽略大小写</FONT><FONT color=#000000 size=6>)</FONT> </P>
<P align=center><FONT size=2><FONT color=#000000>[墨伯编制
于2003年1月5日]</FONT> </FONT> </P>
<P align=center><INPUT name=T1><INPUT type=button value=搜索！ name=B1></P>
<P align=center> </P></BODY></HTML>
评论 (0) All
