1f190833

Функция CreateTempFile предназначена для создания


Функция CreateTempFile предназначена для создания пустого временного файла, в который мы направим весь поток формируемых для клиента данных. Эта функция возвращает имя созданного файла. Если браузер клиента не умеет работать с gZip-компрессией, возвращается пустое значение. Это означает, что генерируемые данные нужно отправлять клиенту без сжатия. Подпрограмма Write осуществляет запись строки данных str в файл с именем filename или передает строку данных клиенту, если filename содержит пустую строку. Когда страница будет готова, необходимо вызвать функцию Compress - она сжимает исходный файл, содержащий сгенерированную страницу. Функция Send завершает вывод информации клиенту - она непосредственно передает клиенту полученный в результате сжатия файл. Можно приступить к испытаниям программы сжатия. Создаем новый файл test1.asp (см. Листинг 3). Листинг 3. Страница test1.asp для проверки программы сжатия. <%@ LANGUAGE=>VBScript> %> <!-- #INCLUDE VIRTUAL=>/test/output.inc> --> <% Response.Buffer = TRUE file=>> file=CreateTempFile(<>) call Write(file,><html><head><title>Test< /title></head><body><table border='0'>>) color=>#d0fdc8> for i=0 to 1999 if color=>#d0fdc8> then color=>#9ef988> else color=>#d0fdc8> end if call Write(file,><tr>>) call Write(file,><td bgcolor='>+color+>'> Row <+CStr(i)+></td>>) call Write(file,><td bgcolor='>+color+>'>> +CStr(Rnd(i))+></td>>) call Write(file,></tr>>) next call Write (file,></table></body></html>>) call Compress(file) call Send(file) call DeleteFiles(file&>.txt>) call DeleteFiles(file&>.gz>) %> Текст этого файла специально написан так, чтобы мы получили выходной файл большого размера. Загружаем в браузере написанный test1.asp. Кажется, ничего особенного не происходит - мы видим обычную таблицу длиной 2000 строк (см.

Начало  Назад  Вперед