网站建设| 数据库类| 图形图象| 程序设计| 现代办公| 操作系统| 考试认证| 网络技术| 软件工程| 电脑相关| 文学作品
网站开发| 网页制作| 操作系统| 图象图形| 考试认证| 数据库类| 程序设计| 硬件技术| 现代办公| 网络技术| 笑话频道
 
您的位置: 电脑书库首页-> 电脑文摘-> 网站开发-> ASP/ASP.NET-> 同文件夹内文本搜索器(vbs)

同文件夹内文本搜索器(vbs)
作者:佚名 来源:InterNet 加入时间:2005-3-3
相关文章 相关书籍:
  • VBScript语言参考
  • VBScript函数速查手册
  • VBScript5.5脚本语言参考
  • <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 "已搜索到以下条目,请单击之。<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></FONT>&nbsp;</FONT> </P>
    <P align=center><INPUT name=T1><INPUT type=button value=搜索! name=B1></P>
    <P align=center>&nbsp;</P></BODY></HTML>


    [文章录入员:nancy]

    相关文章 相关书籍:
  • VBScript语言参考
  • VBScript函数速查手册
  • VBScript5.5脚本语言参考
  • 本站推荐内容

    近期主机类热搜关键词:
    美国服务器 美国服务器租用 海外服务器租用 国外服务器租用

    ASP/ASP.NET
    ASP/ASP.NET
    PHP技术
    JSP技术
    XML技术
    CGI/PERL
    WEB服务器
    WordPress专题
    其它
    电脑教程阅读排行
    ·用ASP连接数据库
    ·ASP基础
    ·使用Database Acces...
    ·让网站活起来(1)
    ·创建一个简单的ASP页
    ·创建HTML表格
    ·初学者必读 ASP运行环境的搭建
    ·ASP中FSO的神奇功能
    ·VBScript 基础 使用条件...
    ·VBScript 基础 VBSc...