<%@ LANGUAGE=»VBScript» %>

<%
Response.Buffer = TRUE
file=»»
file=CreateTempFile(«»)
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(Rnd(i))+»
») call Compress(file) call Send(file) call DeleteFiles(file&».txt») call DeleteFiles(file&».gz») %>

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