GetRows()方法是将数据从 Recordset 复制到二维数组中，这是一个二维数组，第一个下标标识字段，第二个则标识记录号
Webjx.Com
所以rsArray = rs.GetRows()
rsArray(0, 0)就表示记录集第一行的第一字段值
rsArray(1, 0)就表示记录集第一行的第二字段值
网页教学网
数组的数据是保存在内存中的，这就从根本上解决了每次显示记录还需向数据库请求的麻烦
参考:关于GetRows()的详细介绍和用法
GetRows 方法
将 Recordset 对象的多个记录恢复到数组中。
网页教学网
语法
array = recordset.GetRows( Rows, Start, Fields )
网页教学网
返回值
返回二维数组。 网页教学网
参数
网页教学网
Rows 可选，长整型表达式，指定要检索记录数。默认值为 adGetRowsRest (-1)。 网页教学网
Start 可选，字符串或长整型，计算得到在 GetRows 操作开始处的记录的书签。也可使用下列 BookmarkEnum 值。 Webjx.Com
常量 　　　　　　　　　　　　说明
AdBookmarkCurrent 　　从当前记录开始。
AdBookmarkFirst 　　　　从首记录开始。
AdBookmarkLast 　　　　从尾记录开始。
Fields 可选，变体型，代表单个字段名、顺序位置、字段名数组或顺序位置号。ADO 仅返回这些字段中的数据。
说明
使用 GetRows 方法可将记录从 Recordset 复制到二维数组中。第一个下标标识字段，第二个则标识记录号。当 GetRows 方法返回数据时数组变量将自动调整到正确大小。
如果不指定 Rows 参数的值，GetRows 方法将自动检索 Recordset 对象中的所有记录。如果请求的记录比可用记录多，则 GetRows 仅返回可用记录数。
Webjx.Com
如果 Recordset 对象支持书签，则可以通过传送该记录的 Bookmark 属性值，来指定 GetRows 方法将从哪个记录开始检索数据。
如要限制 GetRows 调用返回的字段，则可以在 Fields 参数中传送单个字段名/编号或者字段名/编号数组。 网页教学网
在调用 GetRows 后，下一个未读取的记录成为当前记录，或者如果没有更多的记录，则 EOF 属性设置为 True。

发不上代码来，点击下载吧。 点击下载此文件
上面的代码可以说是一个ASP读取XML文件的基本流程，一般的用这个也就够了。下面看一个例子来说明ASP如何读写XML文件以及ASP读写XML的具体用法，一篇从网上来的文章，原文如下：
在此之前，我写了两篇关于ASP结合XML的贴子，分别介绍了用XML取代数据库和用XML整合数据库这两方面的技术，让数据库在某种情况下不再是我们的唯一选择。而XML跟传统数据库相比，更有以下优点：更小的文件体积，更灵活的数据存贮，更方便的文件读写（因为XML是文本文件，所以无需专门的软件制作和维护），而且XML技术也是网络发展的大势所趋（从.NET对XML全面的支持便可见一斑了）。如果有兴趣的话，让我们一起来写一些自己的Function，来更方便和直观地读写XML。
乍一看，XML跟HTML的格式非常相似，的确，因为它们都是衍生自SGML，基本数据也都是由首标签，尾标签，注释标签和一些普通文本组成。但XML在语法上比HTML要求更严格，稍有不慎，你的XML便会犯上语法错误，导致无法读取其中数据。比如，在HTML中，我们把写成是完全没问题的，但XML中这样就绝对不行，XML要求标记的属性必须用单引号或双引号引起来。至于如何写一个合法的XML文件，我在前两篇中都有叙说，大家可以搜索出来看几眼，这里也就不多写，下面给出一个合法的XML文件的例子，也是接下来我们要用到的。
================================================================= songlist.xml


<歌曲列表>
<歌曲 歌名="Yesterday" 时间="1:53" 分级="5"/>
<歌曲 歌名="Imagine" 时间="3:04" 分级="5"/>
<歌曲 歌名="All You Need Is Love" 时间="3:52" 分级="4"/>
<歌曲>
<歌名>Come Together
<时间>4:18
<分级>4

<歌曲 演唱者="约翰列侬">
<歌名>Oh My Love
<时间>2:44
<分级>5

<最后一次修改 修改人="" 时间="">无修改内容<最后一次修改>

================================================================================
这个例子应该可以充分展现XML比数据库更灵活的一面，虽然每一条记录都是存贮一首歌的歌名，时间，分级这三项信息，但我们有多种存贮方法可选，既可以把数据放在标记的属性里，也可以把数据放到下一级标记里显示，像上例那样，两者共存也没问题。同时，XML也没有规定当你第一条记录有多少列时，你第二条记录也一定要有那么列，就上例而言，我们完全可以再加一条歌曲记录，只指定歌名和时间而不分级。至于每一条记录的标签（如1-5条中的”歌曲”），可以重复也可以不同，你看，我就在最后加了一个完全与前面不同的”最后一次修改”标签。总之，XML在要求语法合法的同时也给了开发人员充足的自由，以前在数据库里要用几个表才能记录的事，我们现在可以通通放在一个XML中了。下面，我一步一步来演示如何读写其中的任何一个元素。

函数RND（）是一个非常重要的函数。如果你想建立一个随机的问候语，一个日期的随机提示，或者甚至一个游戏，你将要使用这个函数。powered by 25175.net
函数RND（）返回一个0到1之间的随机数。这里有这个函数的一个例子及其可能的返回值：
<%=RND()%>
0.7055643
典型情况下，你更感兴趣的是用这个函数来返回处在一定范围内的整数。要返回一个大于等于0而小于某个特定整数的数字，你可以使用如下的语句：
<%=INT((upperbound+1)*RND)%>
用你想产生的最大随机数代替表达式upperbound。例如，下面的脚本返回一个0和5之间的数，包括0和5：
<%=INT(5+1)*RND)%>
如果你想产生一个处在某个范围内的随机数，该范围有一个大于0的下界，可以使用如下的脚本：
<%=INT((upperbound – lowerbound + 1)*RND+lowerbound)%>
例如，下面的脚本产生一个50到75之间的随机数（包括50和75）：
<%=INT((75-50+1)*RND+50)%>
无论何时使用函数RND（），它将以同样的顺序返回同样的随机数，这也许另你吃惊。考虑如下的例子：
<%
Pick_Greeting=INT((2+1)*RND)
Select CASE Pick_Greeting
CASE 0
Greeting=”Welcome!”
CASE 1
Greeting=”Hello!”
CASE 2
Greeting=”Happy to see you!”
END Select
%>
<%=Greeting%>
这个脚本建立并打印一个随机的问候语。但是，它有可能并不按你想象的方式工作。无论何时有人下载了包含这段脚本的网页，将有同样的随机问候语被打印。如果有人多次回到这个网页，他或她将得到同样的问候。一个随机数产生了，但是每次都是同样的随机数。
有一个特殊的语句可以帮助解决这个问题。RANDOMIZE语句用来强制函数RND（）使用一个新的随机数序列。RANDOMIZE语句通过计算机的系统计时器，为函数RND（）提供一个新的种子值。下面的例子显示了如何修改上面的例子，使其正确工作：
<%
RANDOMIZE
Pick_Greeting=INT((2+1)*RND)
Select CASE Pick_Greeting
CASE 0
Greeting=”Welcome!”
CASE 1
Greeting=”Hello!”
CASE 2
Greeting=”Happy to see you!”
END Select
%>
<%=Greeting%>
这个脚本可以正确工作。每次执行这个脚本时，将会产生一个新的随机问候。RANDOMIZE语句强制函数RND（）使用新的随机数序列。
最后，如果你对函数RND（）所产生的数值的分布感到好奇，你可以用下面的脚本来确定它：
<%
CONST upperbound=9,iterations=100
REDIM DIST(upperbound)
RANDOMIZE
FOR i=1 to iterations
rnd_num=INT（(upperbound+1)*RND)
DIST(rnd_num)=DIST(rnd_num)&”#”
NEXT
FOR i=0 to upperbound
%>
<%=i&” : “&DIST(i)%>

<%
NEXT
%>
这段脚本在0到9之间产生100个随机数。它跟踪对于每一个值有多少个随机数产生。最后，它打印一个代表结果的条形图。

JMAIL邮件发邮件的代码具体的注解，并举几个简单的例子：
首先是jmail.smtpmail的核心代码：
< %
Set jmail = Server.CreateObject("JMAIL.SMTPMail") '创建一个JMAIL对象
jmail.silent = true 'JMAIL不会抛出例外错误，返回的值为FALSE跟TRUE
jmail.logging = true '启用使用日志
jmail.Charset = "GB2312" '邮件文字的代码为简体中文
jmail.ContentType = "text/html" '邮件的格式为HTML的
jmail.ServerAddress = "Server Address" '发送邮件的服务器
jmail.AddRecipient Email '邮件的收件人
jmail.SenderName = "SenderName" '邮件发送者的姓名
jmail.Sender = "Email Address" '邮件发送者的邮件地址
jmail.Priority = 1 '邮件的紧急程序，1 为最快，5 为最慢， 3 为默认值
jmail.Subject = "Mail Subject" '邮件的标题
jmail.Body = "Mail Body" '邮件的内容
jmail.AddRecipientBCC Email '密件收件人的地址
jmail.AddRecipientCC Email '邮件抄送者的地址
jmail.Execute() '执行邮件发送
jmail.Close '关闭邮件对象
w3Jmail4.3组件重新设计了其内部结构——使用Message对象代替原来的单一对象
Jmail.smtpmail发送邮件，有些方法需要身份验证的(如163、yahoo等)，可以用下面的方法解决：
< %
Set jmail = Server.CreateObject("JMAIL.Message") '建立发送邮件的对象
jmail.silent = true '屏蔽例外错误，返回FALSE跟TRUE两值
jmail.logging = true '启用邮件日志
jmail.Charset = "GB2312" '邮件的文字编码为国标
jmail.ContentType = "text/html" '邮件的格式为HTML格式
jmail.AddRecipient Email '邮件收件人的地址
jmail.From = "Email From for Sender" '发件人的E-MAIL地址
jmail.MailServerUserName = "UserName of Email" '登录邮件服务器所需的用户名
jmail.MailServerPassword = "Password of Email" '登录邮件服务器所需的密码
jmail.Subject = "Mail Subject" '邮件的标题
jmail.Body = "Mail Body" '邮件的内容
jmail.Prority = 1 '邮件的紧急程序，1 为最快，5 为最慢， 3 为默认值
jmail.Send("Server Address") '执行邮件发送（通过邮件服务器地址）
jmail.Close() '关闭对象 迪拜进出口贸易：uaedubaitrade.com
% >
或
< %
Set msg = Server.CreateObject("JMail.Message")
msg.silent = true
msg.Logging = true
msg.Charset = "gb2312"
msg.MailServerUserName = "..." '输入smtp服务器验证登陆名
msg.MailServerPassword = "..." '输入smtp服务器验证密码
msg.From = "...@...", 发件人email
msg.FromName = FromName '发件人姓名
msg.AddRecipient "...@...","...@..." '收件人email
msg.Subject = "test" '主题
msg.Body = "this is body!" '正文
msg.Send ("smtp Server Name") 'smtp服务器地址
Set msg = nothing
% >
或
< %
dim JMail
set JMail=server.CreateObject("Jmail.message")
JMail.Silent=true
JMail.Charset = "gb2312"
JMail.FromName = fromname
JMail.from = frommail
JMail.AddRecipient tomail,toname
JMail.Subject = mailtitle
jmail.Body=mailbody
JMail.MailServerUserName = mailserverloginname
JMail.MailServerPassWord = mailserverloginpass
JMail.MailDomain = mailuserdomain
sendok=JMail.send(mailserver)
if sendok then
send_mail="ok"
else
send_mail="err"
end if
% >
写程序，一般情况下都是说要代码模块化，这样方便维护，同时也方便移植。因此，我在这里将这个发邮件的写成一个子程，在调用的时候可以直接调用（当然，如果你高兴写成函数的话也是可以的，这个主要是看个人兴趣）：
< %
'参数说明
'Subject : 邮件标题
'MailAddress : 发件服务器的地址,如smtp.163.com
'Email : 收件人邮件地址
'Sender : 发件人姓名
'Content : 邮件内容
'Fromer : 发件人的邮件地址
Sub SendAction(subject, mailaddress, email, sender, content, fromer)
Set jmail = Server.CreateObject("JMAIL.SMTPMail") '创建一个JMAIL对象
jmail.silent = true 'JMAIL不会抛出例外错误，返回的值为FALSE跟TRUE
jmail.logging = true '启用使用日志
jmail.Charset = "GB2312" '邮件文字的代码为简体中文
jmail.ContentType = "text/html" '邮件的格式为HTML的
jmail.ServerAddress = mailaddress '发送邮件的服务器
jmail.AddRecipient Email '邮件的收件人
jmail.SenderName = sender '邮件发送者的姓名
jmail.Sender = fromer '邮件发送者的邮件地址
jmail.Priority = 1 '邮件的紧急程序，1 为最快，5 为最慢， 3 为默认值
jmail.Subject = subject '邮件的标题
jmail.Body = content '邮件的内容
'由于没有用到密抄跟抄送，这里屏蔽掉这两句，如果您有需要的话，可以在这里恢复
'jmail.AddRecipientBCC Email '密件收件人的地址
'jmail.AddRecipientCC Email '邮件抄送者的地址
jmail.Execute() '执行邮件发送
jmail.Close '关闭邮件对象
End Sub
'调用此Sub的例子
Dim strSubject,strEmail,strMailAdress,strSender,strContent,strFromer
strSubject = "这是一封用JMAIL发送的测试邮件"
strContent = "JMail组件发送测试成功！"
strEmail = "inter@18inter.com"
strFromer = "inter1@18inter.com"
strMailAddress = "mail.18inter.com"
Call SendAction (strSubject,strMailaddress,strEmail,strSender,strContent,strFromer)
% >
jmail主要参数
（1）Body（信件正文） : 字符串
如：JMail.Body = “这里可以是用户填写的表单内容，可以取自From。”
（2）Charset（字符集，缺省为”US-ASCII”） : 字符串
如：JMail.Charset = “US-ASCII”
（3）Content

DateValue 函数
返回 Date 子类型的 Variant。
DateValue(date)
date 参数应是字符串表达式，表示从 100 年 1 月 1 日到 9999 年 12 月 31 日中的一个日期。但是，date 也可以是表示上述范围内的日期、时间或日期时间混合的任意表达式。
说明
如果 date 参数包含时间信息，则 DateValue 不会返回时间信息。但是如果 date 包含无效的时间信息（如 “89:98″），就会出现错误。
如果 date 是某一字符串，其中仅包含由有效的日期分隔符分隔开的数字，则 DateValue 将会根据为系统指定的短日期格式识别月、日和年的顺序。DateValue 还会识别包含月份名称（无论是全名还是缩写）的明确日期。例如，除了能够识别 12/30/1991 和 12/30/91 之外，DateValue 还能识别 December 30, 1991 和 Dec 30, 1991。
如果省略了 date 的年份部分，DateValue 将使用计算机系统日期中的当前年份。
下面的示例利用 DateValue 函数将字符串转化成日期。也可以利用日期文字直接将日期分配给 Variant 变量， 例如， MyDate = #9/11/63#.
Dim MyDate
MyDate = DateValue(“September 11, 1963″) ' 返回日期。

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%Session.CodePage=936%>
指定输出的内容是GB2312编码的。
936是GB2312编码，UTF-8则是65001。
在asp文件头(放在文件尾也可以)加一句<%Session.CodePage=65001%>，即可输出UTF-8编码的内容了。

Function LoseHtml(ContentStr)
Dim ClsTempLoseStr,regEx
ClsTempLoseStr = Cstr(ContentStr)
Set regEx = New RegExp
regEx.Pattern = “<\/*[^<>]*>”
regEx.IgnoreCase = True
regEx.Global = True
ClsTempLoseStr = regEx.Replace(ClsTempLoseStr,”")
LoseHtml = ClsTempLoseStr
End function

1. 对应SQL Server的 CharIndex 函数
InStr
举例：select instr('asasdfasdf', 'fa')
返回值为6.
2. 对应SQL Server的SubString函数
MID
举例：Select MID('ABCDEFG', 2, 3)
返回值为BCD
3. 类型转换
每个函数都可以强制将一个表达式转换成某种特定数据类型。
语法
CBool(expression)
CByte(expression)
CCur(expression)
CDate(expression)
CDbl(expression)
CDec(expression)
CInt(expression)
CLng(expression)
CSng(expression)
CStr(expression)
CVar(expression)
CStr(expression)
必要的 expression 参数可以是任何字符串表达式或数值表达式。
返回类型
函数名称决定返回类型，如下所示：
函数 返回类型 expression 参数范围
CBool Boolean 任何有效的字符串或数值表达式。
CByte Byte 0 至 255。
CCur Currency -922,337,203,685,477.5808 至922,337,203,685,477.5807。
CDate Date 任何有效的日期表达式。
CDbl Double 负数从 -1.79769313486231E308 至 -4.94065645841247E-324；正数从 4.94065645841247E-324 至 1.79769313486232E308。
CDec Decimal 零变比数值，即无小数位数值，为
+/-79,228,162,514,264,337,593,543,950,335。对于 28 位小数的数值，范围则为
+/-7.9228162514264337593543950335；最小的可能非零值是 0.0000000000000000000000000001。
CInt Integer -32,768 至 32,767，小数部分四舍五入。
CLng Long -2,147,483,648 至 2,147,483,647，小数部分四舍五入。
CSng Single 负数为 -3.402823E38 至 -1.401298E-45；正数为 1.401298E-45 至 3.402823E38。
CStr String 依据 expression 参数返回 Cstr。
CVar Variant 若为数值，则范围与 Double 相同；若不为数值，则范围与 String 相同。
说明
如果传递给函数的 expression 超过转换目标数据类型的范围，将发生错误。
通常，在编码时可以使用数据类型转换函数，来体现某些操作的结果应该表示为特定的数据类型，而不是缺省的数据类型。例如，当单精度、双精度或整数运算发生的情况下，使用 CCur 来强制执行货币运算。
应该使用数据类型转换函数来代替 Val，以使国际版的数据转换可以从一种数据类型转换为另一种。例如，当使用 Ccur 时，不同的小数点分隔符、千分位分隔符和各种货币选项，依据系统的区域设置都会被妥善识别。
当小数部分恰好为 0.5 时，Cint 和 CLng 函数会将它转换为最接近的偶数值。例如，0.5 转换为 0、1.5 转换为 2。Cint 和 CLng 函数不同于 Fix 和 Int 函数，Fix 和 Int 函数会将小数部分截断而不是四舍五入。并且 Fix 和 Int 函数总是返回与传入的数据类型相同的值。
使用 IsDate 函数，可判断 date 是否可以被转换为日期或时间。Cdate 可用来识别日期文字和时间文字，以及落入可接受的日期范围内的数值。当转换一个数字成为日期时，是将整数部分转换为日期，小数部分转换为从午夜起算的时间。
CDate 依据系统上的区域设置来决定日期的格式。如果提供的格式为不可识别的日期设置，则不能正确判断年、月、日的顺序。另外，长日期格式，若包含有星期的字符串，也不能被识别。
CVDate 函数也提供对早期 Visual Basic 版本的兼容性。CVDate 函数的语法与 CDate 函数是完全相同的，不过，CVDate 是返回一个 Variant，它的子类型是 Date，而不是实际的 Date 类型。因为现在已有真正的 Date 类型，所以 CVDate 也不再需要了。转换一个表达式成为 Date，再赋值给一个 Variant，也可以达到同样的效果。也可以使用这种技巧将其他真正的数据类型转换为对等的 Variant 子类型。
#############注意 CDec 函数不能返回独立的数据类型，而总是返回一个 Variant，它的值已经被转换为 Decimal 子类型

DATEDIFF 函数
功能
返回两个日期之间的间隔。
语法
DATEDIFF ( date-part, date-expression-1, date-expression-2 )
date-part :
year | quarter | month | week | day | hour | minute | second | millisecond
参数
date-part 指定要测量其间隔的日期部分。
有关日期部分的详细信息，请参见日期部分。
date-expression-1 某一间隔的起始日期。从 date-expression-2 中减去该值，返回两个参数之间 date-parts 的天数。
date-expression-2 某一间隔的结束日期。从该值中减去 Date-expression-1，返回两个参数之间 date-parts 的天数。
用法
此函数计算两个指定日期之间日期部分的数目。结果为日期部分中等于（date2 – date1）的有符号的整数值。
当结果不是日期部分的偶数倍时，DATEDIFF 将被截断而不是被舍入。
当使用 day 作为日期部分时，DATEDIFF 返回两个指定的时间之间（包括第二个日期但不包括第一个日期）的午夜数。
当使用 month 作为日期部分时，DATEDIFF 返回两个日期之间（包括第二个日期但不包括第一个日期）出现的月的第一天的数目。
当使用 week 作为日期部分时，DATEDIFF 返回两个日期（包括第二个日期但不包括第一个日期）之间星期日的数目。
对于更小的时间单位存在溢出值：
milliseconds 24 天
seconds 68 年
minutes 4083 年
others 没有溢出限制
如果超出这些限制，此函数将返回溢出错误。
标准和兼容性
SQL/92 Transact-SQL 扩展。
SQL/99 Transact-SQL 扩展。
Sybase 与 Adaptive Server Enterprise 兼容。
示例
下面的语句返回 1：
Select datediff( hour, '4:00AM', '5:50AM' )下面的语句返回 102：
Select datediff( month, '1987/05/02', '1995/11/15' )下面的语句返回 0：
Select datediff( day, '00:00', '23:59' )下面的语句返回 4：
Select datediff( day,
'1999/07/19 00:00',
'1999/07/23 23:59' )下面的语句返回 0：
Select datediff( month, '1999/07/19', '1999/07/23' )下面的语句返回 1：
Select datediff( month, '1999/07/19', '1999/08/23' )