Обычно мы слышали только об одном типе объектов ASP, например ADO, но в ASP есть малоизвестный объект доступа ASP, специально предназначенный для SQL Server, а именно объект SQLOLE.SQLServer. SQLOLE.SQLServer может напрямую обращаться к системным свойствам SQL Server. Оператор Set oSQLServer = CreateObject («SQLOLE.SQLServer») создаст объект сервера SQL Server.
---- Чтобы просмотреть коллекцию баз данных на этом сервере, доступен оператор:
For Each SQLDB In oSQLServer.Databases.
Response.Write SQLDB.Name 'выведет список всех баз данных, таких как пабы и т. д.
Далее
---- Чтобы просмотреть коллекцию таблиц данных в базе данных (например, базе данных PUBS), вы можете использовать следующий оператор:
pubDatabase=oSQLServer.Databases("pubs")
'oSQLServer — это объект сервера SQL Server, созданный ранее
Для каждой таблицы DBTable в pubDatabase.Tables
Response.WriteDBTable.Name
Далее
---- Следующий оператор выведет список представлений данных в базе данных (база данных PUBS).
pubDatabase =oSQLServer.Databases("pubs")
'oSQLServer — это объект сервера SQL Server, созданный ранее
Для каждого DBView в pubDatabase.Views
Response.Write DBView.Text
Далее
---- Следующий оператор выведет список хранимых процедур в базе данных (база данных PUBS).
pubDatabase =oSQLServer.Databases("pubs")
'oSQLServer — это объект сервера SQL Server, созданный ранее
Для каждого DBSP в pubDatabase.StoredProcedures
Ответ.Запись DBSP.Text
Далее
---- Результат запуска программы (получить имя таблицы данных):
---- Получить результат сохраненного процесса:
---- Полный небольшой пример исходного кода прилагается (читалки с другими функциями могу добавить).
< %@ LANGUAGE = VBScript % >
< HTML >
<ГОЛОВКА>
<META NAME="GENERATOR" Content=
«Студия разработчиков Microsoft» >
< META HTTP-EQUIV="Тип контента"
content="text/html; charset=gb2312" >
< TITLE >< /TITLE >
</HEAD >
<%
При ошибке Возобновить Далее
Тусклый oSQLServer
Установите oSQLServer = CreateObject («SQLOLE.SQLServer»)
стрСервер = "деп"
стрЛогин = "са"
стрПвд = ""
oSQLServer.Connect strServer,strLogin,strPwd
%>
<BODY BGCOLOR=#ffffff>
Список баз данных
<ВЫБЕРИТЕ ИМЯ="База данных">
<%
Для каждой базы данных SQLDB в oSQLServer.Databases
Если не SQLDB.SystemObject Тогда
Response.Write "< ЗНАЧЕНИЕ ОПЦИИ =
""" & SQLDB.Name & """ >" & SQLDB.Name
& " "
Конец, если
Следующий
Установить oSQLServer = Ничего
%>
</ВЫБРАТЬ>
</ТЕЛО>
</HTML>