📄 items5.aspx
字号:
<%@ Page Language="VB" Description="dotnetCHARTING Component"%>
<%@ Register TagPrefix="dotnet" Namespace="dotnetCHARTING" Assembly="dotnetCHARTING"%>
<%@ Import Namespace="System.Drawing" %>
<script runat="server">
Sub Page_Load(sender As Object ,e As EventArgs )
'set global properties
Chart.Title="Item sales"
Chart.ChartArea.XAxis.Label.Text="Customers"
Chart.ChartArea.YAxis.Label.Text="Orders"
Chart.Type = ChartType.Combo
Chart.ChartArea.YAxis.Scale = Scale.Stacked
Chart.Use3D=false
Chart.TempDirectory="temp"
Chart.Debug=true
Dim palette1 As string = Request.Params("palette")
If(palette1 is Nothing) Then
Chart.PaletteName=Palette.Random
Else
Chart.PaletteName= CType([Enum].Parse(GetType(dotnetCHARTING.Palette), palette1,true),dotnetCHARTING.Palette)
End If
Chart.DefaultSeries.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;data source=" & Server.MapPath("../../database/chartsample.mdb")
Chart.DefaultSeries.DefaultElement.ShowValue=true
'Add Jan series
Chart.Series.Name="Jan"
Chart.Series.StartDate= New System.DateTime(2002,1,1,0,0,0)
Chart.Series.EndDate = New System.DateTime(2002,1,31,23,59,59)
Chart.Series.SqlStatement= "SELECT Name,Sum(1) FROM Orders WHERE OrderDate >= #STARTDATE# AND OrderDate <= #ENDDATE# GROUP BY Name"
Chart.SeriesCollection.Add()
'Add Feb series
Chart.Series.Name="Feb"
Chart.Series.StartDate= New System.DateTime(2002,2,1,0,0,0)
Chart.Series.EndDate = New System.DateTime(2002,2,28,23,59,59)
Chart.Series.SqlStatement= "SELECT Name,Sum(1) FROM Orders WHERE OrderDate >= #STARTDATE# AND OrderDate <= #ENDDATE# GROUP BY Name"
Chart.SeriesCollection.Add()
'Add Mar series
Chart.Series.Name="Mar"
Chart.Series.StartDate= New System.DateTime(2002,3,1,0,0,0)
Chart.Series.EndDate = New System.DateTime(2002,3,31,23,59,59)
Chart.Series.SqlStatement= "SELECT Name,Sum(1) FROM Orders WHERE OrderDate >= #STARTDATE# AND OrderDate <= #ENDDATE# GROUP BY Name"
Chart.SeriesCollection.Add()
'Add Apr series
Chart.Series.Name="Apr"
Chart.Series.StartDate= New System.DateTime(2002,4,1,0,0,0)
Chart.Series.EndDate = New System.DateTime(2002,4,30,23,59,59)
Chart.Series.SqlStatement= "SELECT Name,Sum(1) FROM Orders WHERE OrderDate >= #STARTDATE# AND OrderDate <= #ENDDATE# GROUP BY Name"
Chart.SeriesCollection.Add()
'Add May series
Chart.Series.Name="May"
Chart.Series.StartDate= New System.DateTime(2002,5,1,0,0,0)
Chart.Series.EndDate = New System.DateTime(2002,5,31,23,59,59)
Chart.Series.SqlStatement= "SELECT Name,Sum(1) FROM Orders WHERE OrderDate >= #STARTDATE# AND OrderDate <= #ENDDATE# GROUP BY Name"
Chart.SeriesCollection.Add()
'Add June series
Chart.Series.Name="Jun"
Chart.Series.StartDate= New System.DateTime(2002,6,1,0,0,0)
Chart.Series.EndDate = New System.DateTime(2002,6,30,23,59,59)
Chart.Series.SqlStatement= "SELECT Name,Sum(1) FROM Orders WHERE OrderDate >= #STARTDATE# AND OrderDate <= #ENDDATE# GROUP BY Name"
Chart.SeriesCollection.Add()
End Sub
</script>
<HTML><HEAD><TITLE>Orders Report</TITLE></HEAD>
<BODY>
<DIV align=center>
<dotnet:Chart id="Chart" runat="server"/>
</DIV>
</BODY>
</BODY>
</HTML>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -