查看完整版本: 列出sql服务器上所有库的代码

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

dbo权限列出服务器上所有数据库

[code]<%
Dim srv
Dim objDB
Set srv = Server.CreateObject("SQLDMO.SQLServer")
srv.LoginTimeout = 15
srv.Connect "127.0.0.1", "sxaqw", "sxaqw"
Set objDB = Server.CreateObject("SQLDMO.Database")
%>
<SELECT name="fdatabase">
<%
For Each objDB In srv.Databases
If objDB.SystemObject = False Then
%>
<OPTION><%=objDB.Name%></OPTION>
<%
End If
Next
%>
</select>[/code]

干什么
打广告！

先下下来看一下好了，我顶一下