马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
想法是和程序员的想法不一样的.至于为什么.大家去想一想.跟心理学有关的SimpleChartExample
利用很复杂哦,如许就能够了:
用Server.CreateObject创建工具
设置图表属性
挪用SaveChart办法保留到硬盘大概用Response.BinaryWriteChart.Image间接发送
上面这段代码是树模怎样创建一个柱图的:
ctBar=1
cNone=0
cGradient=6
rem**********************************************************************
rem*InstantiatetheChartcomponent
rem**********************************************************************
SetChart=Server.CreateObject("ASPChart.Chart")
rem**********************************************************************
rem*AddaBarserieswith3points
rem**********************************************************************
Chart.AddSeries(ctBar)
Chart.AddValue200,"Regular",vbBlue
Chart.AddValue233,"Enhanced",vbRed
Chart.AddValue260,"Free",vbGreen
Chart.BarStyle=cGradient
rem**********************************************************************
rem*SetthePanelColor,removetheOuterBevel
rem**********************************************************************
Chart.PanelColor=vbWhite
Chart.BevelOuter=cNone
Chart.ChartBGColor=vbWhite
rem**********************************************************************
rem*SettheWidthandHeightoftheimage
rem**********************************************************************
Chart.Height=300
Chart.Width=500
rem**********************************************************************
rem*Setthefilename,savetheimageandwritetheimagetag
rem**********************************************************************
Chart.FileName="d:inetpubwwwrootimagessmpchrt1.jpg"
也不晓得用Server.MapPath,不晓得是笨呢仍是图效力高。
Chart.SaveChart
Response.Write"<imgsrc=""http://edu.cnzz.cn/images/smpchrt1.jpg"">"
rem**********************************************************************
rem*Destroytheobject
rem**********************************************************************
SetChart=nothing
MultipleSeriesperChart
上面这段代码是树模怎样创建多列数据的图表的.
SetChart=Server.CreateObject("AspChart.Chart")
Randomize
Chart.AddSeries7CandleSeries
dblOpen=1000+Rnd(100)
forintCount=1to30
dblBase=Round(100*Rnd-50)
Chart.AddCandleNow+intCount,dblOpen,dblOpen+20,dblOpen-20,dblOpen+dblBase
dblOpen=dblOpen+dblBase
next
Randomize
Chart.AddSeries5如许再挪用一次AddSeries就能够再加一列数据了
dblOpen=1000+Rnd(100)
forintCount=1to30
dt=Now+intCount
dblBase=Round(100*Rnd-50)
Chart.AddXYdt,dblOpen,CStr(Month(dt))+"/"+_
CStr(Day(dt))+"/"+CStr(Year(dt)Mod100),vbRed
dblOpen=dblOpen+dblBase
next
再加一段间接输入到扫瞄器的例子吧:
Response.ContentType="image/JPEG"
DimChart
SetChart=Server.CreateObject("ASPChart.Chart")
Chart.AddSeries(ctBar)
Chart.AddValue200,"Regular",vbBlue
Chart.AddValue233,"Enhanced",vbRed
Chart.AddValue260,"Free",vbGreen
Chart.BarStyle=cGradient
Chart.PanelColor=vbWhite
Chart.BevelOuter=cNone
Chart.ChartBGColor=vbWhite
Chart.Height=300
Chart.Width=500
Response.BinaryWriteChart.Image
SetChart=nothing
使用filesystemobject,可以对服务器上的文件进行操作,浏览、复制、移动、删除等。有ado的支持,asp对数据库的操作非常得心应手。你甚至可以像使用本地数据库那样,管理远程主机上的数据库,对表格、记录进行各种操作。 |