如何在线查询本地机的文件？

<html>

<head>

<title>随风起舞之文件查询</title>
</head>

<body>
<p align="center" >
  <b><font face="宋体" color="red" size="5">
  星河影动之文件查询系统</font></b>
</p>
<hr>
<form method="POST" action="search.asp">
  <p><font color="green">请输入要查询的目录文字:
  <input type="text" name="search_data" size="20">
  <input type="submit" value="查询" name="B1">
  <input type="reset" value="重写" name="B2"></font>
  </p>
</form>
<hr>
<p style="text-indent: 0; word-spacing: 0; line-height: 100%; margin: 0">
<font color="green">查询结果:</font></p>

<%
data=request.form("search_data")

' 得到要查询的文件名称所要包含的字符串.
p=search_folder(data,"http://yup.go.163.com","c:\")

' 调用函数查询目标查询目录下的所有子目录（所有子树）.
%>

<script language="vbscript" RUNAT=SERVER>
' 目录检索函数.
function search_folder(search_data,v_path,c_path)
  dim file_system,cur_folder,sub_folders,sub_files
  if not isempty(search_data) and len(search_data)>0 then

' 确定查询字符串有效非空.
      set file_system=createobject("scripting.filesystemobject")

' 建立文件系统对象.
      set cur_folder=file_system.getfolder(c_path)

' 建立建立当前目录对象.
      set sub_folders=cur_folder.subfolders

' 建立当前目录的子目录对象集合.
      for each each_sub_folder in sub_folders

' 对子目录集合进行遍历.
          if each_sub_folder.attributes=16 then

' 确定子目录的属性为普通子目录.
          sub_v_path=v_path&"/"&each_sub_folder.name
          sub_c_path=c_path&"\"&each_sub_folder.name

' 得到当前的子虚拟绝对路径与真实绝对路径.
            p=search_file(search_data,sub_v_path,sub_c_path)

' 调用文件检索函数对当前子目录下的文件进行字符串匹配检索.
            p=search_folder(search_data,sub_v_path,sub_c_path)

' 递归检索当前子目录的下一级目录.
          end if
      next
      set each_sub_folder=nothing
      set sub_folders=nothing
      set cur_folder=nothing
      set file_system=nothing

' 清除服务器端对象.
  end if
  end function

function search_file(search_data,v_path,c_path)
  dim file_system,sub_files,sub_file_v_path,sub_out_v_path

' 文件匹配检索函数.
  if not isempty(c_path) then

' 确认路径不为空.

set file_system=createobject("scripting.filesystemobject")
    set cur_folder=file_system.getfolder(c_path)
    set sub_files=cur_folder.files

' 建立检索目录下的文件对象集合.
    for each each_file in sub_files

' 遍历文件对象集合.
        if instr(each_file.name,search_data)<>0 then

' 匹配字符串与文件名.
            sub_file_v_path=v_path&"/"&each_file.name

' 建立可用链接,输出匹配文件.

sub_out_v_path=Replace(sub_file_v_path," ","%20")

' 替换路径及文件名中出现的空格.
            response.write("<p><a href=" & sub_out_v_path & _
                        ">"&sub_file_v_path&"</a>")
        end if
    next
    set sub_out_v_path=nothing
    set sub_file_v_path=nothing
    set each_file=nothing
    set sub_files=nothing
    set file_system=nothing
  end if
end function
</script>

<hr>
</body></html>

[1]

赞 (0)

相关推荐

  • 如何在线查询本地机的文件？

    <html> <head> <title>随风起舞之文件查询</title></head> <body><p align="center" >  <b><font face="宋体" color="red" size="5">  星河影动之文件查询系统</font></b></p>&l

  • Python SQL查询并生成json文件操作示例

    Python SQL查询并生成json文件操作示例

    本文实例讲述了Python SQL查询并生成json文件操作.分享给大家供大家参考,具体如下: 1. 数据准备 SQL数据点击此处本站下载. 2. python代码 import datetime import os import mssqlhelper ms = mssqlhelper.MSSQL(host="192.168.0.108", user="sa", pwd="sa", db="ComPrject") def g

  • 基于ASP实现QQ在线查询功能

    本文给大家分享的qq在线查询功能代码非常简单,具体内容如下: 这段程序的方法是利用XMLHTTP来读取腾讯网站的相应HTML代码获取QQ的头像,根据这个想法,我们还可以抓取很多其他网站的信息,如天气预报.新闻等等. <script language="JavaScript"> <!-- function getFaceImg(QQcode) { var Re=new RegExp("^[1-9]{1}/d+$","g"); if

  • mysql查询结果输出到文件的方法

    mysql查询结果导出/输出/写入到文件 方法一: 直接执行命令: mysql> select count(1) from table  into outfile '/tmp/test.xls'; Query OK, 31 rows affected (0.00 sec) 在目录/tmp/下会产生文件test.xls 遇到的问题: mysql> select count(1) from table   into outfile '/data/test.xls'; 报错: ERROR 1 (HY

  • mysql实现查询结果导出csv文件及导入csv文件到数据库操作

    本文实例讲述了mysql实现查询结果导出csv文件及导入csv文件到数据库操作.分享给大家供大家参考,具体如下: mysql 查询结果导出csv文件: select logtime, operatingsystem, imei from GameCenterLogs where operatingsystem >= 1 and operatingsystem <=3 group by operatingsystem,imei into outfile '/tmp_logs/tmp.csv' f

  • 使用Python将Mysql的查询数据导出到文件的方法

    mysql官方提供了很多种connector,其中包括python的connector. 下载地址在:http://dev.mysql.com/downloads/connector/python/ 直接安装即可. 在python中: 1. 连接: import mysql.connector cnx = mysql.connector.connect(user='scott', password='tiger', host='127.0.0.1', database='employees')

  • 在线用表单建立文件夹

    HTML格式的Form表单文件FOLDER.htm的内容: <form name="form1" method="post" action="folder-action.asp"> Create a folder <input type="text" name="name"> <input type="submit" name="Submit&qu

  • 用js实现QQ在线查询功能

    这段程序的方法是利用XMLHTTP来读取腾讯网站的相应HTML代码获取QQ的头像,根据这个想法,我们还可以抓取很多其他网站的信息,如天气预报.新闻等等. <script language="JavaScript">  <!--   function getFaceImg(QQcode)   {   var Re=new RegExp("^[1-9]{1}\d+$","g");   if (!QQcode !Re.test(QQc

  • 适合初学者开发的C#在线英汉词典小程序

    适合初学者开发的C#在线英汉词典小程序

    今天写了一个英汉词典小程序,我加了好多注释,适合初学者一起参考,哪里写的不好请帮忙指出,一起学习进步. 这里用到了,泛型,泛型字典,一些控件的操作,split的应用,数组的应用,时间间隔,linkLabel的使用. using System; using System.Collections.Generic; using System.ComponentModel; using System.Data; using System.Drawing; using System.Linq; using

  • 用vbs实现取消隐藏文件夹中的所有文件

    问: 您好,脚本专家!如何运行脚本取消隐藏文件夹中的所有文件? -- GA 答: 您好,GA.您知道我们中的一位脚本专家在年少时和邻居家的其他小孩花费无数的时间玩各种捉迷藏.事实上,这位脚本专家仍清晰地记得躺在浅沟中,让其他组的人从他身上走过,却不知道他就在那儿.(这种方法如此奏效,以致于他正认真考虑在自己的办公室挖一条浅沟,这样有人找他的时候就可以躲在浅沟里了.) 回到那些日子,您不会想要一种能自动取消隐藏一切的脚本:这种脚本可能很有用,但却没什么乐趣.但作为系统管理员,您大概并不愿意与文件玩

随机推荐