<p>使用范例需要两个条件：</p>
<p>1.（读写都需要）服务器开启父目录</p>
<p>2.（写文件需要）服务器开启写入权限</p>
<p>（一）读取根目录下的所有文件及文件夹信息并输出</p>
<p>'filelist.asp</p>
<p>'作用：读取path目录下所有子目录和文件并以表格输出其信息</p>
<p>'path为读取文件相对根目录的路径,如根目录是"/"</p>
<p><br />
<br />
<%<br />
path = request.QueryString("path") '读取路径参数<br />
if path <> "" then path = path else path = "/" end if '不传参数时默认读根目录<br />
rootpath = Server.MapPath(path) '获得path路径所在的服务器完整路径，需要开启父目录<br />
Set fileObj = Server.CreateObject("Scripting.FileSystemObject") '创建FSO对象<br />
Set root = fileObj.GetFolder(rootpath) '创建文件夹对象<br />
For each folder in root.subfolders '读取文件夹对象下的所有子目录并显示其信息<br />
if path<>"/" then tmppath = path&"/"&folder.name else tmppath = path&folder.name end if<br />
Response.Write("")<br />
Response.Write("")<br />
next<br />
For each fileitem in root.files '读取目录下所有文件并显示其信息<br />
if path<>"/" then tmppath = path&"/"&fileitem.name else tmppath = path&fileitem.name end if<br />
'response.Write(tmppath)<br />
Response.Write("")<br />
Response.Write("")<br />
next<br />
Set fileObj = nothing<br />
Set root = nothing<br />
Set folder = nothing<br />
Set fileitem = nothing<br />
%></p>
<table width="100%">
<tbody>
<tr>
<td>名称</td>
<td>父目录</td>
<td>属 性</td>
<td>大小</td>
<td>日期</td>
<td></td>
<td></td>
</tr>
<tr>
<td>"&folder.name&"</td>
<td>"&folder.ParentFolder.name&"< /td></td>
<td>目录</td>
<td> </td>
<td>"&folder.DateCreated&"</td>
<td><a href="?path=">打开</a></td>
<td>删除</td>
</tr>
<tr>
<td>"&fileitem.name&"</td>
<td>"&fileitem.ParentFolder.name&"< /td></td>
<td>文件</td>
<td>"&fileitem.size&" byte</td>
<td>"&fileitem.datelastmodified&"</td>
<td><a href="editfile.asp?fid=">打开</a></td>
<td>删除</td>
</tr>
</tbody>
</table>
<p>（二）读取某个文件内容并输出到文本区域</p>
<p><%<br />
fid = Request.QueryString("fid") 'fid为文件相对根目录的路径，如根目录下的index.htm的fid = /index.htm<br />
%></p>
<p><%<br />
Set fso = Server.CreateObject("scripting.FileSystemObject") '创建FSO对象<br />
Set fileObj = fso.opentextfile(server.mappath(fid),1,true) '创建文件读取对象,用于字符文件<br />
filecontent = fileObj.readall '用文件读取对象读出文件内容<br />
%><br />
<textarea name="content" rows="38" ><%=filecontent%></textarea><br />
<%<br />
Set fileObj = nothing<br />
Set fso = nothing<br />
%></p>
<p>（三）使用FSO写入文件</p>
<p><%<br />
content = Request.Form("content") '表单提交的数据<br />
fid = request.QueryString("fid") '请求参数，指向文件存取相对根目录的路径<br />
'response.Write("fid = "&fid) '调试使用，输出请求参数<br />
'response.Write("content = "&content) ’调试使用，输出表单提交数据<br />
Set fso = Server.CreateObject("scripting.FileSystemObject") '创建FSO对象<br />
Set fileObj = fso.opentextfile(server.mappath(fid),2,true) '使用FSO创建文件写入对象<br />
fileObj.Write content '向文件写入数据，覆盖形式写入<br />
fileObj.close '推送内容写入并关闭写入通道<br />
response.Write("保存成功")<br />
Set fileObj = nothing<br />
Set fso = nothing<br />
%></p>