|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
源代码保护方面其实现在考虑得没那么多了..NET也可以反编译.ASP写得复杂的话别人能看得懂的话.他也有能力自己写了.这方面担心的倒不太多.纵观现在网上可以下载的那些所谓BBS还有什么网站等等的源代码编程|初级1.Folder工具
Driver工具的RootFolder属性前往一个Folder工具,经由过程该工具可会见这个驱动器内的一切的内容。可使用这个Folder工具的属性和办法遍历驱动器上的目次,并失掉该文件夹和其他文件夹的属性。
(1)Folder工具的属性
Folder工具供应一组属性,可用这些属性失掉关于以后文件夹的更多信息,也能够改动该文件夹的称号。其属性及申明如表5-9所示:
表5-9Folder工具的属性及申明
属性
说明
Attributes
前往文件夹的属性。能够是以下值中的一个或其组合:Normal(0)、ReadOnly(1)、Hidden(2)、System(4)、Volume(称号)(8)、Directory(文件夹)(16)、Archive(32)、Alias(64)和Compressed(128)。比方,一个埋没的只读文件,Attributes的值为3
DateCreated
前往该文件夹的创立日期和工夫
DateLastAccessed
前往最初一次会见该文件夹的日期和工夫
DateLastModified
前往最初一次修正该文件夹的日期和工夫
Drive
前往该文件夹地点的驱动器的驱动器字母
Files
前往Folder工具包括的Files汇合,暗示该文件夹内一切的文件
IsRootFolder
前往一个布尔值申明该文件夹是不是是以后驱动器的根文件夹
Name
设定或前往文件夹的名字
ParentFolder
前往该文件夹的父文件夹对应的Folder工具
Path
前往文件夹的相对路径,利用响应的长文件名
ShortName
前往DOS作风的8.3情势的文件夹名
ShortPath
前往DOS作风的8.3情势的文件夹的相对路径
Size
前往包括在该文件夹里一切文件和子文件夹的巨细
SubFolers
前往该文件夹内包括的一切子文件夹对应的Folders汇合,包含埋没文件夹和体系文件夹
Type
假如大概,前往一个文件夹的申明字符串(比方,“RecycleBin”)
(2)Folder工具的办法
Folder工具供应一组可用于复制、删除和挪动以后文件夹的办法。这些办法的运转体例与FileSystemObject工具的CopyFolder、DeleFolder和MoveFolder办法不异,但这些办法不请求source参数,由于源文件就是这个文件夹。这些办法及申明如表5-10所示:
表5-10Folder工具的办法及申明
方法
说明
Copy(destination,overwrite)
将这个文件夹及一切的内容复制到destination指定的文件夹。假如destination的开端是路径分开符(‘’),那末以为destination是安排拷贝文件夹的一个文件夹。不然以为destination是要创立的新文件夹的路径和名字。假如方针文件夹已存在且overwrite参数设置为False,将发生毛病,缺省的overwrite参数是True
Delete(force)
删除文件夹及内里的一切内容。假如可选的force参数设置为True,即便文件夹设置为只读或含有只读的文件,也将删除该文件夹。缺省的force是False
Move(destination)
将文件夹及内里一切的内容挪动到destination指定的文件夹。假如destination的开端是路径分开符(‘’),那末以为destination是安排挪动文件夹的一个文件夹。不然以为destination是一个新的文件夹的路径和名字。假如方针文件夹已存在,则堕落
CreateTextFile
(filename,overwrite,unicode)
用指定的文件名在文件夹内创立一个新的文本文件,而且前往一个响应的TextStream工具。假如可选的overwrite参数设置为True,将掩盖任何已有的同名文件。缺省的overwrite参数是False。假如可选的unicode参数设置为True,文件的内容将存储为unicode文本。缺省的unicode是False
在文件夹之间可使用以后文件夹的ParentFolder属性,前往到父目次。当抵达一个文件夹时,假如IsRootFolder属性是True,就停上去。分开驱动器的根目次,沿目次树向下,可遍历或会见在Folders汇合(由以后文件夹的SubFolders属性前往)内的指定文件夹。
以下程序遍历了驱动器C根目次内的一切文件夹,并显现各个文件夹的有关信息。
VBScript程序以下:
InVBScript:
CreateaFileSystemObjectinstance
SetobjFSO=Server.CreateObject("Scripting.FileSystemObject")
GetareferencetodriveC
SetobjDriveC=objFSO.GetDrive("C:")
Getareferencetotherootfolder
SetobjRoot=objDriveC.RootFolder
GetareferencetotheSubFolderscollection
SetobjFolders=objRoot.SubFolders
GetareferencetothefirstfolderintheSubFolderscollection
ForEachobjFolderInobjFolders
SetobjFolder1=objFolders.Item((objFolder.Name))
ExitFor
Next
Iteratethroughallthefilesinthisfolder
ForEachobjFileinobjFolder1.Files
Response.Write"Name:"&objFile.Name&""
Response.Write"ShortName:"&objFile.ShortName&""
Response.Write"Size:"&objFile.Size&"bytes"
Response.Write"Type:"&objFile.Type&"<BR>"
Response.Write"Path:"&objFile.Path&""
Response.Write"ShortPath:"&objFile.ShortPath&"<BR>"
Response.Write"Created:"&objFile.DateCreated&""
Response.Write"LastModified:"&objFile.DateLastModified&"<P>"
Next
JScript程序以下:
/</p>专业性的服务。有的ASP商提供垂直型的应用服务,针对某一特定行业提供应用服务。 |
|