上一篇：用ASP和SQL实现基于Web的事件日历 >>

用ASP生成二维饼图

　<%@ 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可逆算法 >>