|
Chart FX 7用法舉例： dim sql set cn=Server.CreateObject("ADODB.Connection") set rs=server.createobject("ADODB.Recordset") ''''''''''''''''''''''''''''''''''''''''''''''''''創(chuàng)建 timestr=Request.QueryString("stime") datano=Request.QueryString("datano") endtime=Request.QueryString("etime") sstring=Request.QueryString("string") '''''''''''''''''''''''''''''''''''''''''''取得變量 sql = "SELECT DISTINCT * From DATA_LOGS WHERE time >= '"& timestr &"' AND datano = '"& datano &"'" &"and time<'" & endtime & "'" cn.Open"dsn=123;uid=sa;pwd=" rs.Open sql, cn, 3,2 i = rs.RecordCount '''''''''''''''''''''''''''''''''''''''''''''''從數(shù)據(jù)庫中得到記錄集 if i =0 then response.end end if num=i rs.MoveFirst ReDim arr(i) For i = 1 To num If Not rs.EOF Then arr(i) = rs.Fields("value") / 1000 rs.MoveNext End If Next '''''''''''''''''''''''''''''''''''''''''''給動態(tài)數(shù)組賦值 rs.Close cn.Close %> redim dataarr(300) ii=<%=num%> <%for i=1 to num %> dataarr(<%=i%>)=<%=arr(i)%> <%next%> '''''''''''''''''''''''''''''''''''''''''''''服務(wù)端傳值給客戶端動態(tài)數(shù)組 DChartfx1.ThisSerie =0'''''''''''''''''''''''chartfax是一個(gè)BORLAND公司的控件。首先 指定SERIES。注意：有時(shí)使用會出現(xiàn)異樣的沖突。 DChartfx1.ToolBar = true'''''''''''''''''''''CHART的工具箱為真 DChartfx1.ChartType=1 '''''''-------------chart的顯示類型為曲線 dChartfx1.OpenDataEx 1,1,1''''''------------用OPENDATAEX方法注意：它的三個(gè)參數(shù)變量。第一個(gè)為賦值類型，1 為X值， ''''''''''''''''''第二個(gè)為SERIR的個(gè)數(shù)，第三個(gè)是為X賦值的個(gè)數(shù)。初是化為 1。 for i=1 to ii DChartfx1.Value(i-1)=dataarr(i)'10*i''''''''''''把動態(tài)數(shù)組的值X軸寫值 DChartfx1.KeyLeg(i)= i ''''''''''''''''''''-----X軸的標(biāo)簽 next DChartfx1.CloseData 1'''''''''''''''''''''''close the communications channel end sub |
|
|
