Об'єкт Recordset і текстові файли (ASP)

Христофоров Юрій

У цій статті мова піде про побудову об'єкта Recordset на основі інформації з текстового файлу. Стикаючись з завданням подання даних з текстових файлів (з підтримкою сортувань з кількох полям, розбиванням набору даних по сторінках) виникає питання: як вирішити дану задачу найпростіше? Перший варіант рішення - використання масивів. Другий варіант, про який і піде мова, - створення об'єкта Recordset і подальша робота з ним.

Постановка завдання:

Є текстовий файл (country.txt), який являє собою набір записів види: Країна, Столиця. Необхідно вивести посторінково (5 записів на сторінку) у вигляді HTML таблиці вміст цього файлу з сортуванням по полю Країна.

ASP-скрипт, який здійснює цей висновок:        

<%   option explicit   

Response.Expires   = 0   

Dim   fs, fd, buffer, rs, arrTxT, Page, i, nPages   

'створюємо об'єкт Recordset   

Set   rs = Server.CreateObject ( "ADODB.Recordset")   

rs.Fields.Append   "Країна", 200, 255   

rs.Fields.Append   "Столиця", 200, 255   

rs.Open   

Set   fs = Server.CreateObject ( "Scripting.FileSystemObject")   

Set   fd = fs.OpenTextFile (Server.MapPath ( "country.txt"), 1)   

'порядково зчитуємо вміст файлу   

Do While (Not fd.AtEndOfStream)   

'додаємо рядок   

rs.AddNew   

buffer = fd.ReadLine   

arrTxT   = Split (CStr (buffer), ",")   

rs ( "Країна") = arrTxT (0)   

rs ( "Столиця") = arrTxT (1)   

rs.Update   

Loop      

Set fs = Nothing   

'сортуємо по полю Країна   

rs.Sort = "Країна"   

'по 5 записів на сторінку   

rs.PageSize   = 5   

if   Request.QueryString ( "Page") <> "" then   

Page   = CInt (Request.QueryString ( "Page "))   

else   

Page = 1   

end   if   

If   rs.PageCount> 0 Then   

rs.AbsolutePage   = Page   

Else   

Page   = 0   

End   If   

Response.Write   "

"   

Response.Write   "

"   

Response.Write   "

Країна "    Response.Write   "	Столиця "    i =   0    'власне висновок    Do   While (Not rs.EOF) And (i    Response.Write   "
" & rs ( "Країна") & ""    Response.Write   "	" & rs ( "Столиця") & ""    Response.Write   ""    rs.MoveNext    i =   i + 1    Loop    nPages = rs.PageCount    'панель навігації по сторінках    If   nPages> 1 then    Response.Write   "
"    If   Page <> 1 then    Response.Write   "< "    Else    Response.Write   "<"    End   If    For   i = 1 to nPages    If i   = 1 then    Response.Write   "|"    End   If    If i   = Page then    Response.Write   i & "|"    Else    Response.Write   "" & i   & " |"    End   If    Next    If   Page <> nPages then    Response.Write   "> "    Else    Response.Write   ">"    End   If    Response.Write   " "    End   If    Response.Write   ""    rs.Close    Set   rs = Nothing    %>      Приклад роботи скрипта: Список літератури Для підготовки даної роботи були використані матеріали з сайту http://www.activex.net.ru/