主题:列出sql服务器上所有库的代码
第一个:dbo权限列出服务器上所有数据库
第一个:dbo权限列出服务器上所有数据库
代码如下:
<%
Dim srv
Dim objDB
Set srv = Server.CreateObject(“SQLDMO.SQLServer”)
srv.LoginTimeout = 15
srv.Connect “127.0.0.1”, “lcx”, “lcx”
Set objDB = Server.CreateObject(“SQLDMO.Database”)
%>
<%
For Each objDB In srv.Databases
If objDB.SystemObject = False Then
%>
<%
End If
Next
%>
Dim srv
Dim objDB
Set srv = Server.CreateObject(“SQLDMO.SQLServer”)
srv.LoginTimeout = 15
srv.Connect “127.0.0.1”, “lcx”, “lcx”
Set objDB = Server.CreateObject(“SQLDMO.Database”)
%>
<%
For Each objDB In srv.Databases
If objDB.SystemObject = False Then
%>
<%
End If
Next
%>
以上就是非常不错的列出sql服务器上所有数据库的asp代码的详细内容,更多来源gao@dai!ma.com搞$代^码网请关注gaodaima搞代码网其它相关文章!