📄 aspchrt1.asp
字号:
<html>
<head>
<title>AspChart组件示例(条形图)</title>
</head>
<body>
<blockquote>
<center>
<h2>AspChart组件示例(条形图)</h2>
<%
Dim Chart
cNone = 0
cBar = 1
cRectGradient =6
Set Chart = Server.CreateObject ("ASPChart.Chart")
Chart.AddSeries (cBar)
Chart.AddValue 200, "标准", vbBlue
Chart.AddValue 233, "增强 ", vbRed
Chart.AddValue 260, "免费", vbGreen
Chart.BarStyle = cRectGradient
Chart.ChartTitleAdd ("简单条形图")
Chart.ChartTitleFont.Size = 20
Chart.ChartTitleFont.Name = "Times New Roman"
Chart.ChartTitleFont.Italic = true
Chart.ChartTitleFont.Bold = true
Chart.BevelOuter = cNone
Chart.GradientVisible = true
Chart.GradientStartColor = vbWhite
Chart.GradientEndColor = vbYellow
Chart.Height = 300
Chart.Width = 500
Chart.FileName = "c:\inetpub\wwwroot\images\smpchrt1.jpg"
Chart.SaveChart
Response.Write "<img src=""/images/smpchrt1.jpg"">"
Set Chart = nothing
%>
</center>
</blockquote>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -