ASP常用函数:ArrayToxml

<%
Public Function ArrayToxml(DataArray, Recordset, row, xmlroot)
    Dim i, node, rs, j
    If xmlroot = "" Then xmlroot = "xml"
    Set ArrayToxml = Server.CreateObject("msxml2.FreeThreadedDOMDocument"& MsxmlVersion)
    ArrayToxml.appendChild(ArrayToxml.createElement(xmlroot))
    If row = "" Then row = "row"
    For i = 0 To UBound(DataArray, 2)
        Set Node = ArrayToxml.createNode(1, row, "")
        j = 0
        For Each rs in Recordset.Fields
            node.Attributes.setNamedItem(ArrayToxml.createNode(2, LCase(rs.Name), "")).text = DataArray(j, i)& ""
            j = j + 1
        Next
        ArrayToxml.documentElement.appendChild(Node)
    Next
End Function
%>

赞 (0)

相关推荐

  • ASP常用函数:ArrayToxml

    <% 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常用函数收藏乱七八糟未整理版

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

  • asp 常用函数用法

    Array()   FUNCTION: 返回一个数组   SYNTAX: Array(list)   ARGUMENTS: 字符,数字均可   EXAMPLE: <%   Dim myArray()   For i = 1 to 7   Redim Preserve myArray(i)   myArray(i) = WeekdayName(i)   Next   %>   RESULT: 建立了一个包含7个元素的数组myArray   myArray("Sunday",&

  • ASP常用函数:XMLEncode

    输出RSS和XML时经常用到,和HTMLEncode还不完全一样 原理: Character Converted To " " ' &apos; & & < < > > 代码<%Function XMLEncode(byVal sText)    sText = Replace(sText, "&" , "&")    sText = Replace(sText, "

  • ASP常用函数:Trace()

    复制代码 代码如下: <%  '//---- 输入字符串并结束当前页面(调试用),函数可以也命名为Debug  ----// Function Trace(s)      On Error Resume Next      Response.Write(s & vbCrLf)      Response.End()  End Function  %> 下面的是个修改升级版,还在测试中... 复制代码 代码如下: <%  '//---- 输入字符串并结束当前页面(调试用)  ---

  • ASP常用函数:Delay()

    代码很短,但是很经典,单位是秒,就是未测试过服务器资源消耗怎么样: <% 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()

    作用:把长整型数字转为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常用函数:ReplaceHTML

    <% '去掉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常用函数:HTMLDecode

    <% 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常用函数:TimeZone

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

随机推荐