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

时间:2021-03-17 人气:1

想了解写入文本文件的过程函数(ASP)的相关内容吗，在本文为您仔细讲解的相关知识和一些Code实例，欢迎阅读和指正，我们先划重点：写入文本文件的过程函数(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.不能自动建立目录

加载全部内容