ASP动态网页实例：表单多文件上传类

        Private Function CreateFolder(byVal sLine, byVal sPath)
            Dim oFso
            Set oFso = Server.CreateObject("Scripting.FileSystemObject")
            If Not oFso.FolderExists(sPath) Then
               Dim regEx
               Set regEx = New RegExp
               regEx.Pattern = "^(.*)\\([^\\]*)$"
               regEx.Global = False
               regEx.IgnoreCase = True  
               sLine = sLine & regEx.Replace(sPath, "$2") & ""
               sPath = regEx.Replace(sPath, "$1")    
               If CreateFolder(sLine, sPath) Then CreateFolder = True
               Set regEx = Nothing
            Else

上一页 [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] [11] [12] [13] [14] [15] [16] [17] [18] [19] [20] [21] 下一页

复制本页网址和标题，发送给你QQ/Msn的好友一起分享

上一篇:学习ASP有用的文本框过滤函数

下一篇:ASP实现的日历代码实例程序