Path: C:\
<%@ language="vbscript" %>
<%
Set cd = CreateObject("ChartDirector.API")
' The data for the pie chart
data = Array(21, 18, 15, 12, 8, 24)
' The labels for the pie chart
labels = Array("Labor", "Licenses", "Taxes", "Legal", "Facilities", "Production")
' The colors to use for the sectors
colors = Array(&H66aaee, &Heebb22, &Hbbbbbb, &H8844ff, &Hdd2222, &H009900)
' Create a PieChart object of size 600 x 360 pixels.
Set c = cd.PieChart(600, 360)
' Use the white on black palette, which means the default text and line colors are
' white
Call c.setColors(cd.whiteOnBlackPalette)
' Use a vertical gradient color from deep blue (000066) to blue (0000cc) as
' background. Use rounded corners of 20 pixels radius. Enable soft drop shadow.
Call c.setBackground(c.linearGradientColor(0, 0, 0, c.getHeight(), &H000066, _
&H0000cc))
Call c.setRoundedFrame(&Hffffff, 20)
Call c.setDropShadow()
' Add a title using 18 pts Times New Roman Bold Italic font. Add 16 pixels top margin
' to the title.
Call c.addTitle("Exploded Pie Chart Demonstration", "timesbi.ttf", 18).setMargin2( _
0, 0, 16, 0)
' Set the center of the pie at (300, 195) and the radius to 110 pixels
Call c.setPieSize(300, 195, 110)
' Set the pie data and the pie labels
Call c.setData(data, labels)
' Set the sector colors
Call c.setColors2(cd.DataColor, colors)
' Use local gradient shading for the sectors, with 5 pixels wide semi-transparent
' white (bbffffff) borders
Call c.setSectorStyle(cd.LocalGradientShading, &Hbbffffff, 5)
' Use the side label layout method
Call c.setLabelLayout(cd.SideLayout)
' Use 10pt Arial Bold as the default label font. Set the label box background color
' the same as the sector color. Use soft lighting effect with light direction from
' right. Use 8 pixels rounded corners.
Set t = c.setLabelStyle("arialbd.ttf", 10, &H000000)
Call t.setBackground(cd.SameAsMainColor, cd.Transparent, cd.softLighting(cd.Right, _
0))
Call t.setRoundedCorners(8)
' Set the sector label format. The label is centered in a 110 pixels wide bounding
' box. It consists of two lines. The first line is the sector name. The second line
' shows the data value and percentage.
Call c.setLabelFormat( _
"<*block,halign=center,width=110*>{label}<*br*><*font=arial.ttf,size=8*>US$ " & _
"{value}M ({percent}%)<*/*>")
' Explode all sectors 10 pixels from the center
Call c.setExplode(-1, 10)
' Output the chart
Response.ContentType = "image/png"
Response.BinaryWrite c.makeChart2(cd.PNG)
Response.End
%>