<%dim oserver
set oserver=createobject("sqlole.server")
oserver.connect "server","login","username"
for each sqldb in oserver.database
response.write sqldb.name
next
%>

错误类型：
Microsoft VBScript 运行时错误 (0x800A01AD)
ActiveX 部件不能创建对象: 'sqlole.server'
/2.asp, 第 4 行