ASP常用函数:XMLEncode_ASP基础

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

时间： 2024-12-02 06:08:03

ASP常用函数:XMLEncode_ASP基础的相关文章

ASP常用函数:ReplaceHTML_ASP基础

<% '去掉HTML标记 Public Function ReplaceHTML(Textstr)     Dim Str, re     Str = Textstr     Set re = New RegExp     re.IgnoreCase = True     re.Global = True     re.Pattern = "<(.[^>]*)>"     Str = re.Replace(Str, "")     Set R

ASP常用函数:ArrayToxml_ASP基础

<% Public Function ArrayToxml(DataArray, Recordset, row, xmlroot)     Dim i, node, rs, j     If xmlroot = "" Then xmlroot = "xml"     Set ArrayToxml = Server.CreateObject("msxml2.FreeThreadedDOMDocument"& MsxmlVersion)

[转]ASP常用函数:TimeZone_ASP基础

功能:获取服务器所在时区 复制代码 代码如下: <%  Function TimeZone()      Set oShell = CreateObject("WScript.Shell")      atb = "HKEY_LOCAL_MACHINE\System\CurrentControlSet\" & _           "Control\TimeZoneInformation\ActiveTimeBias"      

ASP常用函数:HTMLDecode_ASP基础

<% Function HTMLDecode(sText)     Dim I     sText = Replace(sText, "&" , Chr(38))     sText = Replace(sText, """", Chr(34))     sText = Replace(sText, "<" , Chr(60))     sText = Replace(sText, ">&q

ASP常用函数收藏乱七八糟未整理版_ASP基础

<% '******************************************************************* '取得IP地址 '******************************************************************* Function Userip()     Dim GetClientIP     '如果客户端用了代理服务器,则应该用ServerVariables("HTTP_X_FORWARDED_FOR&

ASP常用函数:Delay()_ASP基础

代码很短,但是很经典,单位是秒,就是未测试过服务器资源消耗怎么样: <% Function Delay(s)     Dim t = Now()     While DateDiff("s", t, Now) < s     Wend End Function %> 转载自:http://jorkin.reallydo.com/article.asp?id=224

ASP常用函数:CStrIP()_ASP基础

作用:把长整型数字转为IP地址 <% Function CStrIP(ByVal anNewIP)     Dim lsResults     Dim lnTemp     Dim lnIndex     For lnIndex = 3 To 0 Step -1         lnTemp = Int(anNewIP / (256 ^ lnIndex))         lsResults = lsResults & lnTemp & "."         a

Asp.Net常用函数_基础应用

Abs(number) 取得数值的绝对值.    Asc(String) 取得字符串表达式的第一个字符ASCII 码.    Atn(number) 取得一个角度的反正切值.    CallByName (object, procname, usecalltype,[args()]) 执行一个对象的方法.设定或传回对象的属性.    CBool(expression) 转换表达式为Boolean 型态.    CByte(expression) 转换表达式为Byte 型态.    CChar(e

ASP常用函数:CLngIP()_ASP基础

作用:把IP地址转为长整型 <% Function CLngIP(ByVal asNewIP)     Dim lnResults     Dim lnIndex     Dim lnIpAry     lnIpAry = Split(asNewIP, ".", 4)     For lnIndex = 0 To 3         If Not lnIndex = 3 Then             lnIpAry(lnIndex) = lnIpAry(lnIndex) *