الموضوع: سرد رمز جميع المكتبات على خادم SQL
أولاً: يسرد إذن DBO جميع قواعد البيانات على الخادم
نسخة الكود كما يلي:
<٪
DimSrv
Dimobjdb
setSrv = server.createBject ("sqldmo.sqlserver")
srv.logintimeout = 15
SRV.CONNECT "127.0.0.1" ، "LCX" ، "LCX"
setObjdb = server.createBject ("sqldmo.database")
٪>
<selectName = "fdatabase">
<٪
foreachobjdbinsrv.databases
ifobjdb.systemObject = falsethen
٪>
<Point> <٪ = objdb.name ٪> </portion>
<٪
Endif
التالي
٪>
</select>