所属类别：Asp

文章作者：未知

特别推荐：免费发布信息 承包关键词~~抢爆了！^HOT!

平常我们只听说过ADO等一类ASP对象，但在ASP中还有个鲜为人知的专门SQL Server的ASP访问对象,它就是SQLOLE.SQLServer对象。SQLOLE.SQLServer可以直接访问SQL Server的系统属性。以Set oSQLServer = CreateObject ("SQLOLE.SQLServer")语句将产生一个SQL Server服务器对象。---- 若要查看此服务器中数据库的集合，可用语句：For Each SQLDB In oSQLServer.DatabasesResponse.Write SQLDB.Name ‘将列出所有的数据库，如Pubs等Next---- 若要查看某数据库中(如PUBS数据库)数据表的集合，可用语句：pubDatabase=oSQLServer.Databases(“pubs”)’oSQLServer是前面创建的SQL Server服务器对象For Each DBTable In pubDatabase.TablesResponse.Write DBTable.NameNext---- 下面的语句将列出数据库中(PUBS数据库)数据视图pubDatabase =oSQLServer.Databases(“pubs”)’oSQLServer是前面创建的SQL Server服务器对象For Each DBView In pubDatabase.ViewsResponse.Write DBView.TextNext---- 以下语句将列出数据库中(PUBS数据库)存贮过程pubDatabase =oSQLServer.Databases(“pubs”)’oSQLServer是前面创建的SQL Server服务器对象For Each DBSP In pubDatabase.StoredProceduresResponse.Write DBSP.TextNext---- 程序运行的结果（取数据表名）：---- 取存贮过程的结果：---- 一个完整的小例子源码附后（其它功能读者可加入）。< %@ 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 NextDim oSQLServerSet 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.DatabasesIf Not SQLDB.SystemObject ThenResponse.Write "< OPTION VALUE=""" & SQLDB.Name & """ >" & SQLDB.Name& " "End IfNextSet oSQLServer = Nothing% >< /SELECT >< /BODY >< /HTML >关闭本页

....