请问ASP如何对文件进行写操作？请高手赐教，先谢了。

[wtf577]

我在做个项目，客户要求使用日志文件对管理员的每次操作进行记录，我想使用一个txt文档记录，可是不知道怎么往里面写内容，请高手点拨赐教，急用，在线等候。

[不老书生]

<%

dim sql,filename,fs,myfile,x,link
Set fs = server.CreateObject("scripting.filesystemobject")

filename = "E:\htmfiles\"&left(strbianhao,4)&"\b" & strbianhao & ".txt"

if fs.FileExists(filename) then
fs.DeleteFile(filename)
end if

set myfile = fs.CreateTextFile(filename,true)

dim strLine,responsestr

strLine="文件内容"

response.write strLine
myfile.writeline strLine

set myfile = nothing
Set fs=Nothing

%>

[xiaobaowu]

下面的 VBScript 例子示范了如何打开文件，和同时使用三种写方法来向文件添加数据，然后关闭文件：


Sub CreateFile()
Dim fso, tf
Set fso = CreateObject("Scripting.FileSystemObject")
Set tf = fso.CreateTextFile("c:\testfile.txt", True)
' 写一行，并且带有新行字符。
tf.WriteLine("Testing 1, 2, 3.")
' 向文件写三个新行字符。
tf.WriteBlankLines(3)
' 写一行。
tf.Write ("This is a test.")
tf.Close
End Sub

[wtf577]

你这个我也会诶，可是每次只是重复写，怎么能到那个文件的末尾呢？

[wtf577]

我试过楼上两位的方法了，但是都不是重新写入啊？我要记录的是每次操作，以前的不能被覆盖掉。

[windancer]

用xml dom操作xml文件

[windancer]

http://www.tongyi.net/article/20030527/200305273596.shtml

[mumunothing]

刚好我昨天看了关于asp写数据到文本文件的如下：

首先要注意forreadinng=1 以只读方式打开 forappending=8以可写的方式打开


Const ForReading = 1 '定义。因为forreadinging不是vbscript内定的常数
Dim FileName
FileName = "Book.txt" ’文本文件
' 添加来宾留言
Sub AppendMessage(strMessage)
Dim objFSO, strFileName, objInStream, strAllMessage, objOutStream
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
strFileName = Server.MapPath(BookFileName)
If Not objFSO.FileExists(strFileName) Then
' 如果文件不存在建立此文件
Set objInStream = objFSO.CreateTextFile(strFileName, True, False)
objInStream.Write " "
objInStream.Close
Set objInStream = Nothing
End If
' 打开文本文件读取文件所有的内容
Set objInStream= objFSO.OpenTextFile(strFileName, ForReading, False, False)
strAllMessage = objinStream.ReadAll
Set objinStream = Nothing
' 将信息写回文件
strAllMessage = strMessage & strAllMessage
' 写入文本文件
Set objOutStream = objFSO.CreateTextFile(strFileName, True, False)
objOutStream.WriteLine(strAllMessage)
objOutStream.Close
Set objOutStream = Nothing
Set objFSO = Nothing
End Sub
' 显示文本信息
Function ShowMessages()
Dim objFSO, strFileName, objInStream, strAllMessage
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
strFileName = Server.MapPath(BookFileName)
If Not objFSO.FileExists(strFileName) Then
' 如果文件不存在，则建立此文件
Set objInStream = objFSO.CreateTextFile(strFileName, True, False)
objInStream.Write " "
objInStream.Close
Set objInStream = Nothing
End If
' 打开文本文件读取文件全部的内容
Set objInStream= objFSO.OpenTextFile(strFileName, ForReading, False, False)
strAllMessage = objInStream.ReadAll
objInStream.Close
Set objOutStream = Nothing
Set objFSO = Nothing
ShowMessages = strAllMessage
End Function

[mumunothing]

给你说个简单点的
下面的为将数据s写入文档a.txt

set fso=server.createobject("scripting.filesystemobject") 建立filesystemobject对象
filepath=server.mappath("a.txt") ’文档的路径
const forappending=8 '定义函数
set f=fso.opentextfile(filepath,forappending) ’打开文档
set f=fso.createtextfile(filepath) ‘或建立一个新文档
f.write s '将变量s写入文件