非常不错的列出sql服务器上所有数据库的asp代码

主题:列出sql服务器上所有库的代码  
　 第一个：dbo权限列出服务器上所有数据库

<% 
dim srv 
dim objdb 
set srv = server.createobject("sqldmo.sqlserver") 
srv.logintimeout = 15 
srv.connect "127.0.0.1", "lcx", "lcx" 
set objdb = server.createobject("sqldmo.database") 
%> 
<select name="fdatabase"> 
<% 
for each objdb in srv.databases 
if objdb.systemobject = false then 
%> 
<option><%=objdb.name%></option> 
<% 
end if 
next 
%> 
</select>