<%@ LANGUAGE=»VBScript» %>

<%
' Основная идея в том, чтобы проверить, является ли дата создания этого файла более поздней, 
' чем дата создания сжатого файла. 
' Если да, надо создать сжатый файл заново
' Если нет — то надо передавать клиенту существующий сжатый файл
Response.Buffer = TRUE
file=»test2»
file=CreateTempFile(file)	
compare=CompareModifyDate(file&».asp»,file&».gz»)
if CInt(compare)=1 then
	'Создание нового содержимого и компрессия данных
	'Здесь можно вставлять вызовы функции Write, с помощью которых 
	'формировать текст нашей «статической» страницы
	''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
	call Write(file,»Test»)
	color=»#d0fdc8»
	for i=0 to 1999
		if color=»#d0fdc8» then
			color=»#9ef988»
		else
			color=»#d0fdc8»
		end if
		call Write(file,»»)
 		call Write(file,»»)
 		call Write(file,»»)
 		call Write(file,»»)
	next
	call Write (file,»
Row «+CStr(i)+»»+CStr(2000-i)+»
») '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' 'Компрессия данных call Compress(file) end if 'Удаление промежуточного файла call DeleteFiles(file&».txt») 'Отправка сжатых данных call Send(file) %>

Поделитесь материалом с коллегами и друзьями