Asp用FSO读写文件

使用范例需要两个条件： 1.（读写都需要）服务器开启父目录 2.（写文件需要）服务器开启写入权限（一）读取根目录下的所有文件及文件夹信息并输出 'filelist.asp '作用：读取path目录下所有子目录和文件并以表格输出其信息 'path为读取文件相对根目录的路径,如根目录是"/" <% path = request.QueryString("path") '读取路径参数 if path <> "" then path = path else path = "/" end if '不传参数时默认读根目录 rootpath = Server.MapPath(path) '获得path路径所在的服务器完整路径，需要开启父目录 Set fileObj = Server.CreateObject("Scripting.FileSystemObject") '创建FSO对象 Set root = fileObj.GetFolder(rootpath) '创建文件夹对象 For each folder in root.subfolders '读取文件夹对象下的所有子目录并显示其信息 if path<>"/" then tmppath = path&"/"&folder.name else tmppath = path&folder.name end if Response.Write("") Response.Write("") next For each fileitem in root.files '读取目录下所有文件并显示其信息 if path<>"/" then tmppath = path&"/"&fileitem.name else tmppath = path&fileitem.name end if 'response.Write(tmppath) Response.Write("") Response.Write("") next Set fileObj = nothing Set root = nothing Set folder = nothing Set fileitem = nothing %>

名称	父目录	属性	大小	日期
"&folder.name&"	"&folder.ParentFolder.name&"	目录		"&folder.DateCreated&"	打开	删除
"&fileitem.name&"	"&fileitem.ParentFolder.name&"	文件	"&fileitem.size&" byte	"&fileitem.datelastmodified&"	打开	删除

（二）读取某个文件内容并输出到文本区域 <% fid = Request.QueryString("fid") 'fid为文件相对根目录的路径，如根目录下的index.htm的fid = /index.htm %> <% Set fso = Server.CreateObject("scripting.FileSystemObject") '创建FSO对象 Set fileObj = fso.opentextfile(server.mappath(fid),1,true) '创建文件读取对象,用于字符文件 filecontent = fileObj.readall '用文件读取对象读出文件内容 %> <% Set fileObj = nothing Set fso = nothing %> （三）使用FSO写入文件 <% content = Request.Form("content") '表单提交的数据 fid = request.QueryString("fid") '请求参数，指向文件存取相对根目录的路径 'response.Write("fid = "&fid) '调试使用，输出请求参数 'response.Write("content = "&content) ’调试使用，输出表单提交数据 Set fso = Server.CreateObject("scripting.FileSystemObject") '创建FSO对象 Set fileObj = fso.opentextfile(server.mappath(fid),2,true) '使用FSO创建文件写入对象 fileObj.Write content '向文件写入数据，覆盖形式写入 fileObj.close '推送内容写入并关闭写入通道 response.Write("保存成功") Set fileObj = nothing Set fso = nothing %> 详细代码： <% strs="序号"&Chr(9)&"用户名"&Chr(9)&"姓名"&Chr(9)&"注册日期"&Chr(9)&"开课日期"&Chr(9)&"是否已支付"&Chr(9)&"课程金"&Chr(9)&"商品金"&Chr(9)&"学习卡"&Chr(9)&"管理员"&Chr(9)&"省份"&Chr(9)&"来自"&Chr(9)&"是否包含退费班"&vbcrlf set rs3=server.CreateObject("adodb.recordset") rs3.open sql,conn,3 for i=1 to rs3.recordcount strs=strs&i&Chr(9)&trim(rs3("username"))&Chr(9)&trim(rs3("name"))&Chr(9)&trim(rs3("addtime"))&Chr(9)&trim(rs3("order_time"))&Chr(9)&trim(rs3("is_pay"))&Chr(9)&trim(rs3("select_total_amount"))&Chr(9)&trim(rs3("order_total_amount"))&Chr(9)&trim(rs3("pay_total_amount"))&Chr(9)&trim(rs3("admin_name"))&Chr(9)&trim(rs3("province"))&Chr(9)&trim(rs3("fromsite"))&Chr(9)&trim(rs3("is_refund"))&vbcrlf rs3.movenext next content =strs '表单提交的数据 fid = "/new_admin/statistics/Excels/"&mytime&".xls" '请求参数，指向文件存取相对根目录的路径 'response.Write("fid = "&fid) '调试使用，输出请求参数 'response.Write("content = "&content) ’调试使用，输出表单提交数据 Set fso = Server.CreateObject("scripting.FileSystemObject") '创建FSO对象 Set fileObj = fso.opentextfile(server.mappath(fid),2,true) '使用FSO创建文件写入对象 fileObj.Write content '向文件写入数据，覆盖形式写入 fileObj.close '推送内容写入并关闭写入通道 response.Write("保存成功！") Set fileObj = nothing Set fso = nothing %>