|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
缺点:安全性不是太差了,还行,只要你充分利用系统自带的工具;唯一缺点就是执行效率慢,如何进行网站优化以后,效果会比较好。这是利用ActiveXControls的
<%@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></p>ASP是依赖组件的,能访问数据库的组件好多就有好多种,再有就是你微软的工具可是什么都要收钱的啊! |
|