请问如何强制输出HTML代码为txt代码

替换 < 和 > 等符号为 &lt; 和 &gt; 等实体名。

 

<%
'过滤HTML字符函数
Function HTMLEncode(str)
If str <> "" Then
str = Replace(str, "&", "&amp;")
str = Replace(str, ">", "&gt;")
str = Replace(str, "<", "&lt;")
str = Replace(str, Chr(32), "&nbsp;")
str = Replace(str, Chr(9), "&nbsp;&nbsp;&nbsp;&nbsp;")
str = Replace(str, Chr(34), "&quot;")
str = Replace(str, Chr(39), "'")
str = Replace(str, Chr(13), "")
str = Replace(str, Chr(10) & Chr(10), "</P><P>")
str = Replace(str, Chr(10), "<BR>")
str = Replace(str, Chr(255), "&nbsp;")
End If
HTMLEncode = str
End Function
%>

 

没明白

 

<TEXTAREA NAME="" ROWS="" COLS=""></TEXTAREA>

 

http://bbs.chinahtml.com/14903

 

不错

 

简单的字符转换，例如空格用&nbsp;等。。。

 

明白了~`