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