Thema: Listen Sie den Code aller Bibliotheken auf dem SQL -Server auf
Erstens: DBO Berechtigte listet alle Datenbanken auf dem Server auf
Die Codekopie lautet wie folgt:
<%
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.databasen
IfObjdb.SystemObject = falsethen
%>
<option> <%= objdb.name%> </option>
<%
Endif
Nächste
%>
</select>