ASP常用函数：XMLEncode
2018-09-06 13:07
阅读：638
输出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 = 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
%>
评论
亲，登录后才可以留言！