Листинг 1. Применение объекта ADO Соединение
<%
Dim sServer
Dim sLoginID
Dim sPassword
Dim cn
‘ Получение информации и сервере и параметрах входа в
‘ систему
sServer = "myServer"
sLogin = "myID"
sPassword = "myPassword"
‘Создание объекта Соединение
Set cn = Server.CreateObject("ADODB.Connection")
‘Открытие соединения; строка относится к DSN
cn.ConnectionString = "DRIVER=SQL Server" & _
";SERVER=" & sServer & _
";UID=" & sLoginID & _
";PWD=" & sPassword & _
";DATABASE=pubs"
cn.Open
%>
Листинг 2. Использование объекта ADO Набор записей
<HEAD>
<H4>Simple ADO Query</H4>
<BODY>
<%
Dim sServer
Dim sLoginID
Dim sPassword
Dim cn
Dim rs
‘ Установка параметров сервера и входа в систему
sServer = "myServer"
sLoginID = "myID"
sPassword = "myPassword"
‘ Создание объекта Соединение
Set cn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
‘ Открытие соединения без DNS
cn.ConnectionString = "DRIVER=SQL Server" & _
";SERVER=" & sServer & _
";UID=" & sLoginID & _
";PWD=" & sPassword & _
";DATABASE=pubs"
cn.Open
‘ Установление ассоциации Набора записей с открытым
‘ соединением
rs.ActiveConnection = cn
‘ Применение метода Открыть
rs.Open "Select * From stores", , , , adCmdText
%>
<TABLE CellPadding=1 CellSpacing=1 Cols=5>
<TBODY>
<TR VALIGN=top ALIGN=left>
<TH>StoreID</TH>
<TH>Name</TH>
<TH>Address</TH>
<TH>City</TH>
<TH>State</TH>
<TH>Zip</TH>
</TR>
`Callout A
<TBODY>
<%
Do Until rs.EOF
%>
`End Callout A
<TR VALIGN=top ALIGN=left>
<TD><%=rs.Fields("stor_id").Value%></TD>
<TD><%=rs.Fields("stor_name").Value%></TD>
<TD><%=rs.Fields("stor_address").Value%></TD>
<TD><%=rs.Fields("city").Value%></TD>
<TD><%=rs.Fields("state").Value%></TD>
<TD><%=rs.Fields("zip").Value%></TD>
</TR>
<%
rs.MoveNext
Loop
rs.Close
cn.Close
%>
</TABLE>
</BODY>
</HTML>
Листинг 3. Применение объекта ADO Набор записей для вставки строк
<% Option Explicit %>
<!--#include file="adovbs.inc"-->
<HTML>
<HEAD>
<H4>Данная страница создает таблицу подразделения и
вставляет в нее 50 строк, используя курсор Набора записей
ADO </H4>
</HEAD>
<BODY>
<HR>
<%
Dim cn
Dim rs
Dim fld
Dim sSQL
Dim i
Dim sServer
Dim sLoginID
Dim sPassword
‘ Установка параметров сервера и входа в систему
sServer = "myServer"
sLoginID = "myID"
sPassword = "myPassword"
‘ Создание объекта Соединение
Set cn = Server.CreateObject("ADODB.Connection")
‘ Открытие соединения без DSN
cn.ConnectionString = "DRIVER=SQL Server" & _
";SERVER=" & sServer & _
";UID=" & sLoginID & _
";PWD=" & sPassword & _
";DATABASE=pubs"
cn.Open
`Callout A
On Error Resume Next
`End Callout A
‘ Проверка того что таблица создана путем ее удаления
‘ Если таблица не существует, код перейдет к следующему
‘ оператору
sSQL = "Drop Table department"
cn.Execute sSQL
‘ Переустановка обработчика ошибок и создание таблицы
On Error GoTo 0
sSQL = "Create Table department " _
<P> & "(Dep_ID Integer Not Null, Dep_Name Char(25), Primary Key(Dep_ID))"</P>
cn.Execute sSQL
Set rs = Server.CreateObject("ADODB.Recordset")
‘ Передача с помощью SQL параметров: Соединение,
‘ тип курсора, тип блокировки, тип источника
rs.Open "Select Dep_ID, Dep_Name From department Where 1=2", _
cn, adOpenKeyset, adLockOptimistic, adCmdText
‘ Добавление 50 строк в таблицу подразделения
For i = 1 To 50
rs.AddNew
rs("Dep_ID").Value = i
rs("Dep_Name").Value = "Department " & CStr(i)
rs.Update
Next
‘ Показ новых строк в таблице
rs.MoveFirst
%>
<TABLE CellPadding=1 CellSpacing=1 Cols=2>
<TBODY>
<TR VALIGN=top ALIGN=left>
<%
For Each fld in rs.Fields
%>
<TH><%=fld.Name%></TH>
<%
Next
%>
</TR>
<%
Do Until rs.EOF
%>
<TR VALIGN=top ALIGN=left>
<%
For Each fld in rs.Fields
%>
<TD><%=fld.Value%></TD>
<%
Next
rs.MoveNext
%>
</TR>
<%
Loop
%>
</TABLE>
<%
rs.Close
%>
<HR>
</BODY>
</HTML>
Листинг 4. Обработка ошибок ASP и ADO
<HTML>
<HEAD>
<P><H4>This page demonstrates ASP error handling using the ADO Errors collection</H4></P>
</HEAD>
<BODY>
<HR>
<%
Dim cn
Dim rs
Dim er
Dim sServer
Dim sLoginID
Dim sPassword
‘ Установка параметров сервера и входа в систему
sServer = "myServer"
sLoginID = "myID"
sPassword = "myPassword"
‘ Создание объекта Соединение
Set cn = Server.CreateObject("ADODB.Connection")
‘ Открытие соединения без DSN
cn.ConnectionString = "DRIVER=SQL Server" & _
";SERVER=" & sServer & _
";UID=" & sLoginID & _
";PWD=" & sPassword & _
";DATABASE=pubs"
cn.Open
On Error Resume Next
Set rs = cn.Execute("Select * From no_such_table")
rs.Close
If cn.Errors.Count > 0 Then
For Each er In cn.Errors
Response.Write("Number: " & er.Number)
%>
<P></P>
<%
Response.Write("Source: " & er.Source)
%>
<P></P>
<%
Response.Write("Text: " & er.Description)
Next
End If
%>
<HR>
</BODY>
</HTML>