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

原理:

Character	Converted To
"	"
'	'
&	&
<	<
>	>

代码

<%

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)), "";")

Next

XmlEncode = strText

End Function

%>