WebClub - Всероссийский Клуб Веб-разработчиков
WebClub.RU » Архив » Азы ADO и ASP 3

Азы ADO и ASP 3


Дата публикации: 17-03-2013

Листинг 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>

Популярное

Не так давно в сети появился новый сервис, под названием Dead Man Zero. Этот сервис сделал...
Рынок социальных площадок уже давно стал стабильным. Несмотря на то, что время от времени...
Artisteer 4 – единственный в своем роде продукт, позволяющий автоматизировать работу над созданием...
Март 2017 (1)
Февраль 2017 (3)
Январь 2017 (1)
Август 2016 (1)
Май 2016 (2)
Ноябрь 2015 (1)

Карта сайта: 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41

Друзья сайта

Хотите продать свой сайт?
- Мы быстро и удобно для Вас сможем его купить:
  • Заявка на продажу сайта
  • Раcсматриваем цены на каждый сайт в индивидуальном порядке.

    Случайная цитата

    Неизвестный автор:

    "Жизнь – как сидение в интернете: смысла нет, а уходить не хочется."

    Опрос

    Какой антивирус Вы используете?

    Kaspersky Antivirus
    NOD32
    Norton Antivirus
    Dr.Web
    Panda
    Аvast!
    ClamWin
    Другой...