主题:列出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>

　　推荐阅读

　　用Asp如何实现防止网页频繁刷新？

<% dim RefreshIntervalTime RefreshIntervalTime = 3 '防止刷新的时间秒数，0表示不防止 If Not IsEmpty(Session(“visit“)) and isnumeric(Session(“visit“)) and int(RefreshIntervalTime) > 0 >>>详细阅读

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

地址：http://www.17bianji.com/kaifa2/ASP/32905.html

 1/2    1