如果要有格式的话用下面的代码:
<%
Function HTMLFormat(sText)
if sText<>"" then
Text = sText
Text = Replace(Text, "&", "&")
Text = Replace(Text, "<", "<")
Text = Replace(Text, ">", ">")
Text = Replace(Text, " ", " ")
Text = Replace(Text, vbCrLf, "<br>")
HTMLFormat = Text
else
HTMLFormat = sText
end if
End Function