給ASP增加繪圖功能
來源：互聯網
上載者：User
好東西大家分享：一個用來畫圖的組件（畫餅圖，橫條圖，各種形狀圖象的組件）
東西是好，可惜我沒地方放這個組件，哎。
為什麼說是個好東西了，大家看看下面的介紹就知道了該組件有兩個版本，一個是註冊版本，一個是非註冊版本非注
冊版本功能：（雖然是非註冊的，但是可以一直使用下去的哦,這也是一個為什麼我大力推薦的原因之一）
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
