求救一个文件操作的简单问题
我想写一个把表单信息保存到文本文件的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




