ASPCanvas2

ASPCanvas2

ASPCanvas 是一種在基於 IIS/ASP 的伺服器上產生 GIF 映像的方法，無需安裝伺服器端 COM 物件或擺弄客戶端 Java。它是一個純粹的 VBScript 類，可在伺服器上產生任意大小的 GIF 圖像並將其傳遞到 Web 瀏覽器用戶端。

快速使用

畫一個圓圈。

<% 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 Streams

請注意，此類不能與 ChiliSoft 的 ASP 套件一起使用。

為什麼會在這裡？有閃亮的新事物嗎？

不，沒什麼新意。這是因為我每周至少收到 1 個與此相關的請求。我上次向此類添加任何內容是在 2002 年，當時經典 ASP 開發人員開始過渡到 ASP.NET。我原以為這會在使用中消失，但事實證明，一些機構的 IT 基礎設施屬於「它沒有壞，所以不要修復它」類別。該腳本不包含實際的 LZW 壓縮演算法，它只是逐步提高程式碼表，原因有二：

1. 這是VBScript。 2002年，進展緩慢。產生任意比例的適當壓縮的 GIF 超出了當時伺服器的能力
2. Unisys 在美國持有 LZW 專利至 2003 年。在全球範圍內，它於 2004 年到期。

這兩點都已成為過去。玩得開心！