Листинг 2. Извлечение информации из базы данных.

Dim objCommand,objRS,i 	 
 Set objRS=Server.CreateObject(«ADODB.Recordset») 
//создание объекта записи
 //строка соединения с базой данных
 strConnect= «Provider=SQLOLEDB; Data Sourse=db; 
Database=boss; User ID=» & Request.QueryString(«l») & 
«; Password=» & Request.QueryString(«p»)
 //открытие базы данных
 objRS.Open 
«boss_table»,strConnect,adOpenKeyset,adLockReadOnly,
adCmdTable
 //смещение курсора
 objRS.Move CInt(Request.QueryString(«shift»))
 //чтение записей в массив
 Fields=objRS.GetRows
 objRS.Close
 Set objRS=Nothing 
 //распределение данных
 For i=0 to 4
 //массив продаж
 data1(i+1)=CDbl(Fields(1,i))
 //массив платежей
 data2(i+1)=CDbl(Fields(2,i))
 //массив дней недели
 day_week(i+1)=Fields(3,i)
 next
 
 //сохранение диапазона вывода
 start_day=Fields(0,0)
 end_day=Fields(0,4)

назад