トピック：SQL Serverのすべてのライブラリのコードをリストします
最初：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.database
ifobjdb.systemObject = falsethen
％>
<option> <％= objdb.Name％> </option>
<％
endif
次
％>
</select>