非常不错的列出sql服务器上所有数据库的asp代码
更新时间:2006年12月28日 00:00:00 作者:
主题:列出sql服务器上所有库的代码
第一个: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")
%>
<SELECT name="fdatabase">
<%
For Each objDB In srv.Databases
If objDB.SystemObject = False Then
%>
<OPTION><%=objDB.Name%></OPTION>
<%
End If
Next
%>
</select>
第一个: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")
%>
<SELECT name="fdatabase">
<%
For Each objDB In srv.Databases
If objDB.SystemObject = False Then
%>
<OPTION><%=objDB.Name%></OPTION>
<%
End If
Next
%>
</select>
相关文章
ASP运行出错:缺少对象: ''xmlDoc.documentElement''错误解决方法
ASP运行出错:缺少对象: 'xmlDoc.documentElement'错误解决方法,需要的朋友可以参考下2012-03-03
最新评论