6、asp的组件操作

FileExists方法 方法 GetFolder方法 方法
CreateFolder方法 创建一个目录。 方法 创建一个目录。
FileSystemObject对象的方法
方法 说明
CopyFolder方法 方法 MoveFolder方法 方法
复制整个目录， 复制整个目录，会复制这个目录下的所有文 件。 移动目录，会移动目录下包含的全部文件。 移动目录，会移动目录下包含的全部文件。
练习1
根据范例，导出数据内容。 根据范例，导出数据内容。
3、文件上传
文件上传是web常用操作之一； 常用操作之一； 文件上传是 常用操作之一 一般应用可以使用无组件上传； 一般应用可以使用无组件上传；
稻香老农 梁无惧
大文件上传使用组件
AspUpload（推荐） （推荐） l4;action")="1" then dim upload,file,formName,iCount,isup set upload=new upload_5xSoft ''建立上传对象 建立上传对象 filetitle=upload.form("filetitle") if right(UpFilePath,1)<>"/" then UpFilePath=UpFilePath&"/" iCount=0 for each formName in upload.objfile set file=upload.objfile(formName) if file.FileSize>0 then ''如果 FileSize > 0 说明有文件数据 如果 filefxt="."&GetExtendName(file.FileName) if iscunzai(filefxt,datatype,",")=0 then call mygoto("你上传的文件扩展名不 你上传的文件扩展名不 应该是"&datatype,"input.asp") 对，应该是 fname = rndfname(iCount) & filefxt FileNameStr = UpFilePath&fname FilesizeStr=file.FileSize file.SaveAs Server.mappath(FileNameStr) iCount=iCount+1 else call mygoto("请正确选择要上传的文件！","back") 请正确选择要上传的文件！ 请正确选择要上传的文件 end if set file=nothing next echo "文件上传成功，文件说明为："& filetitle &"；文件大小为："& FilesizeStr &"； 文件上传成功， 文件上传成功 文件说明为： ；文件大小为： ； 文件路径为： 文件路径为："&FileNameStr set upload=nothing end if
DeleteFolder方法 方法
删除目录，会删除目录下所有文件， 删除目录，会删除目录下所有文件，并且删 除的文件不会进入回收站。 除的文件不会进入回收站。 。 如果指定的文件夹存在返回True；否则返回 ； 如果指定的文件夹存在返回 False。 。
FolderExists方法 方法
核心代码vbs
模仿ADO和FSO的写法； 和 的写法； 模仿 的写法 一般组件都提供了范例。 一般组件都提供了范例。
无组件上传
构建文件上传表单 表单属性中， 表单属性中， enctype 要设定为 multipart/form-data 。如：
<form method="POST" action="input.asp?action=1" enctype="multipart/form-data"> <input type="file" name="files" size="20"> </form>
FileSystemObject对象的方法
方法
CreateTextFile方法 方法 OpenTextFile方法 方法 GetFile方法 方法
说明
创建一个文本文件。 创建一个文本文件。 打开一个己有的文本文件。 打开一个己有的文本文件。 返回与指定路径中某文件相应 对象。 的File对象。 对象 获得文件扩展名。 获得文件扩展名。
使用步骤：
包含文件： 包含文件：<!--#include file="upload_5xsoft.inc"--> 设定上传文件存放的文件夹 确定上传的类型和重命名的方法。 确定上传的类型和重命名的方法。
几个常用函数
'''''''取得上传文件的扩展名 取得上传文件的扩展名 function GetExtendName(FileName) dim ExtName ExtName = LCase(FileName) ExtName = right(ExtName,3) ExtName = right(ExtName,3-Instr(ExtName,".")) GetExtendName = ExtName end function '''''根据当前时间生成不重复文件名 根据当前时间生成不重复文件名 Function rndfname(iCount) rndfname=year(now)&month(now)&day(now)&hour( now)&minute(now)&second(now)&"_"&iCount end Function
核心代码asp
Function rndfname(iCount) rndfname=year(now)&month(now)&day(now)&hour( now)&minute(now)&second(now)&"_"&iCount end Function path=rndfname(1) &".xls" Set fso = server.CreateObject("Scripting.FileSystemObject") Set fout = fso.CreateTextFile(server.mappath(path), True, False) fout.WriteLine "<tr height=30 align=center><td>"& rs("id") &"</td><td>"& rs("xm") &"</td><td>"& rs("bj") &"</td><td>"& rs("nl") &"</td></tr>" Set fout = Nothing Set fso = Nothing response.redirect path
如何使用FSO
使用FSO编程，首先要用Server.CreatObject方 编程，首先要用 使用 编程 方 法创建FileSystemObject对象，如下例所示： 对象， 法创建 对象 如下例所示： <% Dim MyFileObject Set MyFileObject =Server.Create Object("Scripting.FileSystemObject") %> 创建FileSystemObject对象后，就可以使用它创 对象后， 创建 对象后 打开或读写文件， 建、打开或读写文件，并可以对文件和文件夹 进行新建、复制、移动、 进行新建、复制、移动、删除等操作
GetExtensionName方 方 法 CopyFile方法 方法
复制一个文件。 复制一个文件。
FileSystemObject对象的方法
方法 MoveFile方法 方法 DeleteFile方法 方法 说明 移动文件，将文件从一个路径移到另一路径。 移动文件，将文件从一个路径移到另一路径。 删除文件，其第一个参数是要删除的文件， 删除文件，其第一个参数是要删除的文件，第二个 参数是说明是否强行删除（ 参数是说明是否强行删除（如果文件是只读或隐含 等）。 如果指定的文件存在返回True；否则返回False。 ；否则返回 如果指定的文件存在返回 。 返回与指定的路径中某文件夹相应的Folder对象。 对象。 返回与指定的路径中某文件夹相应的 对象
Function rndfname(iCount) rndfname=year(now)&month(now)&day(now)&hour(no w)&minute(now)&second(now)&"_"&iCount end Function path=rndfname(1)&".txt" Set fso = CreateObject("Scripting.FileSystemObject") Set fout = fso.CreateTextFile( path, True, False) fout.WriteLine "<tr height=30 align=center><td></td></tr>" Set fout = Nothing Set fso = Nothing Msgbox("成功！") 成功！ 成功