это быстро и бесплатно
Оформите заказ сейчас и получите скидку 100 руб.!
Ознакомительный фрагмент работы:
Объект 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 "<table border = 1 width=200 bordercolor='#000000'>" Response.Write "<tr><td align=center bgcolor='#EEEEEE'><b>Страна</b></td>" Response.Write "<td align=center bgcolor='#EEEEEE'><b>Столица</b></td></tr>" i = 0 'собственновывод Do While (Not rs.EOF) And (i < rs.PageSize) Response.Write "<tr>" Response.Write "<td align=center>" & rs("Страна") & "</td>" Response.Write "<td align=center>" & rs("Столица") & "</td>" Response.Write "</tr>" rs.MoveNext i = i + 1 Loop nPages = rs.PageCount 'панель навигации по страницам If nPages > 1 then Response.Write "<tr><td colspan=2 align=center>" If Page <> 1 then Response.Write "<a href=""" & Request("script_name") & "?Page=" & Page - 1 & """><</a>" 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 "<a href=""" & Request("script_name") & "?Page=" & i & """>" & i & "</a> | " End If Next If Page <> nPages then Response.Write "<a href=""" & Request("script_name") & "?Page=" & Page + 1 & """>></a>" Else Response.Write ">" End If Response.Write "</td></tr>" End If Response.Write "</table>" rs.Close Set rs = Nothing %> |
Пример работы скрипта:
Сделайте индивидуальный заказ на нашем сервисе. Там эксперты помогают с учебой без посредников 
Разместите задание – сайт бесплатно отправит его исполнителя, и они предложат цены.
Цены ниже, чем в агентствах и у конкурентов
Вы работаете с экспертами напрямую. Поэтому стоимость работ приятно вас удивит
Бесплатные доработки и консультации
Исполнитель внесет нужные правки в работу по вашему требованию без доплат. Корректировки в максимально короткие сроки
Гарантируем возврат
Если работа вас не устроит – мы вернем 100% суммы заказа
Техподдержка 7 дней в неделю
Наши менеджеры всегда на связи и оперативно решат любую проблему
Строгий отбор экспертов
К работе допускаются только проверенные специалисты с высшим образованием. Проверяем диплом на оценки «хорошо» и «отлично»
Работы выполняют эксперты в своём деле. Они ценят свою репутацию, поэтому результат выполненной работы гарантирован 
Ежедневно эксперты готовы работать над 1000 заданиями. Контролируйте процесс написания работы в режиме онлайн 
Для электрической схемы, изображенной на рисунке
Решение задач, Электротехника и электроника
Срок сдачи к 4 июня
Оформить готовые материалы диплома для прохождения нормоконтроля и антиплагиата
Диплом, ПГС, Строительство
Срок сдачи к 5 июня
тема Гиподинамия: неблагоприятное влияние на организм студентов.
Реферат, Физкультура
Срок сдачи к 3 июня
Выполнить контрольное практическое задание и дать развернутые ответы
Контрольная, Основы судебно-экспертной деятельности
Срок сдачи к 9 июня
Сделать два реферата
Контрольная, Доказывание и доказательства по гражданским, административным делам и экономическим спорам
Срок сдачи к 9 июня
Поведенческая экономика. Исследование паттернов людей
Диплом, Поведенческая экономика
Срок сдачи к 1 сент.
Повышение мощности и экологических показателей дизельного двигателя внутреннего сгорания за счёт озонирования топливовоздушной смеси
ВКР, Тракторы и автомобили
Срок сдачи к 14 июня
Реклама и интегрированные коммуникции
Лабораторная, Информатика и основы информационно-коммуникационных технологий
Срок сдачи к 5 июня
Практическое задание
Другое, Информатика и основы информационно-коммуникационных технологий
Срок сдачи к 5 июня
Исправить недочеты в работе вкр. без нейросети!! самое важное!
Другое, Государственное и муниципальное управление
Срок сдачи к 4 июня
Тема: Современное состояние государственных финансов в России и проблемы их развития
Курсовая, Финансы
Срок сдачи к 7 июня
«Всё сдал!» — безопасный онлайн-сервис с проверенными экспертами
Используя «Свежую базу РГСР», вы принимаете пользовательское соглашение
и политику обработки персональных данных
Сайт работает по московскому времени:
Принимаем к оплате
© 2011—2026 Всё сдал!
Заполните форму и узнайте цену на индивидуальную работу!
Мы ВКонтакте 
Трейлер о сайте