|
Server : Apache/2.2.17 (Unix) mod_ssl/2.2.17 OpenSSL/0.9.8e-fips-rhel5 DAV/2 PHP/5.2.17 System : Linux localhost 2.6.18-419.el5 #1 SMP Fri Feb 24 22:47:42 UTC 2017 x86_64 User : nobody ( 99) PHP Version : 5.2.17 Disable Function : NONE Directory : /home/queenjbs/www/FusionChart/Code/ASP/DBExample/ |
Upload File : |
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<%
'We've included ../Includes/FusionCharts.asp, which contains functions
'to help us easily embed the charts.
%>
<!-- #INCLUDE FILE="../Includes/FusionCharts.asp" -->
<!-- #INCLUDE FILE="../Includes/DBConn.asp" -->
<HTML>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>FusionCharts - Multiseries chart using data from database</title>
<link href="../assets/ui/css/style.css" rel="stylesheet" type="text/css" />
<script type="text/javascript" src="../assets/ui/js/jquery.min.js"></script>
<script type="text/javascript" src="../assets/ui/js/lib.js"></script>
<!--[if IE 6]>
<script type="text/javascript" src="../assets/ui/js/DD_belatedPNG_0.0.8a-min.js"></script>
<script>
/* select the element name, css selector, background etc */
DD_belatedPNG.fix('img');
/* string argument can be any CSS selector */
</script>
<![endif]-->
<style type="text/css">
h2.headline {
font: normal 110%/137.5% "Trebuchet MS", Arial, Helvetica, sans-serif;
padding: 0;
margin: 25px 0 25px 0;
color: #7d7c8b;
text-align: center;
}
p.small {
font: normal 68.75%/150% Verdana, Geneva, sans-serif;
color: #919191;
padding: 0;
margin: 0 auto;
width: 664px;
text-align: center;
}
</style>
<SCRIPT LANGUAGE="Javascript" SRC="../../FusionCharts/FusionCharts.js"></SCRIPT>
</head>
<BODY>
<div id="wrapper">
<div id="header">
<div class="logo"><a class="imagelink" href="http://www.fusioncharts.com/" target="_blank"><img src="../assets/ui/images/fusionchartsv3.2-logo.png" width="131" height="75" alt="FusionCharts XT logo" /></a></div>
<h1 class="brand-name">FusionCharts XT</h1>
<h1 class="logo-text">FusionCharts Multiseries chart using data from database</h1>
</div>
<div class="content-area">
<div id="content-area-inner-main">
<h2 class="headline">Output of various factories</h2>
<div class="gen-chart-render">
<%
'In this example, we show how to connect FusionCharts to a database.
'For the sake of ease, we've used an Access databases containing two
'tables.
Dim resultCategories, resultData, strQuery
'strXML will be used to store the entire XML document generated
Dim strXML, intCounter
intCounter = 0
' Creating ADODB object.
Set resultCategories = Server.CreateObject("ADODB.Recordset")
' SQL query for category labels
strQueryCategories = "select distinct Format(Factory_Output.DatePro,'mm-dd-yyyy') as DatePro from Factory_Output "
' Connect to the DB and Query database
Set resultCategories = oConn.Execute(strQueryCategories)
' SQL query for factory output data
strQueryData = "select Factory_Master.FactoryName, Format(Factory_Output.DatePro,'mm-dd-yyyy') as DatePro, Factory_Output.Quantity from Factory_Master Factory_Master, Factory_Output Factory_Output where Factory_Output.FactoryID = Factory_Master.FactoryId order by Factory_Output.FactoryID, Factory_Output.DatePro"
' Query database
Set resultData = oConn.Execute(strQueryData)
'strXML will be used to store the entire XML document generated
'Generate the chart element
strXML = "<chart legendPostion='' caption='Factory Output report' subCaption='By Quantity' xAxisName='Factory' yAxisName='Units' showValues='0' formatNumberScale='0' rotateValues='1' >"
' Build category XML
strXML = strXML & buildCategories(resultCategories, "DatePro")
' Build datasets XML
strXML = strXML & buildDatasets ( resultData, "Quantity", "FactoryName")
'Finally, close <chart> element
strXML = strXML & "</chart>"
'Create the chart - Pie 3D Chart with data from strXML
Call renderChart("../../FusionCharts/MSLine.swf", "", strXML, "FactorySum", 700, 400, false, false)
' Free database resource
Set resultCategories = Nothing
Set resultData = Nothing
'***********************************************************************************************
' * Function to build XML for categories
' * @param result Database resource
' * @param labelField Field name as String that contains value for chart category labels
' *
' * @return categories XML node
' *
Function buildCategories ( result, labelField )
Dim sXML
sXML = ""
If Not result Is Nothing Then
sXML = "<categories>"
While Not result.Eof
sXML = sXML & "<category label='" & result("DatePro") & "'/>"
result.MoveNext
Wend
sXML = sXML & "</categories>"
End If
buildCategories = sXML
End Function
'***********************************************************************************************
' * Function to build XML for datesets that would contain chart data
' * @param result Database resource. The data should come ordered by a control break
' field which would require to identify datasets and set its value to
' dataset's series name
' * @param valueField Field name as String that contains value for chart dataplots
' * @param controlBreak Field name as String that contains value for chart dataplots
' *
' * @return Dataset XML node
' *
Function buildDatasets (result, valueField, controlBreak )
Dim sXML
sXML = ""
if Not result Is Nothing Then
controlBreakValue =""
While Not result.Eof
If ( controlBreakValue <> result(controlBreak) ) Then
controlBreakValue = result(controlBreak)
If Trim(sXML) = "" Then
sXML = sXML & "" & "<dataset seriesName='" & controlBreakValue & "'>"
Else
sXML = sXML & "</dataset>" & "<dataset seriesName='" & controlBreakValue & "'>"
End If
End If
sXML = sXML & "<set value='" & result(valueField) & "'/>"
result.MoveNext
Wend
sXML = sXML & "</dataset>"
End If
buildDatasets = sXML
End Function
%>
</div>
<div class="clear"></div>
<p> </p>
<p class='small'>This is very simple implementation using a simple database. Complexity of real implementataion can vary as per database structure.</p>
<div class="underline-dull"></div>
</div>
</div>
<div id="footer">
<ul>
<li><a href="../index.html"><span>« Back to list of examples</span></a></li>
<li class="pipe">|</li>
<li><a href="../NoChart.html"><span>Unable to see the chart above?</span></a></li>
</ul>
</div>
</div>
</BODY>
</HTML>