昏暗的objchartspace
昏暗的objchart
昏暗的objseries
昏暗的objconn
昏暗的objrs
昏暗的C
昏暗的系列
昏暗的strchartabspath
昏暗的strchartrelpath
昏暗的strchartfile
strchartabspath = server.mappath（ /建立/温度）
strchartrelpath =温度

集objchartspace = server.createobject（OWC。图）
集objchart = objchartspace.charts.add（）
C = objchartspace常数集。

objchart型= c.chcharttypelinemarkers。
objchart.haslegend =真

集objconn = server.createobject（数据连接）
ObjConn。打开供应商= SQLOLEDB；数据源=，=；初始目录库；用户ID = myuid；密码= mypswd；
集objrs = server.createobject（ADODB。记录集）
集objrs.activeconnection = objconn
objrs.cursortype = adopenstatic
objrs.cursorlocation = aduseclient
objrs。打开选择*从成绩顺序测试
集objchartspace.datasource = objrs
objchart.setdata c.chdimseriesnames，0，学生
在objchart.seriescollection每个objseries
objseries.setdata c.chdimcategories，0，测试
objseries.setdata c.chdimvalues，0，得分
下一个

在objchart轴各轴。
axis.hastitle =真
如果轴型= c.chcategoryaxis然后。
axis.title.caption =测试
其他的
axis.title.caption =得分
最后如果
下一个

objchart.seriescollection（2）。interior.color =红色
objchart.seriescollection（2）。line.color =红色

strchartfile = exportcharttogif（objchartspace，strchartabspath，strchartrelpath）
响应。写

cleanupgif strchartabspath

objrs。关闭
集objrs =没有
集objconn =没有
集objseries =没有
集objchart =没有
集objchartspace =没有
%>