ASP网页编程之用纯ASP完成完善的WEB柱状图
对于中小型web应用来说,php有很强的竞争力,linux+apache+mysql+php(lamp)的组合几乎可以胜任绝大多数网站的解决方案,对于大型应用来讲,对于系统架构要求更高,需要有成熟的框架支持,jsp的struts是个不错的框架,国内介绍它的资料也非常多,应用逐渐广泛起来。asp就不用说了，web|柱状图用纯ASP完成完善的WEB柱状图<%
dimtotal(7,2)
total(1,1)=200
total(2,1)=800
total(3,1)=1000
total(4,1)=600
total(5,1)=1222
total(6,1)=3213
total(7,1)=8
total(1,2)="中国谋划报"
total(2,2)="雇用网"
total(3,2)="51Job"
total(4,2)="新平易近晚报"
total(5,2)="旧事晚报"
total(6,2)="北方周末"
total(7,2)="羊城晚报"
total_no=7
%>
<htmlxmlns:v="urn:schemas-microsoft-com:vml"xmlns:o="urn:schemas-microsoft-com:office:office">
<!-->
<style>
v:*{behavior:url(#default#VML)}
o:*{behavior:url(#default#VML)}
.shape{behavior:url(#default#VML)}
</style>
<!-->
<head>
<metahttp-equiv="Content-Type"content="text/html;charset=gb2312">
<title></title>
<linkrel="stylesheet"href="List.css"></head>
<bodytopmargin=5leftmargin=0scroll=no>
<%calltable1(total,20,15,470,200)%>
</body>
</html>
以上是挪用函数的例子，上面是所挪用的函数
<%
functiontable1(total,thickness,table_space,all_width,all_height)
参数寄义(传送的数组，柱子的厚度，柱子的距离，图表的宽度，图表的高度)
纯ASP代码天生图表函数1――柱状图
龚叫(Passwordgm)QQ:25968152MSN:passwordgm@sina.comEmail:passwordgm@sina.com
自己十分乐意和ASP,VML,FLASH的喜好者在HTTP://topclouds.126.com举行交换和切磋
版本1.0最初修正日期2003-7-10
十分感激您利用这个函数，请您利用和转载时保存版权信息，这是对作者事情的最好的尊敬。
dimtb_color(7,2)
tb_color(1,1)="#d1ffd1"
tb_color(2,1)="#ffbbbb"
tb_color(3,1)="#ffe3bb"
tb_color(4,1)="#cff4f3"
tb_color(5,1)="#d9d9e5"
tb_color(6,1)="#ffc7ab"
tb_color(7,1)="#ecffb7"
tb_color(1,2)="#00ff00"
tb_color(2,2)="#ff0000"
tb_color(3,2)="#ff9900"
tb_color(4,2)="#33cccc"
tb_color(5,2)="#666699"
tb_color(6,2)="#993300"
tb_color(7,2)="#99cc00"
response.write"<tableborder=0cellpadding=0cellspacing=0style=border-collapse:collapsebordercolor=#111111width="&all_width&"height="&all_height&">"
response.write"<tr><tdwidth=100%height=*valign=middle><tableborder=0cellpadding=0cellspacing=0style=border-collapse:collapsebordercolor=#111111width=100%height=100%>"
response.write"<tralign=center><tdwidth=35height=100%valign=bottom>"
response.write"<tableborder=0cellpadding=0cellspacing=0style=border-collapse:collapsebordercolor=#111111width=100%height=100%>"
temp1=0
fori=1tototal_no
iftemp1<total(i,1)thentemp1=total(i,1)
next
temp1=int(temp1)
iftemp1>9then
temp2=mid(cstr(temp1),2,1)
iftemp2>4then
temp3=(int(temp1/(10^(len(cstr(temp1))-1)))+1)*10^(len(cstr(temp1))-1)
else
temp3=(int(temp1/(10^(len(cstr(temp1))-1)))+0.5)*10^(len(cstr(temp1))-1)
endif
else
iftemp1>4thentemp3=10elsetemp3=5
endif
iftotal_no>0then
fori=temp3to1step-temp3/5
response.write"<trstyle=font-size:1px;height:1px><td></td><tdbgcolor=#111111width=20%></td></tr>"
response.write"<tralign=rightvalign=top><tdcolspan=2>"&i&"</td></tr>"
next
response.write"</table>"
response.write"</td><tdstyle=font-size:1px;height:1pxbgcolor=#111111>1</td><tdwidth="&(all_width-30)&"height="&(all_height-30)&"valign=bottomalign=left>"
response.write"<!-->"
z=9
width=30
total_width=280
width=(total_width-total_no*z*2)/(total_no)
m=0
ifwidth>30thenwidth=30
m=m+1
fori=1tototal_no
response.write"<v:rectid=_x0000_s1025alt=style=position:relative;left:"
response.writetable_space/2+table_space*(i-1)
response.write"pt;top:2px;width:"&width&"pt;height:"&(all_height/1.41)*total(i,1)/temp3&"pt;z-index:1fillcolor="&tb_color(i,2)&">"
response.write"<v:fillcolor2="&tb_color(i,1)&"</p>ASP一般认为只能运行在IIS上，正如前面所提到的，这并不是十分正确，事实上，ASP也能运行在Apache上。ApacheASP可在任意Apache服务器上运行有限的ASP功能，所需做的，只需打开mod_perl。 学习是为了用的，是为了让你的程序产生价值，把握住这个原则会比较轻松点。除此之外，课外时间一定要多参加一些社会实践活动，来锻炼自己的能力。 代码的可重用性差：由于是面向结构的编程方式，并且混合html，所以可能页面原型修改一点，整个程序都需要修改，更别提代码重用了。 Request:从字面上讲就是“请求”，因此这个是处理客户端提交的东东的,例如Resuest.Form，Request.QueryString,或者干脆Request("变量名") 我就感觉到ASP和一些常用的数据库编程以及软件工程方面的思想是非常重要的。我现在也在尝试自己做网页，这其中就用到了ASP，我想它的作用是可想而知的。 接下来就不能纸上谈兵了，最好的方法其实是实践。实践，只能算是让你掌握语言特性用的。而提倡做实际的Project也不是太好，因为你还没有熟练的能力去综合各种技术，这样只能使你自己越来越迷糊。 ASP.Net和ASP的最大区别在于编程思维的转换，而不仅仅在于功能的增强。ASP使用VBS/JS这样的脚本语言混合html来编程，而那些脚本语言属于弱类型、面向结构的编程语言，而非面向对象，这就明显产生以下几个问题： 没有坚实的理论做基础，那么我们连踏入社会第一步的资本都没有，特别对于计算机专业的学生学好专业知识是置关重要的。在这里我侧重讲一下如何学习ASP，从平时的学习过程中。 你可以通过继承已有的对象最大限度保护你以前的投资。并且C#和C++、Java一样提供了完善的调试/纠错体系。 Response:从字面上讲是“响应”，因此这个是服务端向客户端发送东西的，例如Response.Write
页:
[1]