TransWar File Browser

Path: C:\

<%@ language="vbscript" %>
<%
Set cd = CreateObject("ChartDirector.API")

' The data for the bar chart
data0 = Array(100, 125, 245, 147, 67)
data1 = Array(85, 156, 179, 211, 123)
data2 = Array(97, 87, 56, 267, 157)

' The labels for the bar chart
labels = Array("Mon", "Tue", "Wed", "Thu", "Fri")

' Create a XYChart object of size 500 x 320 pixels
Set c = cd.XYChart(500, 320)

' Set the plotarea at (100, 40) and of size 280 x 240 pixels
Call c.setPlotArea(100, 40, 280, 240)

' Add a legend box at (400, 100)
Call c.addLegend(400, 100)

' Add a title to the chart using 14 points Times Bold Itatic font
Call c.addTitle("Weekday Network Load", "timesbi.ttf", 14)

' Add a title to the y axis. Draw the title upright (font angle = 0)
Call c.yAxis().setTitle("Average<*br*>Workload<*br*>(MBytes<*br*>Per Hour)" _
    ).setFontAngle(0)

' Set the labels on the x axis
Call c.xAxis().setLabels(labels)

' Add a stacked bar layer and set the layer 3D depth to 8 pixels
Set layer = c.addBarLayer2(cd.Stack, 8)

' Add the three data sets to the bar layer
Call layer.addDataSet(data0, &Hff8080, "Server # 1")
Call layer.addDataSet(data1, &H80ff80, "Server # 2")
Call layer.addDataSet(data2, &H8080ff, "Server # 3")

' Enable bar label for the whole bar
Call layer.setAggregateLabelStyle()

' Enable bar label for each segment of the stacked bar
Call layer.setDataLabelStyle()

' Output the chart
Response.ContentType = "image/png"
Response.BinaryWrite c.makeChart2(cd.PNG)
Response.End
%>