28,406
社区成员
发帖
与我相关
我的任务
分享一个关于写入TXT文件的问题!有没有ASP高手想交我这个朋友的!我的QQ15428483,请写ASP
<%dim objfilesys,objstream
request.form("string")<>""then
set objfilesys=server.createoject("scripting.filesystemobject")
set objstream=objfilesys.opentextfile(server.mappath("data.txt))
objstream.writeline(request.form("string")
set objfilesys=nothing
set objstream=nothing
objfilesys.close
objstream.close
end if%>
<html>
<head>
<title>这是一个留言板的例子</title>
</head>
<body>
<hr>
<%set objfilesys=server.createobject("scriptiong.filesystemobject")
set objstream=objfilesys.opentextfile(server.mappath("data.txt))
while not objstream.atend of stream
response.write("&nsp;&nsp;"&objstream.readling)
wend
set objfilesys=nothing
set objstream=nothing
objfilesys.close
objstream.close
%>
<hr>
<b>请输入您的留言<b>
<form method="post" action="board.asp">
<input name="string" type=text size=70>
<input type=reset value="reset">
<input type=submit value="a">
</form>
</body>
</html>
以上是书中的例子,我运行的时候读入的那段set objfilesys=nothing
set objstream=nothing
objfilesys.close
objstream.close
出错,我就把这四段删了!结果可以看TXT文件的内容,但是运行到写块时,就出错,说是一个错误的文件模块,我的代码有问题吗?
request.form("string")<>""then
set objfilesys=server.createoject("scripting.filesystemobject")
set objstream=objfilesys.opentextfile(server.mappath("data.txt))
objstream.writeline(request.form("string")
set objfilesys=nothing
set objstream=nothing
objfilesys.close
objstream.close
end if%>
<html>
<head>
<title>这是一个留言板的例子</title>
</head>
<body>
<hr>
<%set objfilesys=server.createobject("scriptiong.filesystemobject")
set objstream=objfilesys.opentextfile(server.mappath("data.txt))
while not objstream.atend of stream
response.write("&nsp;&nsp;"&objstream.readling)
wend
set objfilesys=nothing
set objstream=nothing
objfilesys.close
objstream.close
%>
<hr>
<b>请输入您的留言<b>
<form method="post" action="board.asp">
<input name="string" type=text size=70>
<input type=reset value="reset">
<input type=submit value="a">
</form>
</body>
</html>
以上是书中的例子,我运行的时候读入的那段set objfilesys=nothing
set objstream=nothing
objfilesys.close
objstream.close
出错,我就把这四段删了!结果可以看TXT文件的内容,但是运行到写块时,就出错,说是一个错误的文件模块,我的代码有问题吗?
...全文
请发表友善的回复…
发表回复
lansilot 2001-10-17
- 打赏
- 举报
你的代码有好几个地方都错了，估计是你照书上写代码的时候掉了一些。例如
set objstream=objfilesys.opentextfile(server.mappath("data.txt))
应该是：set objstream=objfilesys.opentextfile(server.mappath("data.txt"))
你少了一个引号，这样的错误就有好几个，还有，
<%set objfilesys=server.createobject("scriptiong.filesystemobject")
set objstream=objfilesys.opentextfile(server.mappath("data.txt))
你把文件对象写错了，应该是scripting.filesystemobject。这样的错误有好几个地方，仔细对着书看看吧，一般书上的都是经过了测试的，一般不会有错。
set objstream=objfilesys.opentextfile(server.mappath("data.txt))
应该是：set objstream=objfilesys.opentextfile(server.mappath("data.txt"))
你少了一个引号，这样的错误就有好几个，还有，
<%set objfilesys=server.createobject("scriptiong.filesystemobject")
set objstream=objfilesys.opentextfile(server.mappath("data.txt))
你把文件对象写错了，应该是scripting.filesystemobject。这样的错误有好几个地方，仔细对着书看看吧，一般书上的都是经过了测试的，一般不会有错。
