<%

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

%>

下面的 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

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

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

用xml dom操作xml文件

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

刚好我昨天看了关于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

给你说个简单点的
  下面的为将数据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写入文件