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

https://github.com/eriknjenga/ADT · ASP · 78 lines · 56 code · 5 blank · 17 comment · 1 complexity · 1280d42f8bb4e3cfe05b37d0163498b3 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>Detailed report for the factory</h4>
    37. 

  37. <%
    38. 

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

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

  40. 	'to get that factory id, get information from database and then show
    41. 

  41. 	'a detailed chart.
    42. 

  42. 	
    43. 

  43. 	'First, get the factory Id
    44. 

  44. 	Dim FactoryId
    45. 

  45. 	'Request the factory Id from Querystring
    46. 

  46. 	FactoryId = Request.QueryString("FactoryId")
    47. 

  47. 	
    48. 

  48. 	Dim oRs, strQuery
    49. 

  49. 	'strXML will be used to store the entire XML document generated
    50. 

  50. 	Dim strXML, intCounter	
    51. 

  51. 	intCounter = 0
    52. 

  52. 	
    53. 

  53. 	Set oRs = Server.CreateObject("ADODB.Recordset")
    54. 

  54. 	'Generate the chart element string
    55. 

  55. 	strXML = "<chart palette='2' caption='Factory " & FactoryId &" Output ' subcaption='(In Units)' xAxisName='Date' showValues='1' labelStep='2' >"
    56. 

  56. 	'Now, we get the data for that factory
    57. 

  57. 	strQuery = "select * from Factory_Output where FactoryId=" & FactoryId
    58. 

  58. 	Set oRs = oConn.Execute(strQuery)
    59. 

  59. 	While Not oRs.Eof		
    60. 

  60. 		'Here, we convert date into a more readable form for set label.
    61. 

  61. 		strXML = strXML & "<set label='" & datePart("d",ors("DatePro")) & "/" & datePart("m",ors("DatePro")) & "' value='" & ors("Quantity") & "'/>"		
    62. 

  62. 		Set oRs2 = Nothing
    63. 

  63. 		oRs.MoveNext
    64. 

  64. 	Wend
    65. 

  65. 	'Close <chart> element
    66. 

  66. 	strXML = strXML & "</chart>"
    67. 

  67. 	Set oRs = nothing
    68. 

  68. 	
    69. 

  69. 	'Create the chart - Column 2D Chart with data from strXML
    70. 

  70. 	Call renderChart("../../FusionCharts/Column2D.swf", "", strXML, "FactoryDetailed", 600, 300, false, false)
    71. 

  71. %>
    72. 

  72. <BR>
    73. 

  73. <a href='Default.asp?animate=0'>Back to Summary</a>
    74. 

  74. <BR><BR>
    75. 

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

  76. </CENTER>
    77. 

  77. </BODY>
    78. 

  78. </HTML>
    79.