aspchrt1.asp

来自「100个经典的ASP程序」· 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>

aspchrt1.asp - 源码说明

本页面展示了「100个经典的ASP程序」中的 aspchrt1.asp 源码文件，采用 ASP 编程语言编写，共 39 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与100相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C

搜索代码Ctrl + F

全屏模式F11

增大字号Ctrl + =

减小字号Ctrl + -

显示快捷键?