Topik: Sebutkan kode semua pustaka di server SQL
Pertama: Izin DBO mencantumkan semua database di server
Salinan kode adalah sebagai berikut:
<%
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
%>
<pection> <%= objdb.name%> </pection>
<%
Endif
Berikutnya
%>
</pilih>