威凡网全力打造:网页编程、软件开发编程、平面设计、服务器端开发、操作系统等在线学习平台!学编程,上威凡网!
ASP教程>> ASP基础 应用技巧 数据库相关 ASP类 存储过程 FSO专栏 ASP其他
当前位置:首页 > ASP教程 > FSO专栏
上一节 下一节
 同文件夹内文本搜索器(vbs)
<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>


申明:本教程内容由威凡网编辑整理并提供IT程序员分享学习,如文中有侵权行为,请与站长联系(QQ:254677821)!
上一节 下一节
相关教程  
其他教程  
ASP基础
应用技巧
数据库相关
ASP类
存储过程
FSO专栏
ASP其他

违法和不良信息举报中心】邮箱:254677821@qq.com
Copyright©威凡网 版权所有 苏ICP备2023020142号
站长QQ:254677821