求一个可以连接数据库的曲线图代码
找了几个代码 都不能连接数据库
我想实现的是根据数据库相关表的数据来动态显示出一个曲线图
请大家帮忙 谢谢~~~
问题点数：50、回复次数：7Top
1 楼54duke（萝卜肉丁）回复于 2005-01-07 15:12:35 得分 0
自己顶一下先Top
2 楼sfply（随风飘零叶）回复于 2005-01-09 11:18:13 得分 10
这个很容易啊，我用的就是龚茗的VMLTop
3 楼ynsugar（大眼）回复于 2005-01-09 12:08:01 得分 0
龚茗的VML，在哪里？网址？Top
4 楼boywind（做个 成功 自信 快乐 的自己``````）回复于 2005-01-09 13:53:23 得分 10
如何将SQL数据库里的数据生成图形报表
生成 饼状图，直线图，曲线图等的做法。最好能附带实例。
VML实现的图表
'作者：龚鸣(Passwordgm) QQ:25968152 MSN:passwordgm@sina.com Email:passwordgm@sina.com
'本人非常愿意和ASP,VML,FLASH的爱好者在HTTP://topclouds.126.com进行交流和探讨
'版本2.0 最后修改日期 2003-7-22
'非常感谢您使用这个函数，请您使用和转载时保留版权信息，这是对作者工作的最好的尊重。
放在别人的空间上,请要需要的朋友快快下载..
感谢龚鸣(Passwordgm)大哥!
柱状图
http://www.dqcn.net/net/CSDN/t17.asp
折线图
http://www.dqcn.net/net/CSDN/t18.asp
饼图
http://www.dqcn.net/net/CSDN/t19.asp
下载
http://www.dqcn.net/net/CSDN/Graphic.rar
Top
5 楼whb147（苦乐随缘）回复于 2005-01-09 14:28:45 得分 5
我用过，很好用的
还有，就是用
OWCTop
6 楼cnetnet（虫子）回复于 2005-01-09 14:48:59 得分 10
http://www.cnetnet.net/count/info
里面有几种曲线图，如果觉得OK，那下载源文件看一看，里面用的也是连接数据库动态生成XML的
下载地址：
http://www.cnetnet.net/count/count.exeTop
7 楼whb147（苦乐随缘）回复于 2005-01-09 15:38:35 得分 15
<%
function draw(conn,ssql,title,axy,picname)
Dim m_rs '记录集对象
Dim m_cspace 'OWC.ChartSpace object
Dim m_fso '文件系统对象
Dim m_objBinaryFile '二进值文件流对象
Dim c 'OWC 常量对象
Dim cht '图表临时参考变量
Dim ax '数轴的临时参考变量
Dim axs
Dim fnt 'OWCFont字体的临时参考变量
Dim sFullFileName '输出GIF文件的临时参考路径
'创建一个ADO链接和记录集对象
set m_rs = Server.CreateObject("ADODB.Recordset")
m_rs.CursorLocation = 3 'adUseClient
m_rs.Open sSQL, conn, 3 'adOpenStatic
dim colorArr
colorArr = Array("red","blue","black","purple","yellow","orange","green","lightgreen")
'增加一个带有图例的簇列图表
set m_cspace = server.CreateObject("OWC.Chart") ''绑定数据源
set cht = m_cspace.Charts.Add()
set c = m_cspace.Constants
m_cspace.DataSource = m_rs
cht.Type =6 ''改变线条类型
'设置图表的数据源，月份添加到分类组，统计作为图表中各项取值
m_cspace.Charts(0).Axes(c.chAxisPositionLeft).Line.Weight = 1
Set axs = m_cspace.Charts(0).Axes(c.chAxisPositionLeft)
axs.HasMajorGridlines = true
axs.MajorGridlines.Line.Color = &HCCCCCC
m_cspace.Border.Weight = 0
m_cspace.Charts(0).PlotArea.Interior.Color = &HFFFFFF
for i=0 to ubound(serverArr)-1
'response.Write(serverArr(i,0))
m_cspace.Charts(0).SeriesCollection.Add
m_cspace.Charts(0).SeriesCollection(i).SetData c.chDimSeriesNames, -1, serverArr(i)
m_cspace.Charts(0).SeriesCollection(i).SetData c.chDimCategories, 0, "dd"
m_cspace.Charts(0).SeriesCollection(i).SetData c.chDimValues, 0, "ss"
m_cspace.Charts(0).SeriesCollection(i).Line.Weight = 0 ''线条宽度
if i<6 then
m_cspace.Charts(0).SeriesCollection(i).Line.Color=colorArr(i) ''线条颜色,颜色只定义了6种，过多的需要再改
else
m_cspace.Charts(0).SeriesCollection(i).Line.Color=&Hffff00+100*(i+6) ''线条颜色
end if
m_cspace.Charts(0).SeriesCollection(i).DataLabelsCollection.Add() ''添加节点上的数据，默认为flase,这是折线的表示
m_cspace.Charts(0).SeriesCollection(i).DataLabelsCollection(0).HasValue=true
next
m_cspace.Charts(0).HasLegend = True
'增加一个图表标题，并格式化标题
cht.HasTitle = True
cht.Title.Caption = title
set fnt = cht.Title.Font
fnt.Name = "宋体"
fnt.Size = 10
fnt.Bold = True
'对分类轴添加标题，并格式化标题
set ax = cht.Axes(c.chAxisPositionBottom)
ax.HasTitle = True
ax.Title.Caption = axy
set fnt = ax.Title.Font
fnt.Name = "宋体"
fnt.Size = 9
fnt.Bold = True
'对数值轴添加标题，并格式化标题
set ax = cht.Axes(c.chAxisPositionleft)
'ax.NumberFormat = "Currency"
ax.HasTitle = True
ax.Title.Caption = "点击量"
set fnt = ax.Title.Font
fnt.Name = "宋体"
fnt.Size = 9
fnt.Bold = True
fnt.color="red"
set m_fso = CreateObject("Scripting.FileSystemObject")
sFullFileName = Server.MapPath(".") & "\"&picname
if m_fso.FileExists(sFullFileName) then
m_fso.DeleteFile(sFullFileName)
end if
ShowFileList Server.MapPath(".")&"\chart\",picname
m_cspace.ExportPicture sFullFileName, "GIF", 950, 500
response.write "<table align='center'><tr><td><img src='"&picname&"'></td></tr><table>"
response.Flush()
end function
Function ShowFileList(folderspec,filename)
Dim fso, f, f1, fc
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(folderspec)
Set fc = f.Files
For Each f1 in fc
sFullFileName = Server.MapPath(".") & "\chart\" &f1.name
if (fso.FileExists(sFullFileName) and sFullFileName<>Server.MapPath(".") &"\"&filename )then
fso.DeleteFile(sFullFileName)
end if
Next
End Function
sql="select name as dd,count(hit) as ss from tablename group by name "
draw conn,sql,title,"省份","chart\yhitdraw_"&timer&".gif"%>Top
