/Scripts/FusionCharts/Code/ASP/DBExample/Default.asp

https://github.com/eriknjenga/ADT · ASP · 92 lines · 60 code · 8 blank · 24 comment · 1 complexity · 5a076410c4df68ba283aebc530eba217 MD5 · raw file 

    

  1. <%@ Language=VBScript %>
    2. 

  2. <HTML>
    3. 

  3. <HEAD>
    4. 

  4. 	<TITLE>
    5. 

  5. 	FusionCharts - Database and Drill-Down Example
    6. 

  6. 	</TITLE>
    7. 

  7. 	<%
    8. 

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

  9. 	'Embedding using JavaScripts avoids the "Click to Activate..." issue in Internet Explorer
    10. 

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

  11. 	%>	
    12. 

  12. 	<SCRIPT LANGUAGE="Javascript" SRC="../../FusionCharts/FusionCharts.js"></SCRIPT>
    13. 

  13. 	<style type="text/css">
    14. 

  14. 	<!--
    15. 

  15. 	body {
    16. 

  16. 		font-family: Arial, Helvetica, sans-serif;
    17. 

  17. 		font-size: 12px;
    18. 

  18. 	}
    19. 

  19. 	.text{
    20. 

  20. 		font-family: Arial, Helvetica, sans-serif;
    21. 

  21. 		font-size: 12px;
    22. 

  22. 	}
    23. 

  23. 	-->
    24. 

  24. 	</style>
    25. 

  25. </HEAD>
    26. 

  26. 	<%
    27. 

  27. 	'We've included ../Includes/FusionCharts.asp, which contains functions
    28. 

  28. 	'to help us easily embed the charts.
    29. 

  29. 	%>
    30. 

  30. 	<!-- #INCLUDE FILE="../Includes/FusionCharts.asp" -->
    31. 

  31. 	<!-- #INCLUDE FILE="../Includes/DBConn.asp" -->
    32. 

  32. <BODY>
    33. 

  33. 

  34. <CENTER>
    35. 

  35. <h2>FusionCharts Database and Drill-Down Example</h2>
    36. 

  36. <h4>Click on any pie slice to see detailed data.</h4>
    37. 

  37. <p class='text'>Or, right click on any pie to enable slicing or rotation mode. </p>
    38. 

  38. <%
    39. 

  39. 	'In this example, we show how to connect FusionCharts to a database.
    40. 

  40. 	'For the sake of ease, we've used an Access database which is present in
    41. 

  41. 	'../DB/FactoryDB.mdb. It just contains two tables, which are linked to each
    42. 

  42. 	'other. 
    43. 

  43. 		
    44. 

  44. 	'Database Objects - Initialization
    45. 

  45. 	Dim oRs, oRs2, strQuery
    46. 

  46. 	'strXML will be used to store the entire XML document generated
    47. 

  47. 	Dim strXML
    48. 

  48. 	
    49. 

  49. 	'We also keep a flag to specify whether we've to animate the chart or not.
    50. 

  50. 	'If the user is viewing the detailed chart and comes back to this page, he shouldn't
    51. 

  51. 	'see the animation again.
    52. 

  52. 	Dim animateChart
    53. 

  53. 	animateChart = Request.QueryString("animate")
    54. 

  54. 	'Set default value of 1
    55. 

  55. 	if animateChart="" then
    56. 

  56. 		animateChart = "1"
    57. 

  57. 	end if
    58. 

  58. 	
    59. 

  59. 	'Create the recordset to retrieve data
    60. 

  60. 	Set oRs = Server.CreateObject("ADODB.Recordset")
    61. 

  61. 

  62. 	'Generate the chart element
    63. 

  63. 	strXML = "<chart caption='Factory Output report' subCaption='By Quantity' pieSliceDepth='30' showBorder='1' formatNumberScale='0' numberSuffix=' Units' animation=' " & animateChart & "'>"
    64. 

  64. 	
    65. 

  65. 	'Iterate through each factory
    66. 

  66. 	strQuery = "select * from Factory_Master"
    67. 

  67. 	Set oRs = oConn.Execute(strQuery)
    68. 

  68. 	
    69. 

  69. 	While Not oRs.Eof
    70. 

  70. 		'Now create second recordset to get details for this factory
    71. 

  71. 		Set oRs2 = Server.CreateObject("ADODB.Recordset")
    72. 

  72. 		strQuery = "select sum(Quantity) as TotOutput from Factory_Output where FactoryId=" & ors("FactoryId")
    73. 

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

  74. 		'Generate <set label='..' value='..' link='..' />
    75. 

  75. 		'Note that we're setting link as Detailed.asp?FactoryId=<<FactoryId>>
    76. 

  76. 		strXML = strXML & "<set label='" & ors("FactoryName") & "' value='" & ors2("TotOutput") & "' link='" & Server.URLEncode("Detailed.asp?FactoryId=" & ors("FactoryId")) & "'/>"
    77. 

  77. 		'Close recordset
    78. 

  78. 		Set oRs2 = Nothing
    79. 

  79. 		oRs.MoveNext
    80. 

  80. 	Wend
    81. 

  81. 	'Finally, close <chart> element
    82. 

  82. 	strXML = strXML & "</chart>"
    83. 

  83. 	Set oRs = nothing
    84. 

  84. 	
    85. 

  85. 	'Create the chart - Pie 3D Chart with data from strXML
    86. 

  86. 	Call renderChart("../../FusionCharts/Pie3D.swf", "", strXML, "FactorySum", 600, 300, false, false)	
    87. 

  87. %>
    88. 

  88. <BR><BR>
    89. 

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

  90. </CENTER>
    91. 

  91. </BODY>
    92. 

  92. </HTML>
    93.