asp读取文本内容并将文本内容以每行10的格式字显示

<%

Dim Filex,step
Filex = "aaa.txt" '文本文件相对此处理页面的相对路径
step = 10 '每行显示多少个字，可以自己定义

dim FSO, F, content,l
Set FSO = Server.CreateObject("Scripting.FileSystemObject")

If FSO.FileExists(Server.MapPath(Filex)) Then
'文件存在，读取内容
Set F = FSO.OpenTextFile(Server.MapPath(Filex), 1)
content = F.ReadAll
Set F=nothing

l = 1
do while l <= len(content)
response.Write(mid(content,l,step)&"<br>")
l = l + step
loop

Else
response.Write("文件不存在")
End If

Set FSO = Nothing

%>