2022年继Asp硬盘搜索后的硬盘文件罗列程序源码精华教程.docx

上传人：wj151****6093

文档编号：81146591

上传时间：2023-03-24

格式：DOCX

页数：11

大小：13.91KB

( 4.5 )

《2022年继Asp硬盘搜索后的硬盘文件罗列程序源码精华教程.docx》由会员分享，可在线阅读，更多相关《2022年继Asp硬盘搜索后的硬盘文件罗列程序源码精华教程.docx（11页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、2022年继Asp硬盘搜索后的硬盘文件罗列程序源码精华教程继上次那篇后,又几个挚友问我,怎么将硬盘上的文件都搜寻到,并排列打印出来,我水平菜,当然没作出来,不过网上已经有高人早作出来了.发出来让大家一起参考.下面的这个脚本似乎危害比较大,可以搜寻到c:/winnt这样的系统书目,程序在 win 2k Sp4+ IIS+ Ntfs的磁盘格式下测试通过.程序也许有250行:贴个下载地址:<%'服务器超时设置Response.Buffer = FalseServer.ScriptTimeOut = 9999' 错误处理On error Resume next%><h

2、tml><head><title>:. 硬盘书目排列脚本 .:</title><STYLE type=text/css>Body {FONT-SIZE: 12px; FONT-FAMILY: Verdana, Arial, Helvetica, sans-serif}A {COLOR: #000000; TEXT-DECORATION: none}</STYLE></head><body><form action=? method=post>书目: &l

3、t;input type=text name=ListPath size=20>比如:d:/WEB(留意书目是否存在,可以跨盘符)<br>类型: <input type=text name=FileType size=20>.asp(留意不要遗忘.)<br>层数: <input type=text name=Depth size=20>(1 2 3 这样的数字)<br>参数: <input type=checkbox name=Param value=file checked> 列文件 <input type=

4、checkbox name=Param1 value=txtlog checked> 生成txt <input type=checkbox name=Param2 value=scrout checked> 屏幕输出<br> <input type=submit value= 发送 ></form><script language=JavaScript><!-window.status = 书目排列脚本function document.onstop(){window.status = 排列书目中断!windo

5、w.setTimeout(window.clearInterval(Timer);, 1000);}/-></script><%Dim ListPath, Depth, CurDepthListPath = Replace(Request.Form(ListPath), /, )If Not ListPath = Empty Then%><script language=JavaScript><!-window.status = 服务器正在列书目,请稍候 .Timer = window.setInterval(window.scroll

6、(0, document.body.scrollHeight);, 50);/-></script><% If Right(ListPath, 1) <> Then ListPath = ListPath If Not Request.Form(Depth) = Then Depth = Int(Request.Form(Depth) FileType = LCase(Request.Form(FileType) Param = Request.Form(Param) Param1 = Request.Form(Param1) Param2 = Reques

7、t.Form(Param2) Set ListParentObject = Server.CreateObject(Scripting.FileSystemObject) If Len(ListPath) <= 4 Then '检查路径d:/ 最少不能小于4,检查驱动器路径 If ListParentObject.DriveExists(ListPath) Then Set ListDriveObject = ListParentObject.GetDrive(ListPath) If ListDriveObject.IsReady = True Then Set ListPat

8、hObject = ListDriveObject.RootFolder Else errmsg = <br>对不起,当前驱动器未打算就绪! ErrOccur(errmsg) Response.End End If Else errmsg = <br>对不起,当前驱动器不存在! ErrOccur(errmsg) Response.End End If Else '检查路径是否存在 If ListParentObject.FolderExists(ListPath) Then Set ListPathObject = ListParentObject.GetFol

9、der(ListPath) Else errmsg = <br>对不起,当前路径不存在! ErrOccur(errmsg) Response.End End If End If If Param1 = txtlog Then '假如写入txt,被选上的话,生成txt的文件列表 'txt将放在list书目下,假如不存在改书目,请手工建立'txt的命名将由搜寻的路径确定 Set FSO = Server.CreateObject(Scripting.FileSystemObject) Set FO = FSO.CreateTextFile(Server.MapP

10、ath(list/ Replace(Replace(ListPath, , -), :, -) .txt) End If Response.Write <font color=brown></font> 书目 Response.Write <font color=green></font> 文件<br><br> Response.Write <b><font color=red> ListPath </font></b><br> If Param1 = txtlo

11、g Then FO.Write(ListPath) VbCrLf Call ListAllPath(ListPath, 0, False) Response.Write <br><br><b><font color=red>书目排列完毕!</font></b> %><script language=JavaScript><!-window.status = 书目排列完毕!window.setTimeout(window.clearInterval(Timer);, 1000);/-></

12、script><%'关闭FSO If Param1 = txtlog Then Set FO = Nothing Set FSO = Nothing End If End If%></body></html><%'建立书目树的函数Function ListAllPath(byval CurPath, byval Symbol, byval LastFolder) Dim CurFolderIndex CurFolderIndex = 0 CurDepth = CurDepth + 1 If LastFolder = True Th

13、en Symbol = Symbol 1 Else Symbol = Symbol 2 End If If Depth <> Then If CurDepth >= Depth + 1 Then Exit Function End If If Len(ListPath) <= 4 Then Set ListDriveObject = ListParentObject.GetDrive(CurPath) Set ListPathObject = ListDriveObject.RootFolder Else Set ListPathObject = ListParentO

14、bject.GetFolder(CurPath) End If If InStr(Param, file) > 0 Then Call ListAllFile(CurPath, Symbol, LastFolder) TotalFolderNum = ListPathObject.SubFolders.Count For Each ListPath In ListPathObject.SubFolders CurFolderIndex = CurFolderIndex + 1 If ListPath.Attributes <> 22 Then If ListPath.Size

15、 <= 1024 Then PathSize = 1 Else PathSize = FormatNumber(ListPath.Size/1024,0) End If StrTemp = Nums2Symbols(Mid(Symbol, 3) '推断三个条件各自存在的情形 If Param2 = scrout Then Response.Write StrTemp If Param1 = txtlog Then FO.Write(StrTemp) If CurFolderIndex = TotalFolderNum Then If Param2 = scrout Then Re

16、sponse.Write() If Param1 = txtlog Then FO.Write() LastFolder1 = True Else If Param2 = scrout Then Response.Write() If Param1 = txtlog Then FO.Write() LastFolder1 = False End If If Param2 = scrout Then Response.Write(<font color=brown> ListPath.Name PathSize KB</font><br>) If Param1

17、 = txtlog Then FO.Write(ListPath.Name PathSize KB VbCrLf) Call ListAllPath(ListPath, Symbol, LastFolder1) CurDepth = CurDepth - 1 Else If CurFolderIndex = TotalFolderNum Then If Param2 = scrout Then Response.Write() If Param1 = txtlog Then FO.Write() LastFolder1 = True Else If Param2 = scrout Then Response.Write(&qu

文档加载中……请稍候！
如果长时间未打开，您也可以点击刷新试试。

下载文档到电脑，查找使用更方便

9.9 金币

版权申诉 word格式文档无特别注明外均可编辑修改；预览文档经过压缩，下载后原文更清晰！ 立即下载

配套讲稿：: 如PPT文件的首页显示word图标，表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
特殊限制：: 部分文档作品中含有的国旗、国徽等图片，仅作为作品整体效果示例展示，禁止商用。设计者仅对作品中独创性部分享有著作权。
关键词：: 2022 Asp 硬盘搜索文件罗列程序源码精华教程

淘文阁 - 分享文档赚钱的网站所有资源均是用户自行上传分享，仅供网友学习交流，未经上传用户书面授权，请勿作他用。

限制150内

关于本文

本文标题：2022年继Asp硬盘搜索后的硬盘文件罗列程序源码精华教程.docx
链接地址：https://www.taowenge.com/p-81146591.html