Sujet: Énumérez le code de toutes les bibliothèques du serveur SQL
Premièrement: la permission DBO répertorie toutes les bases de données du serveur
La copie de code est la suivante:
<%
Dimsrv
Dimobjdb
Setsrv = server.createObject ("sqldmo.sqlserver")
srv.logintimeout = 15
Srv.Connect "127.0.0.1", "LCX", "LCX"
SetObjdb = server.createObject ("sqldmo.database")
%>
<lectName = "fdatabase">
<%
Foreachobjdbinsrv.databases
IfoBjdb.SystemObject = falsethhen
%>
<poption> <% = objdb.name%> </ option>
<%
Endire
Suivant
%>
</lect>