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

2009-05-12 15:16:58来源:未知 阅读 ()

新老客户大回馈,云服务器低至5折

以下为引用的内容:

<%
Function XMLEncode(byVal sText)
sText = Replace(sText, "&" , "&amp;")
sText = Replace(sText, "<" , "&lt;")
sText = Replace(sText, ">" , "&gt;")
sText = Replace(sText, "'" , "&apos;")
sText = Replace(sText, """", "&quot;")
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
%>

标签:

版权申明:本站文章部分自网络,如有侵权,请联系:west999com@outlook.com
特别注意:本站所有转载文章言论不代表本站观点,本站所提供的摄影照片,插画,设计作品,如需使用,请与原作者联系,版权归原作者所有

上一篇:认真学习ASP内置对象Session的应用

下一篇:学ASP应该注意ASP程序书写的规范

热门词条
热门标签