ASP网站制作之在ASP中主动创立多级文件夹的函数

ASP是依赖组件的，能访问数据库的组件好多就有好多种,再有就是你微软的东西可是什么都要收钱的啊！创立|函数   　　FSO中有个办法是CreateFolder,然而这个办法只能在其上一级文件夹存在的情形下创立新的文件夹,所以我就写了一个主动创立多级文件夹的函数,在生成静态页面等方面利用十分便利.
　　函数：
--------------------------------
' 主动创立指定的多级文件夹
' strPath为相对途径
' 援用请保存版权
' by im286_Anjer
' 2005-4-3
Function AutoCreateFolder(strPath) ' As Boolean
        On Error Resume Next

        Dim astrPath, ulngPath, i, strTmpPath
        Dim objFSO

        If InStr(strPath, "\") <=0 Or InStr(strPath, ":") <= 0 Then
                AutoCreateFolder = False
                Exit Function
        End If
        Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
        If objFSO.FolderExists(strPath) Then
                AutoCreateFolder = True
                Exit Function
        End If
        astrPath = Split(strPath, "\")
        ulngPath = UBound(astrPath)
        strTmpPath = ""
        For i = 0 To ulngPath
                strTmpPath = strTmpPath & astrPath(i) & "\"
                If Not objFSO.FolderExists(strTmpPath) Then
                        ' 创立
                        objFSO.CreateFolder(strTmpPath)
                End If
        Next
        Set objFSO = Nothing
        If Err = 0 Then
                AutoCreateFolder = True
        Else
                AutoCreateFolder = False
        End If
End Function
　　挪用办法:
MyPath = "C:\a\b\c\"
If AutoCreateFolder(MyPath) Then
        Response.Write "创立文件夹胜利"
Else
        Response.Write "创立文件夹掉败"
End If
ASP.NET和ASP的比较,技术上比较已经没什么可说的了.新一代在大部分程度来说当然是比旧一代好了. 关键看你对所做软件的理解了.因人而定.会写的话也可能比ASP.NET写得更有效率和更方便重用

我可以结合自己的经验大致给你说一说，希望对你有所帮助，少走些弯路。