asp保存textarea遇到空格，换行等字符转换html的函数

<% 
'----------Html转换为文本:编辑时拿来做转换 
Function Html2Text(Str1) 
If isNULL(Str1) Then 
Html2Text="" 
Exit Function 
End If 
Str1=Replace(Str1,"&lt;"," <") 
Str1=Replace(Str1,"&gt;",">") 
Str1=Replace(Str1," <br>",VBcrlf) 
Str1=Replace(Str1,"&quot;",chr(34)) 
Str1=Replace(Str1,"&nbsp;"," ") 
Str1=Replace(Str1,"&amp;","&") 
Html2Text=Str1 
End Function 
'-------------------文本转换为Html:写入数据库时使用--------------- 
Function Text2Html(Str1) 
If isNULL(Str1) Then 
Text2Html="" 
Exit Function 
End If 
Str1=Replace(Str1,"&","&amp;") 
Str1=Replace(Str1," <","&lt;") 
Str1=Replace(Str1,">","&gt;") 
Str1=Replace(Str1,VBcrlf," <br>") 
Str1=Replace(Str1,chr(34),"&quot;") 
Str1=Replace(Str1,chr(9),"&nbsp;&nbsp;&nbsp;") 
Str1=Replace(Str1," ","&nbsp;") 
Text2Html=Str1 
End Function 
%>