输出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 = sTextEnd 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 = strTextEnd Function%>

　　推荐阅读

　　ASP常用函数:ReplaceHTML

<% '去掉HTML标记 Public Function ReplaceHTML(Textstr) Dim Str, re Str = Textstr Set re = New RegExp re.IgnoreCase = True re.Global = True re.Pattern = "<(.[^>]*)>" Str = >>>详细阅读

本文标题：ASP常用函数:XMLEncode

地址：http://www.17bianji.com/kaifa2/ASP/32743.html

 1/2    1