asp二进制写入TXT文件代码

来源：百度知道 编辑：UC知道 时间：2024/05/25 13:21:22
哪个高手可以使用ASP写入二进制到TXT文件

回答正确有高悬赏

用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("<b><font color=red>shayoo</font></b><br><br>")
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 & "<br>")'并分行显示行
wrtxt.WriteLine(rsline)'分行写入文件
Wend'循环

end sub
%>