平常我们只听说过ado等一类asp对象，但在asp中还有个鲜为人知的专门sql server的asp访问对象,它就是sqlole.sqlserver对象。sqlole.sqlserver可以直接访问sql server的系统属性。以set osqlserver = createobject ("sqlole.sqlserver")语句将产生一个sql server服务器对象。
---- 若要查看此服务器中数据库的集合，可用语句：



for each sqldb in osqlserver.databases
response.write sqldb.name ‘将列出所有的数据库，如pubs等
next

---- 若要查看某数据库中(如pubs数据库)数据表的集合，可用语句：



pubdatabase=osqlserver.databases(“pubs”)
’osqlserver是前面创建的sql server服务器对象
for each dbtable in pubdatabase.tables
response.write dbtable.name
next

---- 下面的语句将列出数据库中(pubs数据库)数据视图



pubdatabase =osqlserver.databases(“pubs”)
’osqlserver是前面创建的sql server服务器对象
for each dbview in pubdatabase.views
response.write dbview.text
next

---- 以下语句将列出数据库中(pubs数据库)存贮过程



pubdatabase =osqlserver.databases(“pubs”)
’osqlserver是前面创建的sql server服务器对象
for each dbsp in pubdatabase.storedprocedures
response.write dbsp.text
next

---- 程序运行的结果（取数据表名）：

---- 取存贮过程的结果：

---- 一个完整的小例子源码附后（其它功能读者可加入）。



< %@ language = vbscript % >

< html >
< head >
< meta name="generator" content=
"microsoft developer studio" >
< meta http-equiv="content-type"
content="text/html; charset=gb2312" >

< title >< /title >
< /head >

< %
on error resume next
dim osqlserver
set osqlserver = createobject ("sqlole.sqlserver")


strserver = "dep"
strlogin = "sa"
strpwd = ""


osqlserver.connect strserver,strlogin,strpwd



% >


< body bgcolor=#ffffff >
数据库列表
< select name="database" >
< %
for each sqldb in osqlserver.databases
if not sqldb.systemobject then
response.write "< option value=
""" & sqldb.name & """ >" & sqldb.name

& " "
end if
next
set osqlserver = nothing
% >
< /select >
< /body >
< /html >



文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!