/Scripts/FusionCharts/Code/ASPClass/DB_DrillDown/Default.asp

https://github.com/eriknjenga/ADT · ASP · 101 lines · 58 code · 11 blank · 32 comment · 1 complexity · 3f0c6b0222bb758efaf15cc760e01a26 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 and Drill-Down 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. <h4>Click on any pie slice to see detailed data.</h4>
    39. 

  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. 	' Set Relative Path of swf file.
    54. 

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

  55. 	
    56. 

  56. 	dim strParam
    57. 

  57. 	' Define chart attributes
    58. 

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

  59. 

  60.  	' Set chart attributes
    61. 

  61.  	Call FC.setChartParams(strParam)
    62. 

  62. 	
    63. 

  63.   	' Fetch all factory records creating SQL query
    64. 

  64. 	dim strQuery
    65. 

  65. 	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"
    66. 

  66. 	
    67. 

  67. 	Dim oRs
    68. 

  68. 	'Create the recordset to retrieve data
    69. 

  69.     Set oRs = Server.CreateObject("ADODB.Recordset")
    70. 

  70. 	Set oRs = oConn.Execute(strQuery)
    71. 

  71.     
    72. 

  72. 	'Pass the SQL query result and Drill-Down link format to ASP Class Function
    73. 

  73. 	' this function will automatically add chart data from database
    74. 

  74. 	'
    75. 

  75. 	 'The last parameter passed i.e. "Detailed.asp?FactoryId=##FactoryID##"
    76. 

  76. 	 'drill down link from the current chart
    77. 

  77. 	 'Here, the link redirects to another ASP file Detailed.asp 
    78. 

  78. 	 'with a query string variable -FactoryId
    79. 

  79. 	 'whose value would be taken from the Query result created above.
    80. 

  80. 	 'Any thing placed between ## and ## will be regarded 
    81. 

  81. 	 'as a field/column name in the SQL query result.
    82. 

  82. 	 'value from that column will be assingned as the query variable's value
    83. 

  83. 	 'Hence, for each dataplot in the chart the resultant query variable's value
    84. 

  84. 	 'will be different
    85. 

  85. 	'
    86. 

  86. 	if Not oRs.Bof then
    87. 

  87. 		Call FC.addDataFromDatabase(oRs, "total", "FactoryName","","Detailed.asp?FactoryId=##FactoryID##")
    88. 

  88. 	End If
    89. 

  89. 

  90.     oRs.Close
    91. 

  91. 	set oRs=Nothing
    92. 

  92.     
    93. 

  93.     'Create the chart 
    94. 

  94.  	Call FC.renderChart(false)
    95. 

  95. %>
    96. 

  96. <BR><BR>
    97. 

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

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

  99. </CENTER>
    100. 

  100. </BODY>
    101. 

  101. </HTML>
    102.