aspchrt1.asp

来自「集合了学习asp的100个实例」· ASP 代码 · 共 39 行

ASP
39
字号
<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 + =
减小字号Ctrl + -
显示快捷键?