|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
ASP由于使用了COM组件所以它会变的十分强大,但是这样的强大由于WindowsNT系统最初的设计问题而会引发大量的安全问题。只要在这样的组件或是操作中一不注意,哪么外部攻击就可以取得相当高的权限而导致网站瘫痪或者数据丢失;创立|统计|图表上面给出了一个通用的函数及其用例,请参考。<%
REM起首我们计划一个ShowCart函数,个中
REMaValues是一个数值数组
REMaLables是横坐标的标号
REMstrTitle是这个统计图的题目
REMstrXAxisLableX轴的标签
REMstrYAxisLableY轴的标签
SubShowChart(ByRefaValues,ByRefaLabels,ByRefstrTitle,ByRefstrXAxisLabel,ByRefstrYAxisLabel)
你能够任意改动的图形常数
单元是屏幕像素点
ConstGRAPH_WIDTH=450图形宽度
ConstGRAPH_HEIGHT=250图形
ConstGRAPH_BORDER=5坐标线宽度
ConstGRAPH_SPACER=2统计条之间的间隔
ConstTABLE_BORDER=0
变量声明
DimI
DimiMaxValue
DimiBarWidth
DimiBarHeight
获得aValues最年夜值
iMaxValue=0
ForI=0ToUBound(aValues)
IfiMaxValue<aValues(I)TheniMaxValue=aValues(I)
NextI
盘算每条图形的宽度
iBarWidth=(GRAPH_WIDTH(UBound(aValues)+1))-GRAPH_SPACER
入手下手画图
%>
<TABLEBORDER=<%=TABLE_BORDER%>CELLSPACING=0CELLPADDING=0>
<TR>
<TDCOLSPAN=3ALIGN=center><H2><%=strTitle%></H2></TD>
</TR>
<TR>
<TDVALIGN=center><B><%=strYAxisLabel%></B></TD>
<TDVALIGN=top>
<TABLEBORDER=<%=TABLE_BORDER%>CELLSPACING=0CELLPADDING=0>
<TR>
<TDROWSPAN=2>HEIGHT=<%=GRAPH_HEIGHT%>></TD>
<%
对数组一切数值举行轮回,绘制条形图!
ForI=0ToUBound(aValues)
iBarHeight=Int((aValues(I)/iMaxValue)*GRAPH_HEIGHT)
由于扫瞄器会疏忽0高度的条形图,以是用1取代!
IfiBarHeight=0TheniBarHeight=1
%>
<TDVALIGN=bottom>HEIGHT=<%=iBarHeight%>ALT=<%=aValues(I)%>></A></TD>
<%
NextI
%>
</TR>
<TR>
<TDCOLSPAN=<%=(2*(UBound(aValues)+1))+1%>><IMGSRC=http://www.163design.net/a/y/images/spacer_black.gifBORDER=0WIDTH=<%=GRAPH_BORDER+((UBound(aValues)+1)*(iBarWidth+GRAPH_SPACER))%>HEIGHT=<%=GRAPH_BORDER%>></TD>
</TR>
<%反省横坐标数组是不是无效!%>
<%IfIsArray(aLabels)Then%>
<TR>
<TD><!--留点空间--></TD>
<%ForI=0ToUBound(aValues)%>
<TD><!--留点空间--></TD>
<TDALIGN=center><FONTSIZE=1><%=aLabels(I)%></FONT></TD>
<%NextI%>
</TR>
<%EndIf%>
</TABLE>
</TD>
</TR>
<TR>
<TDCOLSPAN=2><!--使下一个TD元素居中--></TD>
<TDALIGN=center><BR><B><%=strXAxisLabel%></B></TD>
</TR>
</TABLE>
<%
EndSub
%>
<%
一个带有横坐标的条形图
ShowChartArray(6,10,12,18,23,26,27,28,30,34,37,45,55),_
Array("P1","P2","P3","P4","P5","P6","P7","P8","P9",_
"P10","P11","P12","P13"),"一连几个月的发卖额","X轴","Y轴"
空行
Response.Write"<BR>"&vbCrLf
Response.Write"<BR>"&vbCrLf
Response.Write"<BR>"&vbCrLf
机关一个由随机数构成的数组
DimI
DimaTemp(49)
Randomize
ForI=0to49
aTemp(I)=Int((50+1)*Rnd)
NextI
由随机数组天生的条形图
ShowChartaTemp,"这不是一个数组!","随机条形图","序号","随机数"
%></p>缺点:安全性不是太差了,还行,只要你充分利用系统自带的工具;唯一缺点就是执行效率慢,如何进行网站优化以后,效果会比较好。 |
|