输出RSS和XML时经常用到,和HTMLEncode还不完全一样
原理:
| Character |
Converted To |
| " |
quot; |
| ' |
apos; |
|
|
|
lt; |
| > |
gt; |
代码
%
Function XMLEncode(byVal sText)
sText = Replace(sText, "" , "")
sText = Replace(sText, "" , "lt;")
sText = Replace(sText, ">" , "gt;")
sText = Replace(sText, "'" , "apos;")
sText = Replace(sText, """", "quot;")
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
%>
