将多行区域表单中的内容换成html代码

开始将多行区域表单中的内容没有处理，就直接保存起来，然后在显示的时候发现，明明保存的时候有换行等格式，但是显示不出来，所有的内容都在一行上。原因是没有将多行区域表单中的内容换成html格式引起这个原因的。

'字符串内容html化Function inHTML(str)Dim sTempsTemp = strinHTML = ""If IsNull(sTemp) = True ThenExit FunctionEnd If'stemp=Replace(stemp, CHR(38), "&

#38
")sTemp = Replace(sTemp, "&
", "&
amp
")sTemp = Replace(sTemp, "<
", "&
lt
")sTemp = Replace(sTemp, ">
", "&
gt
")stemp=Replace(stemp, CHR(39), "&

#39
")stemp= Replace(stemp, CHR(32), "&
nbsp
")sTemp = Replace(sTemp, Chr(34), "&
quot
")stemp = Replace(stemp, CHR(13), """")    stemp = Replace(stemp, CHR(10), "<
br>
")inHTML = sTempEnd Function'将html字符化Function outHTML(str)Dim sTempsTemp = stroutHTML = ""If IsNull(sTemp) = True ThenExit FunctionEnd If stemp=replace(stemp,"<
br>
",chr(10))stemp=replace(stemp,"""",chr(13))stemp=replace(stemp,"&
quot
",chr(34))stemp=replace(stemp,"&
nbsp
",chr(32))stemp=replace(stemp,"&

#39
",chr(39))stemp=replace(stemp,"&
gt
",">
")stemp=replace(stemp,"&
lt
","<
")stemp=replace(stemp,"&
amp
","&
")'stemp=replace(stemp,"&

#38
",chr(38))outHTML = sTempEnd Function

(鼠标移到代码上去，在代码的顶部会出现四个图标，第一个是查看源代码，第二个是复制代码，第三个是打印代码，第四个是帮助)

用法：
 
text=inhtml(request("textarea"))'这样就将textarea中的内容转换成了html代码
 
当显示数据库中这个内容到多行表单方法
 
<
textarea 
name="textarea" 
cols="30" 
rows="30">
<
%=outhtml(rs("字段名"))%>