在B/S中,如何将用户查询的结果以曲线图的形式显示?如果不用COM,有没有其他方法?

请各位不吝指教.

解决方案 »

  1.   

    我也不想用activeform,我知道这样什么都可以做.除了这样子作之外有没有什么办法?请各位高手指点!!
      

  2.   

    我见过别人用applet 实现这个功能。
      

  3.   

    使用Excel的例子，看一下就明白了
    <HTML>
    <HEAD>
    <META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
    <TITLE>将图表数据源绑定到电子表格</TITLE>
    </HEAD>
    <BODY style="font-size:9pt;"> 
    <b>下面的电子表格数据可在客户端修改
    <br>
    修改后相应的图表可自动更新</b>
    <br>
    <!-- Spreadsheet Control -->
    <OBJECT id=Spreadsheet1 
    classid="clsid:0002E510-0000-0000-C000-000000000046" > 
    </OBJECT>
    <!-- Chart Control -->
    <p>
    <object classid="clsid:0002E500-0000-0000-C000-000000000046" 
    id="ChartSpace1"
    style="HEIGHT: 300; WIDTH: 350">
    </object>
    <object classid="clsid:0002E500-0000-0000-C000-000000000046" 
    id="ChartSpace2"
    style="HEIGHT: 300; WIDTH: 400">
    </object>
    <!-- Script for loading the chart -->
    <script language=VBScript>Sub Window_onLoad()
      CreateSheet(Spreadsheet1)
      BindChartToSpreadsheet Chartspace1, Spreadsheet1, _
      "a2:a4", "b1:c1", "b2:c4",False
      BindChartToSpreadsheet Chartspace2, Spreadsheet1, _
      "b1:c1", "a2:a4", "b2:c4",True 
    End Sub'创建电子表格
    Sub CreateSheet(cspace)
      dim ch(25),months,sales
      for i=0 to 25
        ch(i)=chr(asc("A")+i)
      next
      months=array("","一月份","二月份")
      sales=array("北京",30000,32000,"上海",34000,40000,"广州",40000,45000)  dim cols,rows,col,row
      cols=LenOfArray(months)
      rows=LenOfArray(sales)/LenOfArray(months)+1
      cspace.ScreenUpdating=False
      cspace.ActiveSheet.Protection.Enabled=False
      cspace.AutoFit=True
      cspace.DisplayColHeaders=False
      cspace.DisplayRowHeaders=False
      cspace.DisplayToolbar=False
      cspace.TitleBar.Caption="各城市销售情况"
      for row=1 to rows
       for col=1 to cols
         if row=1 then
           cspace.Cells(row,col).value=months(col-1)
         else
           cspace.Cells(row,col).value=sales((row-2)*cols+col-1)
           if col<>1 then
             cspace.Cells(row,col).NumberFormat="$#,##0"
             cspace.Cells(row,col).Locked=False
           end if
         end if
        next
      next  cspace.ViewableRange="A1:"&ch(cols-1)&rows
      cspace.ActiveSheet.Protection.Enabled=True
      cspace.ScreenUpdating=True
    End Sub'返回数组长度
    Function LenOfArray(objArray)
      if not isArray(objArray) then
      LenOfArray=0
      exit function
      end if
      LenOfArray=UBound(objArray)-Lbound(objArray)+1
    End Function'将图表数据源绑定到电子表格
    Sub BindChartToSpreadsheet(cspace, sheet, srngSeries, srngCategories, _
      srngValues, fSeriesInCols)
      Dim cht 
      Dim ser 
      Dim rngValues   set c = cspace.Constants  cspace.Clear  '绑定数据源
      set cspace.DataSource = sheet  set cht = cspace.Charts.Add()
      cht.HasLegend = True  cht.SetData c.chDimSeriesNames, 0, srngSeries
      cht.SetData c.chDimCategories, 0, srngCategories  set rngValues = sheet.Range(srngValues)  for each ser in cht.SeriesCollection
        if fSeriesInCols then
          ser.SetData c.chDimValues, 0, _
          rngValues.Columns(ser.Index + 1).Address
        else
          ser.SetData c.chDimValues, 0, _
          rngValues.Rows(ser.Index + 1).Address
        end if
        set dl=ser.DataLabelsCollection.Add()
        dl.Font.Size = 9
        dl.Font.Color = "red"
        dl.Position = c.chLabelPositionTop
      next 
      FormatChart c,cht
    End Sub '设置图表显示字体及数据轴格式
    Sub FormatChart(c,cht)
      cht.Legend.Font.size=9
      set ax = cht.Axes(c.chAxisPositionBottom)
      ax.Font.Size = 9 
      set ax = cht.Axes(c.chAxisPositionLeft)
      ax.Font.Size = 9
      ax.NumberFormat = "$#,##0"
    End Sub
    </script>
    <%
      Window_onLoad
    %>
    </body>
    </html>
      

  4.   

    用ASP.net自己画，就象普通的应用程序一样，客户端输出的是图片