FSO操作文件系统

实现功能：
文件(夹)目录列表提供了查阅目录下面的文件和文件夹
文件写,创,删提供了编辑,删除文件(文件夹)的操作
创建文件夹/文件针对创建文件夹(文件)而设置.
上传文件您可以模拟FTP上传,文件大小,类型不受限制.

有兴趣的自己体验，出现任何问题我均不承担任何后果，在此说，我没多少时间上网，经常也顾不过来，是看到最近经常有人问这方面的问题，就发上来，希望有所帮助。

upfso.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),"/","/")
                    path=Replace(path&"/","//","/")
                    End If
                if not fso.folderexists(path) Then
                response.write "<a href=""javascript:history.back()""><font color='#000080'>基本路径查找失败,返回</font></a>"

上一篇：利用Microsoft.XMLHTTP控件发送COOKIE

下一篇：ASP的天空小偷

发表评论

共有条评论