asp二进制写入TXT文件代码
答案:1 悬赏:40 手机版
解决时间 2021-04-06 07:59
- 提问者网友：雪舞兮
- 2021-04-05 07:09
asp二进制写入TXT文件代码
最佳答案
- 五星知识达人网友：洒脱疯子
- 2021-04-05 07:34
用fso
给个例子给你就明白了
<%
Set fso = Server.CreateObject("Scripting.FileSystemObject")
txt=server.mappath("1.txt")'保存信息的文件路径
set wrtxt=fso.opentextfile(txt,8)'打开方式
call write_txt(12,42)
sub write_txt()
response.write("shayoo
")
wrtxt.writeline("shayoo")'写入源文件名
wrtxt.writeline'写一空行
wrtxt.writeline'写一空行
whichfile=server.mappath("zl.txt")'设置源文件路径
Set cnrs = fso.OpenTextFile(whichfile,1)'创建对象
While Not cnrs.AtEndOfStream'读取文件内容
rsline = cnrs.ReadLine
Response.Write(rsline & "
")'并分行显示行
wrtxt.WriteLine(rsline)'分行写入文件
Wend'循环
end sub
%>
给个例子给你就明白了
<%
Set fso = Server.CreateObject("Scripting.FileSystemObject")
txt=server.mappath("1.txt")'保存信息的文件路径
set wrtxt=fso.opentextfile(txt,8)'打开方式
call write_txt(12,42)
sub write_txt()
response.write("shayoo
")
wrtxt.writeline("shayoo")'写入源文件名
wrtxt.writeline'写一空行
wrtxt.writeline'写一空行
whichfile=server.mappath("zl.txt")'设置源文件路径
Set cnrs = fso.OpenTextFile(whichfile,1)'创建对象
While Not cnrs.AtEndOfStream'读取文件内容
rsline = cnrs.ReadLine
Response.Write(rsline & "
")'并分行显示行
wrtxt.WriteLine(rsline)'分行写入文件
Wend'循环
end sub
%>
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯