Lista muito boa de código ASP para todos os bancos de dados no SQL Server

Tópico: Liste o código de todas as bibliotecas no servidor SQL

Primeiro: a permissão DBO lista todos os bancos de dados no servidor

A cópia do código é a seguinte:

<%

Dimsrv

Dimobjdb

Setsrv = server.createObject ("sqldmo.sqlserver")

srv.logntimeout = 15

srv.connect "127.0.0.1", "LCX", "LCX"

Setobjdb = server.createObject ("sqldmo.database")

%>

<SelectName = "fdatabase">

<%

Foreachobjdbinsrv.databases

Ifobjdb.systemObject = falsethen

%>

<pption> <%= objdb.name%> </pption>

<%

Endif

Próximo

%>

</leclect>