给ASP增加绘图功能

好东西大家分享：一个用来画图的组件（画饼图，条形图，各种形状图象的组件）
　　东西是好，可惜我没地方放这个组件，哎。
　　为什么说是个好东西了，大家看看下面的介绍就知道了该组件有两个版本，一个是注册版本，一个是非注册版本非注
册版本功能：（虽然是非注册的，但是可以一直使用下去的哦,这也是一个为什么我大力推荐的原因之一）
1。可生成JPEG格式的图形文件
2。可生成透明的GIF格式的图形文件
3。可生成交错的GIF格式的图形文件
4。可以使用两种方式保存图形文件：一种是直接生成图形文件;另外一种是保存到数组中然后直接输出到WWW页面中5。可
以绘制文本图形，并且支持安装在你机器上的任何字体的文本6。可以导出和预览由OLE服务程序生成的文档，例如MS
Word,Excel等等。
7。可以使用位图方式自由的缩放，镜像，旋转和剪切图形
8。可使用本地图形缓存
9。可以ZOOM图片
10。可以获取任何JPEG, GIF，BMP格式文件的详细信息
11。可以进行Windows抓屏
12。可生成动态GIF非注册版本的限制如下：
(1)。只能够最多使用8种颜色，不过我认为对大多数人来说根本不算什么限制的，呵呵
(2)。能够生成的最大图形尺寸为320x240如果是注册版本：
　　13。可在线修改现有的GIF, JPEG和BMP文件14。可自定义调色板15。可循环放映GIF动画
例子程序：
VBScript的例子：
set obj=CreateObject("shotgraph.image")
size=201
obj.CreateImage size,size,4
obj.SetColor 0,255,255,255
obj.SetColor 1,0,0,0
obj.SetColor 2,255,108,0
obj.SetColor 3,0,0,204
obj.SetBgColor 0
obj.FillRect 0,0,size-1,size-1
obj.SetDrawColor 1
obj.Line size-1,0,0,size-1
obj.SetBgColor 2
obj.Ellipse 5,5,size-6,size-6
obj.SetBgColor 3
obj.Ellipse 5,(size-5)/4,size/2,(size-5)*3/4
obj.GifImage 0,1,"test.gif"
ASP的例子代码：
Response.ContentType="image/gif"
set obj=Server.CreateObject("shotgraph.image")
size=201
obj.CreateImage size,size,4
obj.SetColor 0,255,255,255
obj.SetColor 1,0,0,0
obj.SetColor 2,255,108,0
obj.SetColor 3,0,0,204
obj.SetBgColor 0