最新国产好看的视频,伊人天堂AV在线,国产Aaaaaa视频,蜜臀视频在线观看一区,人妻av色图,密臀久久久精品影片,青青视频免费观看毛片,久草在线观看视,国产三级精品色情在线

ASP常用函數(shù):XMLEncode

 更新時(shí)間:2007年02月07日 00:00:00   作者:  

輸出RSS和XML時(shí)經(jīng)常用到,和HTMLEncode還不完全一樣

原理:

Character Converted To
" "
' '
& &
< &lt;
> &gt;

代碼
<%
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
%>
還有個(gè):
<%
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
%>

相關(guān)文章

最新評(píng)論

宁武县| 凯里市| 波密县| 阿尔山市| 平江县| 新蔡县| 松江区| 惠州市| 六盘水市| 黎川县| 宁德市| 象州县| 屏东县| 长武县| 甘南县| 华坪县| 甘南县| 山阴县| 信阳市| 罗山县| 工布江达县| 潢川县| 罗源县| 库车县| 惠来县| 金寨县| 淄博市| 张北县| 聊城市| 休宁县| 疏勒县| 改则县| 南充市| 临西县| 历史| 武乡县| 灵台县| 延庆县| 玉树县| 左贡县| 新龙县|