非常不錯的列出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>