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

        Function ParentFolder(byVal sPath)
            Dim regEx
            Set regEx = New RegExp
            regEx.Pattern = "^(.*)\\[^\\]*$"
            regEx.Global = True
            regEx.IgnoreCase = True
            ParentFolder = regEx.Replace(sPath, "$1")
            Set regEx = Nothing            
        End Function

        Private Function StrToByte(byVal sText)
            For i = 1 To Len(sText)                      
                StrToByte = StrToByte & ChrB(Asc(Mid(sText, i, 1)))  
            Next
        End Function

        Private Function ByteToStr(byVal sByte)
            Dim oStream
            Set oStream = Server.CreateObject("ADODB.Stream")

上一页 [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实现的日历代码实例程序