|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
缺点:安全性不是太差了,还行,只要你充分利用系统自带的工具;唯一缺点就是执行效率慢,如何进行网站优化以后,效果会比较好。<%@Language=VBScript%>
<HTML>
<HEAD>
<METANAME="GENERATOR"Content="MicrosoftVisualStudio6.0">
</HEAD>
<BODY>
<OBJECTclassid="clsid:3A2B370C-BA0A-11D1-B137-0000F8753F5D"
id=MSChart1style="LEFT:0px;TOP:0px"VIEWASTEXTheight=300width=300></OBJECT>
<SCRIPTLANGUAGE="VBScript">
<%
SetobjConn=Server.CreateObject("ADODB.Connection")
objconn.ConnectionString="DSN=AdvWorks"
objConn.Open
SetobjRS=Server.CreateObject("ADODB.Recordset")
objRS.ActiveConnection=objConn
objRS.CursorLocation=3
objRS.Open("selectOrderDetailID,UnitPricefromOrder_Details")
i=1
Response.Write"Constnum="&objrs.RecordCount&vbCr
Response.Write"DimID("&objrs.RecordCount&")"&vbCr
Response.Write"DimDetails("&objrs.RecordCount&")"&vbCr
DoWhileNotobjRS.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
fori=1tonum
MSChart1.Column=i
MSChart1.ColumnLabel=ID(i)
next
MSChart1.chartType=1414是二维饼图,拟合曲线我还不晓得怎样画
MSChart1.ShowLegend=True
MSChart1.ChartData=Details
</SCRIPT>
</BODY>
</HTML>优点:简单易学、开发速度快、有很多年“历史”,能找到非常多别人做好的程序来用、配合activeX功能强大,很多php做不到的asp+activeX能做到,例如银行安全控件 |
|