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 年到期。我的镶框 Unisys 版税付款请求仍然挂在我的墙上。

这两点都已成为过去。玩得开心！