/Scripts/FusionCharts/Code/ASPClass/DBExample/BasicDBExample.asp

https://github.com/eriknjenga/ADT · ASP · 93 lines · 57 code · 13 blank · 23 comment · 1 complexity · 05603fa76252323be2f56853f96e3f80 MD5 · raw file 

    

  1. <%@LANGUAGE="VBSCRIPT"%>
    2. 

  2. <% option explicit %>
    3. 

  3. <%
    4. 

  4. 'We've included ../Includes/FusionCharts_Gen.asp, which contains
    5. 

  5. 'FusionCharts ASP Class to help us easily embed charts 
    6. 

  6. 'We've also used ../Includes/DBConn.asp to easily connect to a database.
    7. 

  7. %>
    8. 

  8. <!--#include file="../Includes/DBConn.asp"-->
    9. 

  9. <!--#include file="../Includes/FusionCharts_Gen.asp"-->
    10. 

  10. <HTML>
    11. 

  11. <HEAD>
    12. 

  12. 	<TITLE>
    13. 

  13. 	FusionCharts V3 - Database Example
    14. 

  14. 	</TITLE>
    15. 

  15. 	<%
    16. 

  16. 	'You need to include the following JS file, if you intend to embed the chart using JavaScript.
    17. 

  17. 	'Embedding using JavaScripts avoids the "Click to Activate..." issue in Internet Explorer
    18. 

  18. 	'When you make your own charts, make sure that the path to this JS file is correct. Else, you would get JavaScript errors.
    19. 

  19. 	%>	
    20. 

  20. 	<SCRIPT LANGUAGE="Javascript" SRC="../../FusionCharts/FusionCharts.js"></SCRIPT>
    21. 

  21. 	<style type="text/css">
    22. 

  22. 	<!--
    23. 

  23. 	body {
    24. 

  24. 		font-family: Arial, Helvetica, sans-serif;
    25. 

  25. 		font-size: 12px;
    26. 

  26. 	}
    27. 

  27. 	.text{
    28. 

  28. 		font-family: Arial, Helvetica, sans-serif;
    29. 

  29. 		font-size: 12px;
    30. 

  30. 	}
    31. 

  31. 	-->
    32. 

  32. 	</style>
    33. 

  33. </HEAD>
    34. 

  34. <BODY>
    35. 

  35. 

  36. <CENTER>
    37. 

  37. <h2><a href="http://www.fusioncharts.com" target="_blank">FusionCharts V3</a> -Database and Drill-Down Example</h2>
    38. 

  38. 

  39. 

  40. <%
    41. 

  41. 	'In this example, we show how to connect FusionCharts to a database.
    42. 

  42. 	'For the sake of ease, we've used an MySQL databases containing two
    43. 

  43. 	'tables.
    44. 

    45. 

  45. 	dim FC
    46. 

  46. 	' Create FusionCharts ASP class object
    47. 

  47. 	set FC = new FusionCharts
    48. 

  48. 	' Set chart type to pie 3D
    49. 

  49. 	Call FC.setChartType("pie3d")
    50. 

  50. 	' Set chart size 
    51. 

  51. 	Call FC.setSize("650","450")
    52. 

  52. 	
    53. 

  53. 

  54. 	' Set Relative Path of swf file.
    55. 

  55.  	Call FC.setSWFPath("../../FusionCharts/")
    56. 

  56. 		
    57. 

  57. 	dim strParam
    58. 

  58. 	' Define chart attributes
    59. 

  59. 	strParam="caption=Factory Output report;subCaption=By Quantity;pieSliceDepth=30; showBorder=1;showLabels=1;numberSuffix= Units;decimals=0"
    60. 

  60. 

  61.  	' Set chart attributes
    62. 

  62.  	Call FC.setChartParams(strParam)
    63. 

  63. 	
    64. 

  64.   	Dim oRs
    65. 

  65. 	'Create the recordset to retrieve data
    66. 

  66.     Set oRs = Server.CreateObject("ADODB.Recordset")
    67. 

  67. 

  68. 	' Fetch all factory records using SQL Query
    69. 

  69. 	' Store chart data values in 'total' column/field and category names in 'FactoryName'
    70. 

  70. 	dim strQuery
    71. 

  71. 	strQuery = "select a.FactoryID, b.FactoryName, sum(a.Quantity) as total from Factory_output a, Factory_Master b where a.FactoryId=b.FactoryId group by a.FactoryId,b.FactoryName"
    72. 

  72. 	
    73. 

  73. 	Set oRs = oConn.Execute(strQuery)
    74. 

  74.     
    75. 

  75. 	'Pass the SQL Query result to the FusionCharts ASP Class function 
    76. 

  76. 	'along with field/column names that are storing chart values and corresponding category names
    77. 

  77. 	'to set chart data from database
    78. 

  78. 	if not oRs.bof then
    79. 

  79. 		Call FC.addDataFromDatabase(oRs, "total", "FactoryName", "" ,"")
    80. 

  80. 	end if
    81. 

  81. 	' Close Recordset
    82. 

  82. 	oRs.Close
    83. 

  83. 	set oRs=Nothing
    84. 

  84. 

  85. 	' Render the chart
    86. 

  86.  	Call FC.renderChart(false)
    87. 

  87. %>
    88. 

  88. <BR><BR>
    89. 

  89. <a href='../NoChart.html' target="_blank">Unable to see the chart above?</a>
    90. 

  90. <H5 ><a href='../default.htm'>&laquo; Back to list of examples</a></h5>
    91. 

  91. </CENTER>
    92. 

  92. </BODY>
    93. 

  93. </HTML>
    94.