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

软件发布|下载排行|最新软件

当前位置:首页IT学院IT技术

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

  2021-03-17 我要评论
想了解写入文本文件的过程函数(ASP)的相关内容吗,在本文为您仔细讲解的相关知识和一些Code实例,欢迎阅读和指正,我们先划重点:写入入文文本本文文件件的的过过程程函函数数AASSPP,下面大家一起来学习吧。

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

代码:

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.不能自动建立目录

Copyright 2022 版权所有 软件发布 访问手机版

声明:所有软件和文章来自软件开发商或者作者 如有异议 请与本站联系 联系我们