非常不错的列出sql服务器上所有数据库的asp代码

主题:列出sql服务器上所有库的代码

第一个：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.Databases

IfobjDB.SystemObject=FalseThen

%>

<OPTION><%=objDB.Name%></OPTION>

<%

EndIf

Next

%>

</select>