📄 aspchrt1.asp

📁 集合了学习asp的100个实例

💻 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 + -