ASPCanvas2

ASPCanvas2

ASPCanvas — это средство создания изображений GIF на сервере на базе IIS/ASP без установки COM-объектов на стороне сервера или работы с Java на стороне клиента. Это чисто класс VBScript, который генерирует изображения GIF любого размера на сервере и передает их клиенту веб-браузера.

Быстрое использование

Рисуем круг.

<% Dim objCanvas Set objCanvas = New Canvas objCanvas.GlobalColourTable(0) = RGB(255,255,255) objCanvas.GlobalColourTable(1) = RGB(0,0,0) objCanvas.BackgroundColourIndex = 0 objCanvas.ForegroundColourIndex = 1 objCanvas.Resize 320,240,False objCanvas.Circle 160,120,110 objCanvas.Write %>">

 

<%
Dim objCanvas
Set objCanvas = New Canvas
objCanvas.GlobalColourTable(0) = RGB(255,255,255)
objCanvas.GlobalColourTable(1) = RGB(0,0,0)
objCanvas.BackgroundColourIndex = 0
objCanvas.ForegroundColourIndex = 1
objCanvas.Resize 320,240,False
objCanvas.Circle 160,120,110
objCanvas.Write
%>

Требования

Требования немного изменились по сравнению с версией 1.0.x к этой версии скрипта, поэтому будьте очень внимательны, прежде чем перезаписывать предыдущую версию.

• IIS 5.0 или выше
• VBScript 5.6 или выше
• MDAC 2.6 или выше

Все это важно, поскольку внутренние компоненты ASPCanvas изменились для использования потоков ADO.

Обратите внимание, что этот класс НЕ будет работать с пакетом ASP ChiliSoft.

Почему это здесь? Есть ли блестящие новинки?

Нет, ничего нового. Это здесь, потому что я получаю как минимум 1 запрос по этому поводу в неделю. Последний раз я добавлял что-либо в этот класс в 2002 году, когда разработчики Classic ASP начали переход на ASP.NET. Я думал, что это умрет от использования, но, как оказалось, ИТ-инфраструктуры некоторых учреждений попадают в категорию «Она не сломана, поэтому не чините ее». Этот сценарий не содержит реального алгоритма сжатия LZW, он просто увеличивает кодовую таблицу по двум причинам:

1. Это VBScript. В 2002 году это было медленно. Создание правильного сжатого GIF-файла любого размера в то время было за пределами возможностей сервера.
2. Unisys владела патентом LZW до 2003 года в США. Во всем мире срок его действия истек в 2004 году. Мой запрос на выплату роялти Unisys в рамке остается на моей стене.

Оба эти пункта остались в прошлом. Веселиться!