<p>FSO操作示例（给初学者）</p>
<p>把下面代码存到一个ASP文件中即可，方便管理服务器上的文件 <br />
<title>http://bbs.asp2004.net 制作：小灰 QQ：103895</title> <br />
<meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <br />
<style type="text/css"> <br />
<!-- <br />
a:link { <br />
font-size: 9pt; <br />
} <br />
a:visited { <br />
font-size: 9pt; <br />
} <br />
a:hover { <br />
font-size: 9pt; <br />
} <br />
a:active { <br />
font-size: 9pt; <br />
} <br />
body { <br />
font-size: 9pt; <br />
margin-left: 0px; <br />
margin-top: 0px; <br />
margin-right: 0px; <br />
margin-bottom: 0px; <br />
line-height: 20px; <br />
} <br />
td { <br />
font-size: 9pt; <br />
line-height: 20px; <br />
} <br />
--> <br />
</style> <br />
<% <br />
action=request.QueryString("action") <br />
temp=split(request.ServerVariables("URL"),"/") <br />
url=temp(ubound(temp)) <br />
chklogin() <br />
select case action <br />
case "logout" <br />
logout() <br />
case "delfile" <br />
delfile() <br />
case "savefile" <br />
savefile() <br />
case "editfile" <br />
fileedit() <br />
case "newfile" <br />
filenew() <br />
case "upload" <br />
upload() <br />
case "saveupload" <br />
saveupload() <br />
case "delfolder" <br />
delfolder() <br />
case "savefolder" <br />
savefolder() <br />
case "editfolder" <br />
editfolder() <br />
case "newfolder" <br />
newfolder() <br />
case else <br />
foldername=request.QueryString("foldername") <br />
filename=request.QueryString("filename") <br />
path=foldername <br />
if path="" then path=server.MapPath("./") <br />
ShowFolderList(path) <br />
end select<br />
Function ShowFolderList(folderspec) <br />
temp=request.ServerVariables("HTTP_REFERER") <br />
temp=left(temp,Instrrev(temp,"/")) <br />
temp1=len(folderspec)-len(server.MapPath("./"))-1 <br />
if temp1>0 then <br />
temp1=right(folderspec,cint(temp1)) <br />
elseif temp1=-1 then <br />
temp1="" <br />
end if <br />
tempurl=temp+replace(temp1,"\","/")+"/" <br />
Set fso = CreateObject("Scripting.FileSystemObject") <br />
upfolderspec=fso.GetParentfoldername(folderspec&"\") <br />
%> <br />
<a href="<%= url%>?action=newfolder&foldername=<%= folderspec%>">新建文件夹</a> | <a href="<%= url%>?action=newfile&filename=<%= folderspec&"\"%>">新建文件</a> | <a href="<%= url%>?action=upload">上传文件</a> | <a href="<%= url%>?foldername=<%= upfolderspec%>">向上</a> | <a href="file.asp">返回首页</a> | <a href="<%= url%>?action=logout">退出</a> <br />
<table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#6595D6"> <br />
<tr bgcolor="#E4E8EF"> <br />
<td width="64%"><div align="center">名称</div></td> <br />
<td width="7%"><div align="right">大小</div></td> <br />
<td width="6%"><div align="center">类型</div></td> <br />
<td width="15%"><div align="left">修改时间</div></td> <br />
<td width="8%"><div align="center">操作</div></td> <br />
</tr> <br />
<% <br />
'列出目录 <br />
Set f = fso.GetFolder(folderspec) <br />
Set fc = f.SubFolders <br />
For Each f1 in fc <br />
%> <br />
<tr bgcolor="#E4E8EF" onMouseOut=this.bgColor='#E4E8EF'; onMouseOver=this.bgColor='#FFFFFF';> <br />
<td><a href="<%= url%>?foldername=<%= folderspec%>\<%= f1.name%>"><%= f1.name%></a></td> <br />
<td><div align="right"><%= f1.size%></div></td> <br />
<td><div align="center">文件夹</div></td> <br />
<td><div align="left"><%= f1.datelastmodified%></div></td> <br />
<td><a href="<%= url%>?action=editfolder&foldername=<%= folderspec&"\"&f1.name%>">修改</a> <a href="<%= url%>?action=delfolder&foldername=<%= folderspec&"\"&f1.name%>" onclick="{if(confirm('删除文件夹<<%= f1.name%>>么?')){return true;}return false;}">删除</a></td> <br />
</tr> <br />
<% <br />
Next <br />
'列出文件 <br />
Set fc = f.Files <br />
For Each f1 in fc <br />
%> <br />
<tr bgcolor="#E4E8EF" onMouseOut=this.bgColor='#E4E8EF'; onMouseOver=this.bgColor='#FFFFFF';> <br />
<td><a href="<%= tempurl+f1.name%>" target="_blank"><%= f1.name%></a></td> <br />
<td><div align="right"><%= f1.size%></div></td> <br />
<td><div align="left"></div></td> <br />
<td><div align="left"><%= f1.datelastmodified%></div></td> <br />
<td><a href="<%= url%>?action=editfile&filename=<%= folderspec&"\"&f1.name%>">修改</a> <a href="<%= url%>?action=delfile&filename=<%= folderspec&"\"&f1.name%>" onclick="{if(confirm('删除文件<<%= f1.name%>>么?')){return true;}return false;}">删除</a></td> <br />
</tr> <br />
<% <br />
Next <br />
set fso=nothing <br />
%> <br />
</table> <br />
<% <br />
End Function <br />
'文件操作 <br />
function delfile() <br />
filename=request.QueryString("filename") <br />
set fso=server.CreateObject("scripting.filesystemobject") <br />
fso.deletefile(filename) <br />
tempurl=url&"?foldername="&fso.GetParentfoldername(filename) <br />
set fso=nothing <br />
response.Redirect(tempurl) <br />
end function<br />
function savefile() <br />
filename=request.Form("filename") <br />
content=request.Form("content") <br />
filename1=request.Form("filename1") <br />
if request.ServerVariables("PATH_TRANSLATED")<>filename then <br />
set fso=server.CreateObject("scripting.filesystemobject") <br />
set f1=fso.opentextfile(filename,2,true) <br />
f1.write(content) <br />
f1.close <br />
if filename1<>"" and filename1<>filename then fso.deletefile(filename1) <br />
tempurl=url&"?foldername="&fso.GetParentfoldername(filename) <br />
set fso=nothing <br />
end if <br />
response.Redirect(tempurl) <br />
end function<br />
function filenew() <br />
filename=request.QueryString("filename") <br />
content="" <br />
fileform filename,content,filename1 <br />
end function<br />
function fileedit() <br />
filename=request.QueryString("filename") <br />
filename1=request.QueryString("filename") <br />
set fso=server.CreateObject("scripting.filesystemobject") <br />
set f1=fso.opentextfile(filename,1,true) <br />
content=server.HTMLEncode(f1.readall) <br />
f1.close <br />
set fso=nothing <br />
fileform filename,content,filename1 <br />
end function<br />
function fileform(filename,content,filename1) <br />
%> <br />
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0"> <br />
<form name="form1" method="post" action="<%= url%>?action=savefile"> <br />
<tr> <br />
<td><input name="filename1" type="hidden" value="<%= filename1%>"><input name="filename" type="text" value="<%= filename%>" style="width:100%"></td> <br />
</tr> <br />
<tr> <br />
<td><textarea name="content" wrap="VIRTUAL" style="width:100%;height:100%;font:Arial,Helvetica,sans-serif;" onKeyUp="style.height=this.scrollHeight;"><%= content%></textarea></td> <br />
</tr> <br />
<tr> <br />
<td><center><input type="submit" name="Submit" value="保存" style="width:200"><input type="reset" name="Submit2" value="重置" style="width:200"></center></td> <br />
</tr> <br />
</form> <br />
</table> <br />
<% <br />
end function <br />
'文件夹操作函数 <br />
function delfolder() <br />
foldername=request.QueryString("foldername") <br />
set fso=server.CreateObject("scripting.filesystemobject") <br />
tempurl=url&"?foldername="&fso.GetParentfoldername(foldername) <br />
fso.deletefolder(foldername) <br />
set fso=nothing <br />
response.Redirect(tempurl) <br />
end function<br />
function savefolder() <br />
foldername=request.Form("foldername") <br />
foldername1=request.Form("foldername1") <br />
set fso=server.CreateObject("scripting.filesystemobject") <br />
if foldername1="" then <br />
set f=fso.createfolder(foldername) <br />
else <br />
fso.MoveFolder foldername1,foldername <br />
end if <br />
tempurl=url&"?foldername="&f <br />
set fso=nothing <br />
response.Redirect(tempurl) <br />
end function<br />
function newfolder() <br />
foldername=request.QueryString("foldername")&"\" <br />
formfolder foldername,foldername1 <br />
end function<br />
function editfolder() <br />
foldername=request.QueryString("foldername") <br />
foldername1=request.QueryString("foldername") <br />
formfolder foldername,foldername1 <br />
end function<br />
function formfolder(foldername,foldername1) <br />
%> <br />
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0"> <br />
<form name="form1" method="post" action="<%= url%>?action=savefolder"> <br />
<tr><td><input name="foldername1" type="hidden" value="<%= foldername1%>"><input name="foldername" type="text" value="<%= foldername%>" style="width:100%"></td></tr> <br />
<tr><td><center><input type="submit" name="Submit" value="保存" style="width:200"><input type="reset" name="Submit2" value="重置" style="width:200"></center></td></tr> <br />
</form> <br />
</table> <br />
<% <br />
end function<br />
function upload() <br />
%> <br />
<form action="file.asp?action=saveupload" method="post" enctype="multipart/form-data" name="form2"> <br />
<div align="center">有待完成 <br />
<input type="file" name="file" style="width:80%"> <br />
<input type="submit" name="Submit" value="提交"> <br />
</div> <br />
</form> <br />
<% <br />
end function<br />
function saveupload() <br />
'有待实现 <br />
end function<br />
'登陆 <br />
function chklogin() <br />
password=request.Form("password") <br />
if password="ok" then session("login")="login" <br />
if session("login")<>"login" then login <br />
end function<br />
function login() <br />
%> <br />
<form name="form1" method="post" action="<%= url%>?action=chklogin"> <br />
<center>请输入密码：<input name="password" type="password"><input type="submit" name="Submit" value="登陆"></center> <br />
</form> <br />
<% <br />
response.End() <br />
end function<br />
function logout() <br />
session.Abandon() <br />
response.Redirect(url) <br />
end function <br />
%></p>