巧用asp文件写入生成文本日…

学习一下~

原文地址：巧用asp文件写入生成文本日志文件 作者：点点

创建新文件，写入：
function log_result(sWord)
      set fs= createobject("scripting.filesystemobject")
      set ts=fs.createtextfile(server.MapPath("log/"&replace(now(),":","")&Rnd(1000)&".txt"),true)
      ts.writeline(sWord)
      ts.close
      set ts=Nothing
      set fs=Nothing
end function

下面是一个即可以往txt里增加又可以覆盖的

在asp后台中，登陆等信息要是存放在数据库中，增加了数据库的读写次数，也是不安全的。在有FSO的权限的情况下，采用文件写入，直接将数据量不是太大的日志写入文本文件，方便保存，也相对安全。下面是文件写入的asp代码：

<%
' witefile.asp
' 写入文件
Sub WriteFile(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 ErrMsg
        End Select
End Sub
'调用
'WriteFile "c:dd.ini", "dd", True
'Call WriteFile ("c:dd.ini", "dd", True)
'可以创建文件，但是不能创建目录
%>
上面的文件写入是通用的写入方法，不只可以写文本文件，在RSS聚合中，也是生成XML和静态HTML文件的方法。
下面是调用写入日志：

<%
dim myxieru,myenter
Sub MyWf(yemian, caozuo, jieguo,shijian)
if yemian<>""and caozuo<>""and jieguo<>""and shijian<>""then
   myenter=true
end if
'判断是否有参数传递到写入函数
myxieru="活动描述:["&yemian&"]----"&"执行操作:["&caozuo& amp;"]----"&"执行结果:["&jieguo&"]----"&"操作时间: ["&shijian&"]"
if myenter=true then
   WriteFile server.MapPath("rizhi/rizhi.txt"), myxieru, true'追加在后面，每次更新
end if
End Sub

%>

在需要调用的地方，比如一个过程执行成功的地方，我们调用MyWf（）并代入参数，就可以把有格式的文本文件写在rizhi.txt里面了：

<% MyWf "后台管理","用户退出了后台登陆","成功退出",now()'调用日志写入文件%>
写入后的格式为：
活动描述:[后台管理]----执行操作:[用户退出了后台登陆]----执行结果:[成功退出]----操作时间:[2007-12-4 22:10:27]

该文提及的witefile.asp程序为通用程序，把传入的参数改变后，就可以写XML文件和其他文件了