📄 items4.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 for January"
Chart.ChartArea.YAxis.Label.Text="Orders"
Chart.ShowDateInTitle =false
Chart.Type=ChartType.Pies
Chart.TempDirectory="temp"
Chart.Debug=true
Chart.DefaultSeries.ShowOther=true
Chart.DefaultSeries.DefaultElement.ShowValue=true
Chart.LegendBox.Position=LegendBoxPosition.BottomMiddle
Chart.DateGrouping = TimeInterval.Weeks
Chart.PieLabelMode =PieLabelMode.Inside
Chart.OverlapFooter=false
'setting fonts and colors
Chart.ChartArea.ValueLabel = new dotnetCHARTING.Label("",new Font("Garamond Bold",10),Color.Chartreuse)
Chart.ChartArea.XAxis.Label = new dotnetCHARTING.Label("%name",new Font("Garamond",14),Color.DarkBlue)
Chart.DefaultSeries.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;data source=" & Server.MapPath("../../database/chartsample.mdb")
Chart.DefaultSeries.StartDate= New System.DateTime(2002,1,1,0,0,0)
Chart.DefaultSeries.EndDate = New System.DateTime(2002,1,31,23,59,59)
'Add a series
Chart.Series.Name="Items"
Chart.Series.SqlStatement= "SELECT OrderDate,Sum(Quantity) AS CountOfQuantity, Name FROM Orders WHERE OrderDate >= #STARTDATE# AND OrderDate <= #ENDDATE# GROUP BY Orders.OrderDate, Orders.Name ORDER BY Orders.OrderDate"
Chart.Series.SplitByLimit="5"
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 + -