把字符写入到文件中,怎么没有呀?

lyszjs 2006-05-10 05:23:37

dim stream
set FSO = Server.CreateObject("Scripting.fileSystemObject")
FSO.Open
Set stream = FSO.OpenTextFile(Server.MapPath("/inc/waixuanjianjie.inc"), ForWriting, True)
stream.Write (txtBody) //txtbody 是字符串
stream.close

...全文

104 6 打赏收藏转发到动态举报

写回复

用AI写文章

6 条回复

切换为时间正序

请发表友善的回复…

发表回复

lyszjs 2006-05-11

打赏
举报

原因查出来了
应该是 stream write request("txtBody")

lyszjs 2006-05-10

打赏
举报

Set stream = FSO.OpenTextFile(Server.MapPath("/inc/waixuanjianjie.inc"), ForWriting)
stream.Write txtBody
改成这样了,但是文件里的内容不更新.

sxsgssgs 2006-05-10

打赏
举报

这种方式，就是重新写入

你查查txtbody有没有值。

Set strea = FSO.OpenTextFile(Server.MapPath("/inc/waixuanjianjie.inc"),True)

把",2"去掉。

lyszjs 2006-05-10

打赏
举报

dim strea
Set FSO= CreateObject("Scripting.FileSystemObject")
Set strea = FSO.OpenTextFile(Server.MapPath("/inc/waixuanjianjie.inc"), 2, True)
strea.Write txtBody
strea.close
执行后文件里的原有的字符都没有了,变为一个空的文件了........

sxsgssgs 2006-05-10

打赏
举报

不要用asp保留字：stream　做为对象变量。

　示例：

　 Dim fso, tf
Set fso = CreateObject("Scripting.FileSystemObject")
Set tf = fso.CreateTextFile("c:\testfile.txt", True)
str="sdfsdssdfs"
tf.Write str
tf.Close

lyszjs 2006-05-10