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
%>
相关推荐
-
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 " " ' ' & & < < > > 代码<%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"
随机推荐
- python使用Flask框架获取用户IP地址的方法
- 深入理解JavaScript系列(3) 全面解析Module模式
- 漂亮实用的页面loading(加载)封装代码
- asp.net CommunityServer中的wwwStatus
- php+MySQL判断update语句是否执行成功的方法
- php smarty模板引擎的6个小技巧
- python通过pil模块将raw图片转换成png图片的方法
- bootstrap-treeview自定义双击事件实现方法
- js jquery ajax的几种用法总结(及优缺点介绍)
- 详解Java中的增强 for 循环 foreach
- 基于Android SQLite的升级详解
- SQL SERVER修改函数名容易引发的问题分析
- 用python + hadoop streaming 分布式编程(一) -- 原理介绍,样例程序与本地调试
- js表单事件详细汇总
- spring boot整合spring-kafka实现发送接收消息实例代码
- 一个简易需要注册的留言版程序
- Android快速开发之定制BaseTemplate
- 基于Android在布局中动态添加view的两种方法(总结)
- 基于list循环删除元素,迭代器失效的问题详解
- Express进阶之log4js实用入门指南