ASP常用函數:XMLEncode

熱門標簽：鄢陵學校如何做地圖標注 鄭州智能外呼電銷機器人廠家 沈陽電話機器人公司 沈陽三五防封電銷卡 虛擬電話外呼系統(tǒng) 成都ai外呼系統(tǒng)線路 長春公司外呼系統(tǒng)中心 云南便宜外呼系統(tǒng)平臺 廣東語音外呼系統(tǒng)公司

輸出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
%>