Tema: enumere el código de todas las bibliotecas en el servidor SQL
Primero: el permiso de DBO enumera todas las bases de datos en el servidor
La copia del código es la siguiente:
<%
Dimsrv
Dimobjdb
SetSrv = server.createObject ("sqldmo.sqlserver")
srv.logInTimeOut = 15
srv.connect "127.0.0.1", "lcx", "lcx"
Setobjdb = server.createObject ("sqldmo.database")
%>
<SelectName = "fdatabase">
<%
Foreachobjdbinsrv.databases
Ifobjdb.systemObject = falsethen
%>
<Cection> <%= objdb.name%> </opción>
<%
Endif
Próximo
%>
</select>