类似ShotGraph的绘图组件WebGraph

自己开发的类似ShotGraph的绘图组件，实现大多数ShotGraph组件中的绘图和图形输出功能，接口基本保持一致，除了颜色设置。ShotGraph中需要SetColor进行颜色预设，WebGraph中涉及颜色直接传入颜色值，其他的基本无差别，包括创建和调用方法。接口说明参照ShotGraph绘图部分。
////////////
<br />
<br />
<br />
<br />
<img alt="" src="webGraphExec.asp" /><br />
<br />
<br />
///////////<br />
&nbsp;</p>
<!--r  />
Response.ContentType="image/gif"<br  />
<br  />
Set obj = Server.CreateObject("WebGraph.wImage")<br  />
<br  />
Size = 201<br  />
obj.CreateImage Size, Size<br  />
'   obj.SetColor 0, 255, 255, 255<br  />
'   obj.SetColor 1, 0, 0, 0<br  />
'   obj.SetColor 2, 255, 108, 0<br  />
'   obj.SetColor 3, 0, 0, 204<br  />
obj.SetBgColor RGB(128, 128, 128)<br  />
obj.FillRect 0, 0, Size - 1, Size - 1<br  />
<br  />
obj.SetDrawColor RGB(255, 0, 0)<br  />
obj.vbLine Size - 1, 0, 0, Size - 1<br  />
obj.SetBgColor RGB(255, 108, 0)<br  />
obj.Ellipse 5, 5, Size - 6, Size - 6<br  />
obj.SetBgColor RGB(0, 0, 204)<br  />
obj.Ellipse 5, (Size - 5) / 4, Size / 2, (Size - 5) * 3 / 4<br  />
<br  />
'    img = obj.jpegImage(90, 0, "e:/abc.jpg")<br  />
'    img = obj.jpegImage(90, 0, "")<br  />
'    img = obj.bmpImage(True, "e:/abc.bmp")<br  />
'    img = obj.bmpImage(True, "")<br  />
img = obj.gifImage(-1, 0, "")<br  />
<br  />
Response.BinaryWrite img<br  />
-->