 |
|
|
 首页 |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
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 返回类别: 教程 上一教程: ASP项目中的公共翻页模块 下一教程: 在一个ASP页面停留的多少时间的程序 您可以阅读与"CHARTFX用法"相关的教程: · FILESYSTEMOBJECT组件的用法示例 · DATEDIFF的用法 · GLOBAL.ASA文件用法大全 · SESSION的用法详细解说 · 介绍一下GETROWS的用法 |
  |
| 快精灵印艺坊 版权所有 |
首页 会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店
|
||
