今天写程序的时候要反复用到写入文本文件,于是就写了一个过程函数,希望对大家有用. 代码: 复制代码 代码如下: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.不能自动建立目录

　　推荐阅读

　　ASP常用函数收藏乱七八糟未整理版

<% '******************************************************************* '取得IP地址 '******************************************************************* Function Userip() Dim GetClientIP '如>>>详细阅读

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

地址：http://www.17bianji.com/kaifa2/ASP/32767.html

 1/2    1