求好心asp高手帮看下代码

好心的高手帮看一下这段代码 写的是什么意思 每一段都表达的什么 好心的高手帮看些 解释下无限感激中
<%sub backupdata()
    Dbpath=request.form("Dbpath")
    Dbpath=server.mappath(Dbpath)
    bkfolder=request.form("bkfolder")
    bkdbname=request.form("bkdbname")
    Set Fso=server.createobject("scripting.filesystemobject")
    if fso.fileexists(dbpath) then
    If CheckDir(bkfolder) = True Then
    fso.copyfile dbpath,bkfolder& "\"& bkdbname
    else
    MakeNewsDir bkfolder
    fso.copyfile dbpath,bkfolder& "\"& bkdbname
    end if
    response.write "<SCRIPT LANGUAGE=JavaScript>alert (' 成功备份数据!');window.location.href='admin_backupdata.asp';</script>"
        response.end
     Else
    response.write "<SCRIPT LANGUAGE=JavaScript>alert (' 备份数据库失败，您要备份的数据库不存在!');window.location.href='admin_backupdata.asp';</script>"
        response.end
    End if
end sub
'------------------检查某一目录是否存在-------------------
Function CheckDir(FolderPath)
  folderpath=Server.MapPath(".")&"\"&folderpath
    Set fso1 = CreateObject("Scripting.FileSystemObject")
    If fso1.FolderExists(FolderPath) then
       '存在
       CheckDir = True
    Else
       '不存在
       CheckDir = False
    End if
    Set fso1 = nothing
End Function
'-------------根据指定名称生成目录---------
Function MakeNewsDir(foldername)
    Set fso1 = CreateObject("Scripting.FileSystemObject")
        Set f = fso1.CreateFolder(foldername)
        MakeNewsDir = True
    Set fso1 = nothing
End Function  %>

全部

s***

回答