菜鸟问题1号。关于FSO组件的。。

langya001 2005-01-23 02:58:33

从今天开始结束打混的生活。一天看一个程序。并写出语句解释。可一下就受到了打击。。5555。。

程序如下：

<% Option Explicit %> '强制申明
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<TITLE> New Document </TITLE>
<META NAME="Generator" CONTENT="EditPlus">
<META NAME="Author" CONTENT="">
<META NAME="Keywords" CONTENT="">
<META NAME="Description" CONTENT="">
</HEAD>

<BODY>
<%
Dim strPathInfo,strPhysicalPath
strPathInfo=Request.ServerVariables("SCRIPT_NAME")　　　　　　'取得服务器文件的虚拟路径　（虚拟路径：IIS服务器定义的路径）
strPhysicalPath=Server.MapPath(strPathInfo) '将虚拟路径转为服务器的实际路径　（硬盘的实际路径。如C盘下..）

Dim objFSO,objFile,objFileItem,objFolder,objFolderContents
Set objFSO=CreateObject("Scripting.FileSystemObject") '定义并建立FSO组件

Set objFile=objFSO.GetFile(strPhysicalPath) '使用FSO组件的GetFile对象取得路径里的文件信息（）　
Set objFolder=objFile.ParentFolder　　　　　　　　　　　　　　　'使用ParentFolder取得文件夹上一层文件夹的信息
Set objFolderContents=objFolder.Files　　　　　　　　　　　　
%>

<TABLE Width="80%" align="center">
<TR align=center>
<TH align=left>File Name</TH>
<TH>File Size</TH>
<TH>Last Modified</TH>
</TR>

<%
For Each objFileItem In objFoldercontents
Response.Write "<TR><TD align=center>"
Response.Write objFileItem.Name
Response.Write "</TD><TD align=right>"
Response.Write objFileItem.Size
Response.Write "</TD><TD align=right>"
Response.Write objFileItem.DateLastModified
Response.Write "</TD></TR>"
Next
%>
<TABLE>
</BODY>
</HTML>

Set objFolder=objFile.ParentFolder的解释对吗？
Set objFolderContents=objFolder.Files这个是该如何解释呢？书上的太难懂了。。5555555。哪位大侠能用通俗点的解释给我指点下？拜托。。。。。多谢。。

...全文

82 7 打赏收藏转发到动态举报

写回复

7 条回复

切换为时间正序

请发表友善的回复…

发表回复

超级大笨狼 2005-01-23

打赏
举报

回复

http://community.csdn.net/Expert/topic/3738/3738420.xml?temp=.3670465

关于FSO操作的例子。可以看到代码。

surferc 2005-01-23

打赏
举报

回复

.............
文件夹中所有的文件........

langya001 2005-01-23

打赏
举报

回复

晕。。。surferc...能翻译下吗？文件夹中所有 File 对象的集合是指文件夹中所有的文件吗？

langya001 2005-01-23

打赏
举报

回复

晕。。谢谢楼上的兄台。。等待中

surferc 2005-01-23

打赏
举报

回复

没关系多受点打击就好了 ^^

surferc 2005-01-23

打赏
举报

回复

下面用for遍历了一下得到文件属性

Set objFolderContents=objFolder.Files '-->文件夹中所有 File 对象的集合

myvicy 2005-01-23

打赏
举报

回复

做的不错，继续努力。

1.让windows脚本技术中的字典对象结合excel VBA，功能将更大的强大。 2.Microsoft Excel VBA与正则表达式技术的结合应用，将使VBA的数据处理功能更加强大 3.在Scripting 类型库 (Scrrun.Dll）中，在VBA中对FSO对象下的驱动器、文件夹、文件的读取，写入、新建、复制、移动、删除等操作。让excelVBA的功能更加的强大。

【 web提权】 1.能不能执行cmd就看这个命令：net user，net不行就用net1，再不行就上传一个net到可写可读目录，执行/c c:windowstempcookiesnet1.exe user 2.当提权成功，3389没开的情况下，上传开3389的vps没成功时，试试上传rootkit.asp 用刚提权的用户登录进去就是system权限，再试试一般就可以了。 3.cmd拒绝

Windows Server2003防***权限设置IIS服务器安全配置整理 7、卸载最不安全的组件（注意: 按实际要求删除，删除后用不了FSO的） (如下设置，我们已经写一个CMD脚本，按要求复制运行即可以取代如下手工设定,) 最简单的办法是直接卸载后删除相应的程序文件。将下面的代码保存为一个.BAT文件，( 以下均以 WIN2000 为例，如果使用2003，则...

这里希望大家需要明白一点，这只是在讲如何快速入门，更好的认识PHP！也能初级掌握PHP基础知识！PHP语言博大精深！并不是一两天就能学会的！要长期学下去才可以！下面我绿苹果带大家走进PHP的入门之路说明：我这里暂时是以 Apache web server 和 MY SQL 作为WEB服务器和数据库，在php-4.3.3下的环境做的程序。当然要简单的构建和访问查看数据库 PHPMYADM

谈VBS在Hacking中的作用之二NetPatch此文已经发于***手册第十一期上一期写了一个VBS的注入脚本，这次给大家带来两个脚本，希望小菜们能喜欢。一．挑选速度快的肉鸡做×××。当自己从小菜鸟转型为老菜鸟时，就懂得考虑在玩Hacking的同时也要尽量保证不暴露自己。万事，安全第一嘛！不然都不知道哪天玩着玩着就被警察叔叔带去喝茶了^_^ 。因此，作为老菜鸟的我们，要学会...

28,391

社区成员

357,059

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章