如何列举Error的所有对象？

Dim i
Set conn=Server.CreateObject("ADODB.Connection")
conn.ConnectionString="Driver={Microsoft Access Driver (*.mdb)};DBQ=" _
&Server.Mappath("/source_asp")&"/property/aspxhome.com;"
conn.open 
if conn.errors.count>0 then
    response.write "噢,数据库连接出错了!"&"<br>"
for i =0 to conn.errors.count-1
    response.write conn.errors.item(i)&"<br>"
    next
else
    response.write "恭喜,数据库连接成功!"
end if 
conn.close
％>

Error对象的属性和方法：

1、Count属性：用来统计Errors集合的数目；

2、Clear方法：写法为Error.Clear，是用来清除Errors集合中的原有对象的，在统计新的Error对象时应该先使用此语句；

3、Item方法：用来指定特定的一个错误，语法为Error.Item(number)，其中number为一数字。

由于默认Item方法，所以Error(number)的写法与前面的写法是相同的。