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

https://github.com/eriknjenga/ADT · ASP · 99 lines · 62 code · 12 blank · 25 comment · 2 complexity · aeb690287bcf7890c7e00b398c0c1eee 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>Detailed report for the factory</h4>
    39. 

  39. <%
    40. 

  40.     'This page is invoked from Default.asp. When the user clicks on a pie
    41. 

  41.     'slice in Default.asp, the factory Id is passed to this page. We need
    42. 

  42.     'to get that factory id, get information from database and then show
    43. 

  43.     'a detailed chart.
    44. 

    45. 

  45.     'Request the factory Id from Querystring
    46. 

  46.     dim FactoryId
    47. 

  47. 	FactoryId = Request("FactoryId")
    48. 

  48. 	
    49. 

  49. 	dim FC
    50. 

  50. 	' Create FusionCharts ASP class object
    51. 

  51.  	set FC = new FusionCharts
    52. 

  52. 	' Set chart type to Column 2D
    53. 

  53. 	Call FC.setChartType("Column2D")
    54. 

  54. 	' Set chart size 
    55. 

  55. 	Call FC.setSize("600","300")
    56. 

  56. 

  57. 	' Set Relative Path of swf file.
    58. 

  58.  	Call FC.setSWFPath("../../FusionCharts/")
    59. 

  59. 	
    60. 

  60. 	dim strParam
    61. 

  61. 	' Define chart attributes
    62. 

  62. 	strParam="caption=Factory " & FactoryId & " Output;subcaption=(In Units);xAxisName=Date;rotateLabels=1;slantLabels=1"
    63. 

  63. 

  64.  	' Set chart attributes
    65. 

  65.  	Call FC.setChartParams(strParam)
    66. 

  66. 	   
    67. 

  67. 

  68.     'Now, we get the data for that factory 
    69. 

  69. 	'storing chart values in 'Quantity' column and category names in 'DDate'
    70. 

  70. 	dim strQuery
    71. 

  71.     strQuery = "select Quantity, format(DatePro,'dd/MM/yyyy') as DDate from Factory_Output where FactoryId=" & FactoryId
    72. 

  72.     
    73. 

  73. 	'For SQL Server 2000 Query
    74. 

  74. 	'strQuery =  "select Quantity, convert(varchar,DatePro,103) as DDate from Factory_Output where FactoryId=" & FactoryId
    75. 

  75. 	
    76. 

  76. 	Dim oRs
    77. 

  77. 	'Create the recordset to retrieve data
    78. 

  78.     Set oRs = Server.CreateObject("ADODB.Recordset")
    79. 

  79. 	Set oRs = oConn.Execute(strQuery)
    80. 

  80. 	    
    81. 

  81.     'Pass the SQL query result to the FusionCharts ASP Class' function 
    82. 

  82.     'that will extract data from database and add to the chart.
    83. 

  83.     if not oRs.bof then
    84. 

  84.        Call FC.addDataFromDatabase(oRs, "Quantity", "DDate","","")
    85. 

  85.     end if
    86. 

  86. 

  87.     oRs.Close
    88. 

  88. 	set oRs=Nothing
    89. 

  89.     'Create the chart
    90. 

  90.  	Call FC.renderChart(false)
    91. 

  91. %>
    92. 

  92. <BR>
    93. 

  93. <a href='Default.asp'>Back to Summary</a>
    94. 

  94. <BR><BR>
    95. 

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

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

  97. </CENTER>
    98. 

  98. </BODY>
    99. 

  99. </HTML>
    100.