Question

ASP提交文本时如何将回车替换为<BR>？

在提交表单时，文本框中的回车如何替换为<BR>标签？

Answer 1

<%
Function HTMLEncode(Str)
Str=Replace(Str," "," ")
Str=Replace(Str,Chr(10),"<br>")
Str=Replace(Str,Chr(13)+Chr(10),"<p>")
HTMLEncode=Str
End Function
%>

使用方法：<%HTMLEncode(Request.Form("content"))%>