请教高手！

[119311canoe]

1 <%
response.write replace
(rs("book_discribe"),vbCrLf,"<br/>   "&vbCrLf)
%>
2 <% content=replace(rs("book_discribe"),chr(13),"<br>")
content=replace(content,chr(32)," ")
Response.Write content
%>
以上2个都能实现自动换行！但是都第2行以下的，第一行的格式却始终是
........
.....
.....
我要想让他
.........
.........
......
该怎么办？
顺便问下：vbcrlf是什么意识啊？

[月小升java-er点com]

http://expert.csdn.net/Expert/topic/1847/1847132.xml?temp=9.090602E-03

[61]

<%
Function coder(str)
Dim result,L,i
If IsNull(str) Then : coder="" : Exit Function : End If
L=Len(str) : result=""
For i = 1 to L
select case mid(str,i,1)
case "<" : result=result+"<"
case ">" : result=result+">"
case chr(34) : result=result+"""
case "&" : result=result+"&"
case "'" : result=result+"''"
case chr(13) : result=result+"<br/>"
case chr(9) : result=result+"    "
case chr(32) : result=result+" "
case else : result=result+mid(str,i,1)
end select
Next
coder=result
End Function

%>

<table border=1 width=200 style="word-break:break-all">
<tr><td><%=Coder(記錄集名("字段名"))%></td></tr>
</table>

[61]

<%
Function coder(str)
Dim result,L,i
If IsNull(str) Then : coder="" : Exit Function : End If
L=Len(str) : result=""
For i = 1 to L
select case mid(str,i,1)
case "<" : result=result+"<"
case ">" : result=result+">"
case chr(34) : result=result+"""
case "&" : result=result+"&"
case "'" : result=result+"''"
case chr(13) : result=result+"<br/>"
case chr(9) : result=result+"    "
case chr(32) : result=result+" "
case else : result=result+mid(str,i,1)
end select
Next
coder=result
End Function

%>

<table border=1 width=200 style="word-break:break-all">
<tr><td><%=Coder(記錄集名("字段名"))%></td></tr>
</table>