/*
豆腐制作，都是精品
http://www.asp888.net 豆腐技術(shù)站
如轉(zhuǎn)載，請(qǐng)保留完整版權(quán)信息
*/

很久沒有給大家?guī)�來新的文章了，最近豆腐忙于公司的業(yè)務(wù)，怠慢了各位朋友，在這里給大家先說一聲
對(duì)不起了，沒有辦法，豆腐也要生活呀。
aspImage是serverobjects站點(diǎn)上非常好的一個(gè)組件，它可以使我們利用Asp實(shí)現(xiàn)很多對(duì)于圖形的處理功能。
比如，豆腐在最近的項(xiàng)目中就需要對(duì) 費(fèi)用進(jìn)行統(tǒng)計(jì)，要畫 柱圖，餅圖，等等，都需要用到這個(gè)組件。
這個(gè)組件本身沒有內(nèi)置柱圖的功能，我們需要自己做這樣的函數(shù)，還是老規(guī)矩，我們先來看看代碼吧。
Function DrawPillar(arrNum)
'這個(gè)函數(shù)的功能是 生成 一個(gè) 柱圖
'**************以下是變量定義********************
dim arrColor(13)
dim arrNum1()
dim i
dim intX
dim intY
'--------------以下是代碼開始--------------------
i=0
arrColor(i)=RGB(255,255,255)
i=i+1
arrColor(i)=RGB(255,255,0)
i=i+1
arrColor(i)=RGB(255,0,255)
i=i+1
arrColor(i)=RGB(0,255,255)
i=i+1
arrColor(i)=RGB(255,0,0)
i=i+1
arrColor(i)=RGB(0,255,0)
i=i+1
arrColor(i)=RGB(0,0,255)
i=i+1
arrColor(i)=RGB(255,255,255)
i=i+1
arrColor(i)=RGB(255,255,0)
i=i+1
arrColor(i)=RGB(255,0,255)
i=i+1
arrColor(i)=RGB(0,255,255)
i=i+1
arrColor(i)=RGB(255,0,0)
i=i+1
arrColor(i)=RGB(0,255,0)
i=i+1
arrColor(i)=RGB(0,0,255)
i=i+1

intMax=GetMaxY(arrNum)

Set Image = Server.CreateObject("AspImage.Image")
Image.MaxX=620
Image.MaxY=300

intRatio=(Image.MaxY-40)/intMax

Image.GradientTwoWay rgb(41,137,204),vbWhite ,0,1


'Image.BackgroundColor =vbBlue
'Image.FrameRect 15,15,Image.MaxX -15,Image.MaxY -15

'Y 軸
Image.X =40+2
Image.Y =15
Image.LineTo 40+2,Image.MaxY-20
Image.TextOut "↑",40-5,14,false
Image.TextOut "單位：元",15,0,false
for i=1 to 10
Image.TextOut "-" ,40,((Image.MaxY-40)/10)*i,false
'Image.TextOut cDBL((intMax/10))*(i),0,((Image.MaxY-40)/10)*(11-i),false
next

'X軸
Image.X =Image.MaxX-15
Image.Y =Image.MaxY-20
Image.LineTo 40,Image.MaxY-20

Image.TextOut ">",Image.MaxX-15-4 ,Image.MaxY-20-9,false
for i=1 to 12
Image.TextOut i & "月" ,40+ i * (30+15) -20 ,Image.MaxY-20,false
next

if intMax=0 then
intMax=1
end if

'一年有12個(gè)月，產(chǎn)生 12個(gè) 顏色
intX=40

for i=0 to 11
Image.BackgroundColor = arrColor(i)
Image.Rectangle intX+20,Image.MaxY -20 , intX+50, Image.MaxY -20 - arrNum(i)*intRatio
Image.TextOut arrNum(i),intX+20, Image.MaxY -32 - arrNum(i)*intRatio , false
intX=intX+ 30 +15
next
Image.FileName=server.MapPath("http://www.okasp.com/techinfo/test.jpg")
Image.SaveImage

set Image=nothing
Response.Write "<img src=http://www.okasp.com/techinfo/test.jpg>"
End Function

function GetMaxY(arrNum)
'這個(gè)函數(shù)的功能是 得到數(shù)組中最大 的數(shù)字
'***************以下是變量定義************
dim i
dim intMax '寄存器
'---------------以下是代碼開始------------
intMax=0
for i=0 to UBOUND(arrNum)
if cDbl(intMax)< cDBL(arrNum(i)) then
intMax=arrNum(i)
end if
Next

GetMaxY=intMax
End Function

我們通過代碼Set Image = Server.CreateObject("AspImage.Image")得到一個(gè)AspImage的實(shí)例，現(xiàn)在
我們就可以利用AspImage提供給我們的動(dòng)人功能了。
Image.MaxX=620
Image.MaxY=300
我們可以設(shè)定我們需要畫的圖形的區(qū)域。
Image.GradientTwoWay rgb(41,137,204),vbWhite ,0,1
這是一個(gè)非常非常好的方法，我們可以給這個(gè)圖片的背靜添加一個(gè)漸進(jìn)填充的顏色。

'Y 軸
Image.X =40+2
Image.Y =15
Image.LineTo 40+2,Image.MaxY-20
Image.TextOut "↑",40-5,14,false
Image.TextOut "單位：元",15,0,false
for i=1 to 10
Image.TextOut "-" ,40,((Image.MaxY-40)/10)*i,false
next

這段代碼是一個(gè)畫 Y 軸的代碼，不要小看這個(gè)"↑",豆腐花了很長的時(shí)間才搞定的。：）
'X軸
Image.X =Image.MaxX-15
Image.Y =Image.MaxY-20
Image.LineTo 40,Image.MaxY-20

Image.TextOut ">",Image.MaxX-15-4 ,Image.MaxY-20-9,false
X軸相對(duì)來說就簡單多了。

'一年有12個(gè)月，產(chǎn)生 12個(gè) 顏色
intX=40

for i=0 to 11
Image.BackgroundColor = arrColor(i)
Image.Rectangle intX+20,Image.MaxY -20 , intX+50, Image.MaxY -20 - arrNum(i)*intRatio
Image.TextOut arrNum(i),intX+20, Image.MaxY -32 - arrNum(i)*intRatio , false
intX=intX+ 30 +15
next
這端代碼是最終生成柱圖的代碼，具體我就不解釋了。