Мир объектов Excel 2000



              

Код, исполняемый на сервере


Давайте, вначале рассмотрим код, исполняемый на стороне сервера. Это логично, поскольку он выполняется первым и от его результатов, зачастую, зависит содержание страницы, поступающей клиенту. Приведу вначале декларативную часть кода, содержащую описание глобальных переменных, описание используемых процедур и функций:

<SCRIPT LANGUAGE=vbscript RUNAT=Server> '********************************************************** '** Объявления глобальных переменных, процедур и функций ** '************ на серверной стороне ************************ 'Задание объектов ADODB - Connection, Command, Recordset Dim Con1 'Объект ADODB, задающий соединение Dim Cmd1 'Объект ADODB, задающий команду Dim Rst1 'Объект ADODB, задающий набор записей

Sub CreateConnection() 'Создание соединения с тестовой базой данных Access Dim strConnStr 'Строка соединения If Con1.State <> 1 Then strConnStr="Provider=Microsoft.jet.oledb.4.0; " & _ "Data Source =c:\Ch20\dbPP2000.mdb" Con1.Open strConnStr End If End Sub 'CreateConnection Sub CreateRstBooks() 'Создание набора записей по данным хранимого запроса With Cmd1 .ActiveConnection = Con1 .CommandText = "Select * From [список книг]" .CommandType = 1 'adCmdText Set Rst1 =.Execute End With End Sub 'CreateRstBooks Sub CreateOptions() 'Програмное создание списка SelectBook 'Заполнение элементов этого списка по данным набора записей Dim str1 'Строковая переменная - автор и название книги Dim str2,str3,str4 'Строковые константы str2 = "<OPTION value = """ str3= """>" str4="</OPTION>" With Rst1 'Проход по набору записей и формирование элементов списка .MoveFirst 'Создание элемента SelectBook Response.Write("<Select id=""SelectBook""" & _ "Style= ""position:absolute; top:100; left:170"" > ") Do While Not .EOF str1 = Rst1("Автор") & ": " & Rst1("Название") Response.Write(str2 & str1 & str3 & str1 & str4) .MoveNext Loop Response.Write("</SELECT>") End With End Sub 'CreateOptions </SCRIPT>




Содержание  Назад  Вперед