输出RSS和XML时经常用到,和HTMLEncode还不完全一样 原理:

[b]Character[/b]	[b]Converted To[/b]
"	"
'	'
&	&
<	<
>	>

代码 <% Function XMLEncode(byVal sText)     sText = Replace(sText, "&" , "&")     sText = Replace(sText, "<" , "<")     sText = Replace(sText, ">" , ">")     sText = Replace(sText, "'" , "'")     sText = Replace(sText, """", """)     XMLEncode = sText End Function %> 还有个: <% Public Function XmlEncode(ByVal strText As String) As String     Dim aryChars() As Variant     aryChars = Array(38, 60, 62, 34, 61, 39)     Dim i As Integer     For i = 0 To UBound(aryChars)         strText = Replace(strText, Chr(aryChars(i)), "&#" & aryChars(i) & ";")     Next     XmlEncode = strText End Function %>