用ASP生成二维饼图

最新推荐文章于 2010-11-05 15:05:00 发布

11830

最新推荐文章于 2010-11-05 15:05:00 发布

阅读量1.1k

点赞数

分类专栏： ASP 文章标签： asp vbscript microsoft generator object html

本文链接：https://blog.csdn.net/11830/article/details/8921

版权

ASP 专栏收录该内容

23 篇文章 0 订阅

订阅专栏

<%@ Language=VBScript %>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY>
<OBJECT classid="clsid:3A2B370C-BA0A-11D1-B137-0000F8753F5D"
id=MSChart1 style="LEFT: 0px; TOP: 0px" VIEWASTEXT height=300 width=300></OBJECT>
<SCRIPT LANGUAGE="VBScript">
<%
Set objConn = Server.CreateObject("ADODB.Connection")
objconn.ConnectionString = "DSN=AdvWorks"
objConn.Open
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.ActiveConnection = objConn
objRS.CursorLocation = 3
objRS.Open("select OrderDetailID,UnitPrice from Order_Details")
i=1
Response.Write "Const num = " & objrs.RecordCount & vbCr
Response.Write "Dim ID(" & objrs.RecordCount & ")" & vbCr
Response.Write "Dim Details(" & objrs.RecordCount & ")" & vbCr
Do While Not objRS.EOF
    Response.Write("ID(" & i & ")=""" & objRS(0) & """" & Chr(13))
    Response.Write("Details(" & i & ")=""" & objRS(1) & """" & Chr(13))
    i=i+1
    objRS.MoveNext
Loop
%>
MSChart1.TitleText = "Example"
MSChart1.RowCount = 1
MSChart1.ColumnCount = num
for i = 1 to num
    MSChart1.Column = i
    MSChart1.ColumnLabel = ID(i)
next
MSChart1.chartType = 14 '14是二维饼图,拟合曲线我还不知道怎么画
MSChart1.ShowLegend = True
MSChart1.ChartData = Details
</SCRIPT>

</BODY>
</HTML>

11830

关注

0
点赞
踩
0

收藏

觉得还不错? 一键收藏
1
评论
用ASP生成二维饼图

id=MSChart1 style="LEFT: 0px; TOP: 0px" VIEWASTEXT height=300 width=300>Set objConn = Server.CreateObject("ADODB.Connection")objconn.ConnectionString = "DSN=AdvWorks"objConn.OpenSet objRS = Server.Cre
复制链接

扫一扫