当前位置:首页 > 日记 > 正文

用asp生成图

用asp生成图
脚本语言=VBscriptrunat=server
功能makechart(标题,Numarray labelarray,颜色,背景颜色,bordersize、最大高度、最大,addvalues)
功能makechart版本3

Jason Borovoy
标题:图表标题
Numarray:图表的值的数组
labelarray:标签对应的值的数组必须现在的我
如果NULL NULL颜色使用不同的酒吧,如果不是NULL所有
背景颜色背景颜色。
bordersize:边框的大小或0无边界。
最大高度:图表不包括标签的最大高度
最大:每列的宽度
addvalues:真或假,如果你想实际值显示
当你调用函数使用:response.write makechart(参数)

其实returnstring会是一个更好的名字
昏暗的tablestring
max是最大表值
昏暗的最大
最大长度最大长度的标签
昏暗的最大长度
昏暗的tempnumarray
昏暗的templabelarray
昏暗的heightarray
昏暗的colorarray
价值乘数表值以获得相关尺寸
昏暗的乘数
如果数据有效
如果最大高度> 0 > 0最大和UBound(labelarray)= UBound(Numarray)然后
colorarray:每一条的颜色如果更多的酒吧然后颜色循环
如果你不喜欢我的选择,改变它们,添加它们,删除
colorarray =阵列(红
templabelarray = labelarray
tempnumarray = Numarray
heightarray =阵()
max = 0
最大长度= 0
tablestring =表的背景颜色= 背景边界= bordersize _
> > > < < TR TD表格边框=0cellspacing =1cellpadding =0>vbcrlf
获得最大值
在tempnumarray每个东西
如果东西>马克斯,那么max =
下一个
计算乘数
乘数=最大高度和最大
填充数组
反= 0,UBound(tempnumarray)
如果tempnumarray(计数器)=最大然后
ReDim Preserve heightarray(计数器)
Heightarray(计数器)=最大高度
其他的
ReDim Preserve heightarray(计数器)
Heightarray(计数器)= tempnumarray(计数器)×乘数
最后如果
下一个
设置标题
tablestring = tablestring<< TR >日合并单元格=UBound(tempnumarray)+ 1
字体脸=宋体、Arial、黑体大小=1> 标题<< /日> < / _
vbcrlfvbcrlf
循环遍历值
反= 0,UBound(tempnumarray)
tablestring =TD tablestring vbtab垂直对齐方式为底部对齐=中心>_
字体脸=宋体、Arial、黑体=1
表border=0cellpadding =0width=最大> > _
TR > < TD垂直对齐=底背景颜色=
如果没有空(色)然后
如果颜色是用这种颜色的酒吧
tablestring = tablestring颜色
其他的
如果不是通过循环colorarray
tablestring = tablestring colorarray(计数器模式(UBound(colorarray)+ 1))
最后如果
tablestring tablestring = height=_
圆(heightarray(计数器),2)IMG src=图.webp>width=1height=1

如果addvalues然后
打印实际值
tablestring = tablestring
tempnumarray(计数器)
最后如果
tablestring = tablestring / TD >vbcrlf
下一个

tablestring = tablestring / TR >vbcrlf
马克斯长度计算标签
在labelarray每个东西
如果len(东西)> = MaxLength然后MaxLength = Len(的东西)
下一个
打印标签并设置每个最大长度
在labelarray每个东西
tablestring =TD tablestring vbtab对齐=中心> >_
字体=Verdana,Arial,Helvetica=1>
数= 0轮((最大长度-莱恩(东西)) / 2)
tablestring = tablestring
下一个
如果maxLength mod 2 <> 0 tablestring = tablestring
tablestring = tablestring东西
数= 0轮((最大长度-莱恩(东西)) / 2)
tablestring = tablestring
下一个
tablestring = tablestring / TD >vbcrlf
下一个

tablestring = tablestring / /表> < > < > TD / /表> vbcrlf TR
makechart = tablestring
其他的
响应。写误差函数makechart:最大和MaxLength都是更大的_
然后0个或多个标签不等于数值
最后如果
端功能
模糊的东西
昏暗的labelstuff
演示1
=阵列(5、30)
labelstuff =阵列(北京
响应。写makechart(演示1

<脚本>

相关文章

迅雷会员:云服务打造高效网络生活

迅雷会员:云服务打造高效网络生活

云服务,迅雷,高效,网络生活,会员,说到迅雷会员,也许每个人的第一印象就是法拉利的引擎像加快下载的确,加速下载可以说是迅雷会员的核心功能,但在大数据时代,迅雷会员有很多美好的今天,的功能。小编辑会读给大家。 云加速使下载速度更快 迅雷会…

在win7不能生活的作家被插入到外部

在win7不能生活的作家被插入到外部

网络,作家,被插,电脑软件,上星期四,Win7旗舰版安装。当我们在星期五更新的爱的图片博客,我们惊奇的发现生活的作家没有选择插入网页中的图片时,点击图片win7下。 搜索后,终于找到了设在台湾的博客xzonisy,下载一个Live Writer插件,所有最新的修改…

雪丽的我最亲爱的被文化部杀害了。

雪丽的我最亲爱的被文化部杀害了。

文化部,亲爱,电脑软件,据新华社电,为了进一步规范网络音乐市场秩序,文化部决定进一步清理非法网络音乐产品,并在前一天公布了第三批网络音乐产品未经审查或备案的名单。 在文化,27部主管部门表示,文化部是网络音乐的主管部门。根据规定,文化部开…

这是所有的事情,iOS/Android开发者

这是所有的事情,iOS/Android开发者

开发者,这是,事情,电脑软件,iOS,苹果和三星的硬件间的专利诉讼战仍在如火如荼的进行,和应用水平还很平静。据国外消息,iOS开发者appigo天前Android开发者表示不满,而原因是商标做。 appigo强调它的持有者做商标,并stanlm是用文字做星际旅行做…

Windows7下的通用shell命令

Windows7下的通用shell命令

命令,通用,电脑软件,shell,Windows7系统比Vista和稳定性、兼容性、人性化都较好。在Windows7的shell命令行是很多用户都没有发现的另一个重要的更新,和Windows7的壳是win7系统控制台。谁都熟悉的命令行,使用键盘调用程序比鼠标更快更省力。用…

PPTV一周单击离婚前的规则

PPTV一周单击离婚前的规则

单击,规则,电脑软件,PPTV,的离婚前规则已经受观众欢迎因为它在11月27日PPTV网站直播,更多比一百万单次后24个小时就行了。一周的广播后,对单集累计播放几千万,和收视率保持稳定。 据预测,该剧有望刷新内地热播剧在网络上的点击记录,建立网络平…

关于如何解决Windows7爆音问题(三)

关于如何解决Windows7爆音问题(三)

音问,如何解决,电脑软件,互联网上的声明和测试结果表明,在Windows 7系统下有高清视频播放。问题是,但是Windows XP系统下没有类似的问题,这是Windows 7兼容性的问题吗答案是否定的。 的问题是,微软提供了更高的优先级在Windows 7系统的多媒体…

Windows7自定义登录界面

Windows7自定义登录界面

登录界面,自定义,电脑软件,以前提到的自定义操作都是基于系统直接提供的操作选项,所以不会有风险。接下来,我将给您一个小技巧,其中包括修改注册表和文件:自定义登录界面背景。 喜欢的壁纸,同样的画面总是油腻的很长一段时间,所以让我们开始改变…

禁止第三方使用iPhone和iPad来推广

禁止第三方使用iPhone和iPad来推广

意图,第三方,电脑软件,iPad,iPhone,iPhone是街机,和iPad占据了各种营销活动,人气最高的位置。苹果的触角从未像现在这么大。但是有一个非常令人震惊的消息:财富杂志称,苹果iPad、iPhone和iPhone的要求不得用于第三聚会礼品卡和其他促销活动,禁止…

XML空间的完整解释

XML空间的完整解释

解释,空间,完整,电脑软件,XML,提示:我把XSLT的核心部分从开始到主的空间解释上,希望您能积极参与讨论,谈谈您对空间的理解。 一个只对XML文件结构有一定理解能力的学者不适合初学者,请从上到下依次阅读。 对于HTML文件,空间并不重要;然而,对于XML…

许多业主喜欢节省100元下载和使用

许多业主喜欢节省100元下载和使用

下载,破解,节省,业主,地图,导航电子地图(英语:电子地图),数字地图,是一幅地图,利用计算机技术存储和查阅数字。导航电子地图信息存储方法,矢量图像存储的一般使用,地图缩放比例或旋转而不影响显示效果,早期使用位图存储、地图缩放比不了,现代电子导航…

微软写字楼再次曲线降价:130元降至

微软写字楼再次曲线降价:130元降至

曲线,写字楼,最低点,降至,历史,9月8日,微软中国公布了大一新生的促销活动,在其中用户可以得到3台微软Office 2007家庭和学生版398元安装许可证。这意味着办公室价格再次下跌130元/套的最低点。内容来自电脑硬件知识网络 值得注意的是,虽然新…

软件日记