写入文本文件的过程函数(ASP)

今天写程序的时候要反复用到写入文本文件,于是就写了一个过程函数,希望对大家有用.
代码:

sub write2file(strfile, strcontent, blnappend)        

' 写入文件 
' strfile 文件名(路径) , strcontent 写入的内容, blnappend 是否追加 
        on error resume next 
        set objfso = server.createobject("scripting.filesystemobject") 
        if blnappend then 
                set objwritetext = objfso.opentextfile(strfile,8,true) 
        else 
                set objwritetext = objfso.opentextfile(strfile,2,true) 
        end if 
        objwritetext.writeline (strcontent) 
        set objwritetext = nothing 
        set objfso = nothing 
        ' 容错处理 
        select case err 
                case 424 response.write "路径未找到或者该目录没有写入权限." 
'                case else response.write err.description 
                case else response.write err 
        end select 
end sub  

调用方法:
write2file "c:\dd.ini", "dd", true
或者
call write2file ("c:\dd.ini", "dd", true)
说明:
1.自动建立文件;
2.不能自动建立目录