用ASP生成二维饼图
来源:互联网 发布:安居客经纪人端口 编辑:程序博客网 时间:2024/04/26 01:35
<%@ 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>
- 用ASP生成二维饼图
- ASP生成二维饼图
- asp.net GridView生成二维表头
- asp.net生成饼图
- epay29用arraylist生成二维数组
- ASP.Net页面生成饼图
- 用Asp生成条形码
- 用Asp生成条形码
- 用Asp生成条形码
- 用asp生成rss
- 用Asp生成条形码
- 用ASP生成RSS
- 用asp生成excel...
- [转]Asp.net 实现条码生成,包含一维条码、二维条码
- Asp.net 实现条码生成,包含一维条码、二维条码
- Asp.net 实现条码生成,包含一维条码、二维条码
- 动态生成二维数组
- 动态生成二维数组
- 日记-记录我的日记
- 今天在医院听见孩子的心跳了,激动!
- 今天激活我的帐号,开始测试
- java线程接力演示
- The first blog.
- 用ASP生成二维饼图
- 开山第一篇
- Object-Relational Features of Oracle
- 没有人可以改变我的命运,除了我自己
- 用PHP函数解决SQL injection 作者:lm92 来源:CSDN
- 怎么去做
- ProgressBar 实现自定义显示进度值
- 二次开发MAP2000是遇到的问题
- 和我一起学习Linux编程(三)------------------工具篇