asp合并文本文件

来源:百度知道 编辑:UC知道 时间:2024/05/29 08:40:17
有a.txt b.txt两文件,如何将两文件的内容合并并写入c.txt?

<%

Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set tmp = fso.OpenTextFile(Server.MapPath("a.txt"))
If Not tmp.AtEndOfStream then
body=tmp.ReadAll
End If
Set tmp = fso.OpenTextFile(Server.MapPath("b.txt"))
If Not tmp.AtEndOfStream then
body2=tmp.ReadAll
End If
body=body&body2
set fout = fso.CreateTextFile(server.mappath("c.txt"),true)
fout.write body
fout.close
set fout=nothing
Set fso=Nothing
response.write("合并成功")
%>

把上面的代码存为ASP文件,放到有a.txt 和 b.txt 的文件夹运行即可

CMD下可以的