web学习吧　2006-12-16　来源:　收藏本文

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

代码:

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

• ·FSO的强大功能
• ·FileSystemObject 对象
• ·'FSO' 读出TXT文件
• ·FSO开启
• ·不用模板，只用ASP+FSO生成静态HTML页的一
• ·三种禁用FSO的方法
• ·ASP，FSO遍历目录及目录下文件
• ·构建免受FSO组件威胁虚拟主机
• ·fso的一些特殊功能
• ·利用FSO取得图像文件信息
• ·二级域名原理以及程序
• ·用XML+FSO+JS实现服务器端文件的
• ·使用FSO把文本信息导入数据库
• ·用FSO获得图片文件的信息(大小，宽，高)
• ·IE功能汇总
• ·ASP常用的函数