asp 新建文件并写入内容

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
filename="list.js"
set fso=server.CreateObject("Scripting.FileSystemObject")

strXml="asp write file "&+chr(10)&"换行"
path=server.MapPath("test")
if fso.FolderExists(path)=false then
fso.CreateFolder(path)
end if
path=path&"/"&filename

set ts=fso.OpenTextFile(path,2,true,-2)
ts.writeline""&strXml&""

ts.close
set ts=nothing
set fso=nothing
‘response.Write(now())
%>