常用ASP函数集【经验才是最重要的】(15)

    If fso.FolderExists(FolderPath) then
    '存在
        CheckDir = True
    Else
    '不存在
        CheckDir = False
    End if
    Set fso = nothing
End Function

Function CheckFile(FilePath) '检查某一文件是否存在
    Dim fso
    Filepath=Server.MapPath(FilePath)
    Set fso = Server.CreateObject("Scripting.FileSystemObject")
    If fso.FileExists(FilePath) then
    '存在
        CheckFile = True
    Else
    '不存在
        CheckFile = False
    End if
    Set fso = nothing
End Function

'-------------根据指定名称生成目录---------
Function MakeNewsDir(foldername)
    dim fso,f
    Set fso = Server.CreateObject("Scripting.FileSystemObject")
    Set f = fso.CreateFolder(foldername)
    MakeNewsDir = True
    Set fso = nothing
End Function

Function CreateHTMLPage(filename,FileData,C_mode) '生成文件
    if C_mode=0 then '使用FSO生成
        Dim fso,txt
        Set fso = CreateObject("Scripting.FileSystemObject")
        Filepath=Server.MapPath(filename)
        if CheckFile(filename) then fso.DeleteFile Filepath,True '防止续写
        Set txt=fso.OpenTextFile(Filepath,8,True)  
        txt.Write FileData
        txt.Close
        Set fso = nothing
    elseif C_mode=1 then '使用Stream生成
        Dim viboStream
        On Error Resume Next
        Set viboStream = Server.createObject("ADODB.Stream")

        If Err.Number=-2147221005 Then
            Response.Write "<div align='center' style=""font-size:12px;font-family:Tahoma;"">非常遗憾,您的主机不支持 ADODB.Stream,不能使用本程序</div>"