我想画个价格走势图(折线图),看了《ASP 2.0揭秘》里的第三方组件有个shotgraph组件但画出来的是柱状图(程序如下),不知该怎么改,还有别的什么组件能画这种图吗?

bibibi 2001-03-02 03:54:00
<% response.ContentType="image/jpeg"
set con=application("Cn")
sql="select top 10 * from ProductPrice "
set rs=con.execute(sql)
myArray=rs.GetRows

count=UBOUND(myArray,2)

for i=1 to count
if myArray(1,i)>maxValue then
maxValue=myArray(1,i)
end if
next

set g=createObject("shotgraph.image")
g.createImage 200,30*count,2
g.setColor 0,255,255,255
g.setColor 1,0,0,255
g.setBgColor 0
g.FillRect 0,0,200,30*count

g.SetBGColor 1
g.CreatePen "PS_SOLID",1,1
ypos=1
for i=1 to count
xpos=cINT(myArray(1,i)*(190/maxValue))
g.Rectangle 1,ypos,xpos,ypos+10
g.TextOut 1,ypos+12,myArray(0,i)
ypos=ypos+30
next

Response.BinaryWrite g.JpegImage(90,0,"")%>
我试过用owcchart发现好象有bug(移到另一台机子上就失灵了!)
...全文
135 5 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
amay 2001-03-11
  • 打赏
  • 举报
回复
给我50分,我将把源代码给你,我们的这个项目已实现,amay是不是有些!!?
我也没有办法,因为这两天amay没有得到分值!
amay 2001-03-11
  • 打赏
  • 举报
回复
owc的实现机制就是在s生成gif图片,c端显示图片路径,知道mapx,跟它实现机理一样:
oGraph.ExportPicture strPath ,"gif",750,400

----没错吧!
xjml 2001-03-11
  • 打赏
  • 举报
回复
我写了个用调用EXCEL在服务器端生成图表,然后以图片形式返回到客户端的程序.
我认为非常好,因为客户端不用装任何东西.
bibibi 2001-03-06
  • 打赏
  • 举报
回复
怎么问了这么久也没人知道?
amay(amay):我需要的是在服务器端生成图表,你有原代码吗?能否mail一份给我:bibilin@china.com
amay 2001-03-02
  • 打赏
  • 举报
回复
不会呀,我就用owc控件实现了,当然需要你加一点东西,如果给amay分,便会知道!
还有我想问你代码是放在服务器端吗?

28,409

社区成员

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧