Тема: Перечислите код всех библиотек на сервере SQL
Во -первых: разрешение DBO перечисляет все базы данных на сервере
Кода -копия выглядит следующим образом:
<%
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
%>
<Опция> <%= objdb.name%> </option>
<%
Эндиф
Следующий
%>
</select>