这个是向指定的TXT写
<%
Set myfileobject=servercreateobject("scriptingFilesystemobject")
set mytextfile=myfileobjectcreatetextfile("E:\pccode_zzblog\pccode_zzblog\zzblog\weahtxt")
for i=1 to 10
mytextfilewriteline("写的内容")
next
mytextfileclose
%>
这个是追加
<%
Set fso = ServerCreateObject("ScriptingFileSystemObject")
path =("E:\pccode_zzblog\pccode_zzblog\zzblog\weahtxt")
set file = fsoopenTextFile(path,8, TRUE)
fileWrite("dfgdfgdg")
fileclose
set file = nothing
set fso = nothing
%>
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)