欧美bbbwbbbw肥妇,免费乱码人妻系列日韩,一级黄片

寫(xiě)入文本文件的過(guò)程函數(shù)(ASP)

 更新時(shí)間：2007年02月10日 00:00:00   作者：  
今天寫(xiě)程序的時(shí)候要反復(fù)用到寫(xiě)入文本文件,于是就寫(xiě)了一個(gè)過(guò)程函數(shù),希望對(duì)大家有用.
代碼:
復(fù)制代碼 代碼如下:

Sub Write2File(strFile, strContent, blnAppend)        

' 寫(xiě)入文件 
' strFile 文件名(路徑) , strContent 寫(xiě)入的內(nèi)容, 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 
        ' 容錯(cuò)處理 
        Select Case Err 
                Case 424 Response.Write "路徑未找到或者該目錄沒(méi)有寫(xiě)入權(quán)限." 
'                Case Else Response.Write Err.Description 
                Case Else Response.Write Err 
        End Select 
End Sub  
調(diào)用方法:
Write2File "c:\dd.ini", "dd", True
或者
Call Write2File ("c:\dd.ini", "dd", True)
說(shuō)明:
1.自動(dòng)建立文件;
2.不能自動(dòng)建立目錄

相關(guān)文章

最新評(píng)論