asp读取文本

<%@ Language=VBScript %>
<HTML>
<HEAD>
<META name=VI60_defaultClientScript content=VBScript>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<META HTTP-EQUIV="refresh" content=5>
</HEAD>
<BODY><%
set fsObj=CreateObject("Scripting.FileSystemObject")
FilePath=Server.MapPath("a.txt")
IF fsObj.FileExists("a.txt") Then
set txtsObj=fsObj.OpenTextFile(FilePath)
while not txtsObj.atEndOfStream 
response.write txtsObj.readline
wend
End if
%>a.txt文本文件中有a换行,b换行,c换行,d换行
可是为什么对出来却是一行!