asp代码回车换行问题

<%
dim msg
dim tme
tme=now()
num=Request.QueryString("msg")
set fs=server.CreateObject("Scripting.FileSystemObject")
set file=fs.OpenTextFile(server.MapPath("jj.htm"),8,True)
file.writeline num & vbcrlf '用chr(10)也行
file.writeline tme & vbcrlf '用chr(10)也行

file.close
set file=nothing
set fs=nothing
response.write "Send OK!"
%>

换行操作如下：

<%
dim html
html = "" & chr(10) '换行
html = html & "" & chr(10) '换行
…… 后面的类推

response.write html '输出看一下源代码 是不是都转行了？
%>

后面加个 vbcrlf 试试
file.writeline num & vbcrlf
file.writeline tme & vbcrlf