Source code
All code for the LineChart is written in Jscript, and it relies on four include files. These are included in the package,
and you are free to modify them for personal use.
- <%@ LANGUAGE = JScript%>
- <!--#include file="LineDiagram.asp"-->
- <%
- var diagramObj = new LineDiagram();
- diagramObj.CreateBackgroundFromImage(Server.mappath("images/dimacLogo.jpg"));
-
- diagramObj.xScale.label = "Time";
- diagramObj.xScale.SetPosition(40, 180, 260);
- diagramObj.xScale.SetLabelFont("Tahoma", 12, "bold", 0x444444, true, false, 0);
- diagramObj.xScale.SetValueFont("Tahoma", 12, "normal", 0x444444, true, false, 0);
- diagramObj.xScale.minValue = 0;
- diagramObj.xScale.maxValue = 30;
- diagramObj.xScale.stepSize = 2;
- diagramObj.xScale.lineColor = 0x999999;
- diagramObj.xScale.lineSize = 1;
-
- diagramObj.yScale.label = "Costs";
- diagramObj.yScale.SetPosition(40, 180, 150);
- diagramObj.yScale.SetLabelFont("Tahoma", 12, "bold", 0x444444, true, false, 0);
- diagramObj.yScale.SetValueFont("Tahoma", 12, 0, 0x444444, true, false, 0);
- diagramObj.yScale.minValue = 0;
- diagramObj.yScale.maxValue = 10;
- diagramObj.yScale.stepSize = 2;
- diagramObj.yScale.lineColor = 0x999999;
- diagramObj.yScale.lineSize = 1;
-
-
- var c2000 = Request.Item("c2000").Item;
- if (!c2000)
- c2000 = new String("#9999ff");
-
- var c2001 = Request.Item("c2001").Item;
- if (!c2001)
- c2001 = new String("#99ee99");
-
- var c2002 = Request.Item("c2002").Item;
- if (!c2002)
- c2002 = new String("#dd8888");
-
- var imageobj = Server.CreateObject("w3image.Image");
- imageobj.CreateEmptySurface(1,1);
-
- var graph1 = new LDGraph();
- graph1.label = "2000";
- graph1.lineColor = imageobj.CreateColor(c2000.valueOf());
-
- var graph2 = new LDGraph();
- graph2.label = "2001";
- graph2.lineColor = imageobj.CreateColor(c2001.valueOf()); //0x99ee99;
-
- var graph3 = new LDGraph();
- graph3.label = "2002";
- graph3.lineColor = imageobj.CreateColor(c2002.valueOf()); //0xdd8888;
-
-
- var q1_2000 = Request.Item("q1_2000").Item;
- if (!q1_2000)
- q1_2000 = 10;
-
- var q2_2000 = Request.Item("q2_2000").Item;
- if (!q2_2000)
- q2_2000 = 8;
-
- var q3_2000 = Request.Item("q3_2000").Item;
- if (!q3_2000)
- q3_2000 = 4;
-
- var q4_2000 = Request.Item("q4_2000").Item;
- if (!q4_2000)
- q4_2000 = 5;
-
-
- graph1.AddPoint(0, parseInt(q1_2000));
- graph1.AddPoint(10, parseInt(q2_2000));
- graph1.AddPoint(20, parseInt(q3_2000));
- graph1.AddPoint(30, parseInt(q4_2000));
-
- var q1_2001 = Request.Item("q1_2001").Item;
- if (!q1_2001)
- q1_2001 = 0;
-
- var q2_2001 = Request.Item("q2_2001").Item;
- if (!q2_2001)
- q2_2001 = 2;
-
- var q3_2001 = Request.Item("q3_2001").Item;
- if (!q3_2001)
- q3_2001 = 2;
-
- var q4_2001 = Request.Item("q4_2001").Item;
- if (!q4_2001)
- q4_2001 = 4;
-
-
- graph2.AddPoint(0, parseInt(q1_2001));
- graph2.AddPoint(10, parseInt(q2_2001));
- graph2.AddPoint(20, parseInt(q3_2001));
- graph2.AddPoint(30, parseInt(q4_2001));
-
-
- var q1_2002 = Request.Item("q1_2002").Item;
- if (!q1_2002)
- q1_2002 = 8;
-
- var q2_2002 = Request.Item("q2_2002").Item;
- if (!q2_2002)
- q2_2002 = 3;
-
- var q3_2002 = Request.Item("q3_2002").Item;
- if (!q3_2002)
- q3_2002 = 6;
-
- var q4_2002 = Request.Item("q4_2002").Item;
- if (!q4_2002)
- q4_2002 = 7;
-
-
- graph3.AddPoint(0, parseInt(q1_2002));
- graph3.AddPoint(10, parseInt(q2_2002));
- graph3.AddPoint(20, parseInt(q3_2002));
- graph3.AddPoint(30, parseInt(q4_2002));
-
-
-
- diagramObj.graphs.push(graph1);
-
- diagramObj.graphs.push(graph2);
-
- diagramObj.graphs.push(graph3);
-
- diagramObj.graphInfo.startXPos = 330;
- diagramObj.graphInfo.startYPos = 20;
- diagramObj.graphInfo.boxWidth = 15;
- diagramObj.graphInfo.boxHeight = 10;
- diagramObj.graphInfo.boxSpacing = 5;
- diagramObj.graphInfo.lineColor = 0x444444;
- diagramObj.graphInfo.SetLabelFont("Tahoma", 12, "normal", 0x444444, true, false);
-
-
- diagramObj.DrawDiagram();
-
-
- %>