asp函数转换xml中的实体字符[转义符]

piperzero

于 2008-12-11 11:20:00 发布

阅读量1.1k

点赞数

分类专栏： ASP 文章标签： asp xml function

ASP 专栏收录该内容

176 篇文章

订阅专栏

本文提供了两种实现XML字符转义的方法：一种使用VBScript通过替换特殊字符来实现，另一种使用VBS Public Function方式定义了通用的XML转义函数。这两种方法均可用于确保文本在XML文档中能被正确解析。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

以下为引用的内容：

<%
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(strText)
Dim aryChars
aryChars = Array(38, 60, 62, 34, 61, 39)
Dim i
For i = 0 To UBound(aryChars)
strText = Replace(strText, Chr(aryChars(i)), "&#" & aryChars(i) & ";")
Next
XmlEncode = strText
End Function
%>