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
延伸阅读
文章来源于领测软件测试网 https://www.ltesting.net/
