实现功能：
文件(夹)目录列表 提供了查阅目录下面的文件和文件夹
文件 写,创,删 提供了编辑,删除文件(文件夹)的操作
创建文件夹/文件 针对创建文件夹(文件)而设置.
上传文件 您可以模拟FTP上传,文件大小,类型不受限制.
有兴趣的自己体验，出现任何问题我均不承担任何后果，在此说，我没多少时间上网，经常也顾不过来，是看到最近经常有人问这方面的问题，就发上来，希望有所帮助。
upfso.asp //控制上传的文件
复制代码 代码如下:
<!--#include file="upload.asp" -->
<%'On Error Resume Next%>
<STYLE type="text/css"> @import url("admin.css");</STYLE>
<%
Server.ScriptTimeOut = 999
'up_filetype="RAR,ZIP,SWF,JPG,PNG,GIF,DOC,TXT,CHM,PDF,ACE,JPG,MP3,WMA,WMV,bmp"
IF Request.QueryString("yes")="upload" Then
path=Trim(request("path"))
'response.write(path&"---")
'response.End
Dim FSO,FSOIsOK,F_FileName,mode
F_FileName=Trim(request("nn"))
mode =killint(Trim(request("mode")),0,0,2)
FSOIsOK=1
Set FSO=Server.CreateObject("Scripting.FileSystemObject")
If Err<>0 Then
Err.Clear
FSOIsOK=0
End If
Dim D_Name,F_Name
If FSOIsOK=1 Then
If InStr(1,path,":\")=0 Then
path=Replace(Lcase(path),"\","/")
path = server.mappath(path)
path=Replace(path&"/","//","/")
Else
path=Replace(Lcase(path),"/","\")
内容版权声明：除非注明，否则皆为本站原创文章。