ASP将文本域内容转换为HTML格式

'转换为HTML格式
function convert(str)
if str<>"" then
str=replace(str,chr(32),"&nbsp;")
str=replace(str,chr(60),"&lt;")
str=replace(str,chr(62),"&gt;")
str=replace(str,chr(34),"&quot;")
str=replace(str,chr(13),"<br />")
end if
convert=str
end function