仓酷云

标题: ASP编程：利用AspImage制造图形(一) [打印本页]

作者: 深爱那片海 时间: 2015-1-16 22:29
标题: ASP编程：利用AspImage制造图形(一)
ASP在国内异常流行，因为国内大多使用的是盗版的Windows和盗版的SQLServer，而ASP＋COM＋SQLServer实际上也是一种不错的搭配，其性能也不输于PHP+MYSQL，特别是Windows系统和SQLServer都有图形界面，比APACHE和MYSQL易于维护，因此对于不重视知识产权的国家来说也是一种不错的选择。好久没有给人人带来新的文章了，比来豆腐忙于公司的营业，怠慢了列位伴侣，在这里给人人先说一声
对不起了，没有举措，豆腐也要生存呀。
aspImage是serverobjects站点上十分好的一个组件，它可使我们使用Asp完成良多关于图形的处置功效。
好比，豆腐在比来的项目中就必要对用度举行统计，要画柱图，饼图，等等，都必要用到这个组件。
这个组件自己没有内置柱图的功效，我们必要本人做如许的函数，仍是老例子，我们先来看看代码吧。
FunctionDrawPillar(arrNum)
这个函数的功效是天生一个柱图
**************以下是变量界说********************
dimarrColor(13)
dimarrNum1()
dimi
dimintX
dimintY
--------------以下是代码入手下手--------------------
i=0
arrColor(i)=RGB(255,255,255)
i=i+1
arrColor(i)=RGB(255,255,0)
i=i+1
arrColor(i)=RGB(255,0,255)
i=i+1
arrColor(i)=RGB(0,255,255)
i=i+1
arrColor(i)=RGB(255,0,0)
i=i+1
arrColor(i)=RGB(0,255,0)
i=i+1
arrColor(i)=RGB(0,0,255)
i=i+1
arrColor(i)=RGB(255,255,255)
i=i+1
arrColor(i)=RGB(255,255,0)
i=i+1
arrColor(i)=RGB(255,0,255)
i=i+1
arrColor(i)=RGB(0,255,255)
i=i+1
arrColor(i)=RGB(255,0,0)
i=i+1
arrColor(i)=RGB(0,255,0)
i=i+1
arrColor(i)=RGB(0,0,255)
i=i+1

intMax=GetMaxY(arrNum)

SetImage=Server.CreateObject("AspImage.Image")
Image.MaxX=620
Image.MaxY=300

intRatio=(Image.MaxY-40)/intMax

Image.GradientTwoWayrgb(41,137,204),vbWhite,0,1

Image.BackgroundColor=vbBlue
Image.FrameRect15,15,Image.MaxX-15,Image.MaxY-15

Y轴
Image.X=40+2
Image.Y=15
Image.LineTo40+2,Image.MaxY-20
Image.TextOut"↑",40-5,14,false
Image.TextOut"单元：元",15,0,false
fori=1to10
Image.TextOut"-",40,((Image.MaxY-40)/10)*i,false
Image.TextOutcDBL((intMax/10))*(i),0,((Image.MaxY-40)/10)*(11-i),false
next

X轴
Image.X=Image.MaxX-15
Image.Y=Image.MaxY-20
Image.LineTo40,Image.MaxY-20

Image.TextOut">",Image.MaxX-15-4,Image.MaxY-20-9,false
fori=1to12
Image.TextOuti&"月",40+i*(30+15)-20,Image.MaxY-20,false
next

ifintMax=0then
intMax=1
endif

一年有12个月，发生12个色彩
intX=40

fori=0to11
Image.BackgroundColor=arrColor(i)
Image.RectangleintX+20,Image.MaxY-20,intX+50,Image.MaxY-20-arrNum(i)*intRatio
Image.TextOutarrNum(i),intX+20,Image.MaxY-32-arrNum(i)*intRatio,false
intX=intX+30+15
next
Image.FileName=server.MapPath("http://edu.cnzz.cn/NewsInfo/test.jpg")
Image.SaveImage

setImage=nothing
Response.Write"<imgsrc=http://edu.cnzz.cn/NewsInfo/test.jpg>"
EndFunction

functionGetMaxY(arrNum)
这个函数的功效是失掉数组中最年夜的数字
***************以下是变量界说************
dimi
dimintMax存放器
---------------以下是代码入手下手------------
intMax=0
fori=0toUBOUND(arrNum)
ifcDbl(intMax)<cDBL(arrNum(i))then
intMax=arrNum(i)
endif
Next

GetMaxY=intMax
EndFunction

我们经由过程代码SetImage=Server.CreateObject("AspImage.Image")失掉一个AspImage的实例，如今
我们就能够使用AspImage供应给我们的动听功效了。
Image.MaxX=620
Image.MaxY=300
我们能够设定我们必要画的图形的地区。
Image.GradientTwoWayrgb(41,137,204),vbWhite,0,1
这是一个十分十分好的办法，我们能够给这个图片的背静增加一个渐进添补的色彩。

Y轴
Image.X=40+2
Image.Y=15
Image.LineTo40+2,Image.MaxY-20
Image.TextOut"↑",40-5,14,false
Image.TextOut"单元：元",15,0,false
fori=1to10
Image.TextOut"-",40,((Image.MaxY-40)/10)*i,false
next

这段代码是一个画Y轴的代码，不要小视这个"↑",豆腐花了很长的工夫才弄定的。：）
X轴
Image.X=Image.MaxX-15
Image.Y=Image.MaxY-20
Image.LineTo40,Image.MaxY-20

Image.TextOut">",Image.MaxX-15-4,Image.MaxY-20-9,false
X轴绝对来讲就复杂多了。

一年有12个月，发生12个色彩
intX=40

fori=0to11
Image.BackgroundColor=arrColor(i)
Image.RectangleintX+20,Image.MaxY-20,intX+50,Image.MaxY-20-arrNum(i)*intRatio
Image.TextOutarrNum(i),intX+20,Image.MaxY-32-arrNum(i)*intRatio,false
intX=intX+30+15
next
这端代码是终极天生柱图的代码，详细我就不注释了。
转自：静态网制造指南www.ckuyun.comASP最大的缺点在于网络的安全性和可靠性，企业将经营数据放在开放的平台上，最大的担忧就是如何保证这些数据不被其他人破坏。

作者: 爱飞 时间: 2015-1-19 14:51
没有坚实的理论做基础，那么我们连踏入社会第一步的资本都没有，特别对于计算机专业的学生学好专业知识是置关重要的。在这里我侧重讲一下如何学习ASP，从平时的学习过程中。

作者: 海妖 时间: 2015-1-25 10:37
用户端的浏览器不需要提供任何别的支持，这样大提高了用户与服务器之间的交互的速度。

作者: 分手快乐 时间: 2015-2-2 21:42
先学习用frontpage熟悉html编辑然后学习asp和vbscript建议买书进行系统学习

作者: 飘灵儿 时间: 2015-2-8 07:11
我就感觉到ASP和一些常用的数据库编程以及软件工程方面的思想是非常重要的。我现在也在尝试自己做网页，这其中就用到了ASP，我想它的作用是可想而知的。

作者: 简单生活 时间: 2015-2-24 23:16
以HTML语言整合(HTML负责界面上，ASP则负责功能上)形成一个B/S(浏览器/服务器)模式的网页程序。

作者: 不帅 时间: 2015-3-7 13:51
ASP主要是用好六个对象，其实最主要的是用好其中两个：response和request，就可以随心所欲地控制网页变换和响应用户动作了。

作者: 蒙在股里 时间: 2015-3-15 07:32
没有坚实的理论做基础，那么我们连踏入社会第一步的资本都没有，特别对于计算机专业的学生学好专业知识是置关重要的。在这里我侧重讲一下如何学习ASP，从平时的学习过程中。

作者: 小女巫 时间: 2015-3-21 21:22
那么，ASP.Net有哪些改进呢？

欢迎光临仓酷云 (http://ckuyun.com/)