Char FX 7 用法

dim sql set cn=Server.CreateObject("ADODB.Connection") set rs=server.createobject("ADODB.Recordset") ''''''''''''''''''''''''''''''''''''''''''''''''''创建 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 '''''''''''''''''''''''''''''''''''''''''''''''从数据库中得到记录集 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 '''''''''''''''''''''''''''''''''''''''''''给动态数组赋值 rs.Close cn.Close %> redim dataarr(300) ii=<%=num%> <%for i=1 to num %> dataarr(<%=i%>)=<%=arr(i)%> <%next%> '''''''''''''''''''''''''''''''''''''''''''''服务端传值给客户端动态数组 DChartfx1.ThisSerie =0'''''''''''''''''''''''chartfax是一个BORLAND公司的控件。首先 指定SERIES。注意：有时使用会出现异样的冲突。 DChartfx1.ToolBar = true'''''''''''''''''''''CHART的工具箱为真 DChartfx1.ChartType =1 '''''''-------------chart的显示类型为曲线 dChartfx1.OpenDataEx 1,1,1''''''------------用OPENDATAEX方法注意：它的三个参数变量。第一个为赋值类型，1 为X值， ''''''''''''''''''第二个为SERIR的个数，第三个是为X赋值的个数。初是化为 1。 for i=1 to ii DChartfx1.Value(i-1)=dataarr(i)'10*i''''''''''''把动态数组的值X轴写值 DChartfx1.KeyLeg(i)= i ''''''''''''''''''''-----X轴的标签 next DChartfx1.CloseData 1'''''''''''''''''''''''close the communications channel end sub