在asp中常使用的函数是 XMLEncoding

发布时间：2023-09-19 10:06:41 所属栏目：Asp教程来源：

导读：输出RSS和XML时经常用到,和HTMLEncode还不完全一样

原理:

Character Converted To
" "
' '
& &
< <
> >
代码
<%
Function XMLEncode(byVal sText)
sText = Replace(sT

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

（编辑：汽车网）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!