求救一个文件操作的简单问题

我想写一个把表单信息保存到文本文件的asp，下面是代码和出错信息  
   
  <%  
  name=request.form("name")  
  age=request.form("age")  
  pass=request.form("pass")  
  subtime=cstr(now())  
  currdir=server.mappath("/data")  
  filename=currdir+"\"+name  
   
  set   myfileobject=server.createobject("scripting.filesystemobject")  
  set   oldfile=myfileobject.opentxtfile(filename,2,true)  
   
  oldfile.writeline(name)  
  oldfile.writeline(age)  
  oldfile.writeline(pass)  
  oldfile.writeline(subtime)  
  oldfile.writeline("")  
  oldfile.close  
  %>  
  出错信息：  
  Microsoft   VBScript   运行时错误   错误   '800a01b6'    
   
  对象不支持此属性或方法:   'opentxtfile'    
   
  /scripts/checkusr.asp，行21  
   
  我是在自己的电脑里测试的，不知道是不是还有配置的问题？ 问题点数：50、回复次数：1Top

1 楼ccmoon（IzuaL）回复于 2003-09-04 21:04:44 得分 50

set   oldfile=myfileobject.opentxtfile(filename,2,true)  
  >>  
  set   oldfile=myfileobject.OpenTextFile(filename,2,true)  
  <%  
  name=request.form("name")  
  age=request.form("age")  
  pass=request.form("pass")  
  subtime=cstr(now())  
  currdir=server.mappath("/data")  
  filename=currdir+"\"+name  
   
  Dim   fs,   f  
  Set   fs   =   CreateObject("Scripting.FileSystemObject")  
  If   fs.FileExists(FileName)   =   False   Then  
  fs.CreateTextFile   (FileName)  
  End   If  
  '以添加方式打开文件  
  Set   f   =   fs.OpenTextFile(FileName,   8)  
  f.writeline(name)  
  f.writeline(age)  
  f.writeline(pass)  
  f.writeline(subtime)  
  f.writeline("")  
   
  f.Close  
  Set   f   =   Nothing  
  Set   fs   =   Nothing  
  %>  
  Top

相关问题

• 信息
• opentxtfile
• myfileobject
• 问题
• 出错信息
• filename
• set oldfile
• true

• 帖主：franticly
• ccmoon

• Web开发类图书