第一个：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>
【说明】：本文章由站长整理发布，文章内容不代表本站观点，如文中有侵权行为，请与本站客服联系(QQ:)！