仓酷云

 找回密码
 立即注册
搜索
热搜: 活动 交友 discuz
查看: 392|回复: 7
打印 上一主题 下一主题

[学习教程] ASP网页设计一个不必要第三方组件,可完成华复杂图...

[复制链接]
再现理想 该用户已被删除
跳转到指定楼层
楼主
发表于 2015-1-16 23:23:22 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有帐号?立即注册

x
想法是和程序员的想法不一样的.至于为什么.大家去想一想.跟心理学有关的图形一般我们做统计图的时分必要借助组件来完成比方mschart,aspchart等
可是这个类不必要任何组件,并且利用便利
clsGraph.asp
<%
ClassInteliGraph

PublicCopyright,Developer,Name,Version,Web
PublicMaximum,BarWidth,BarColor,Orientation
PrivateItems(),Cnt

PrivateSubClass_Initialize()
Copyright="?2001TicluseTeknologi,Allrightsreserved."
Developer="JamesLindn"
Name="InteliGraph"
Version="1.0"
Web="http://www.intelidev.com"
Cnt=0
EndSub

PublicFunctionAdd(value)
ReDimPreserveItems(Cnt)
Items(Cnt)=value
data=Cnt
Cnt=Cnt+1
Add=data
EndFunction

PublicFunctionBuild()
IfCnt<1ThenExitFunction
IfLen(Orientation)=0OrLCase(Orientation)="horizontal"Then
ForIdx=LBound(Items)ToUBound(Items)
data=data&"<tableheight="&BarWidth&"border=1width="&Maximum&"cellspacing=2>"&vbNewLine
data=data&vbTab&"<tr><tdwidth="&Items(Idx)&"bgcolor="&BarColor&"align=center><fontsize=-4></font></td>"
IfItems(Idx)<MaximumThen
data=data&"<tdwidth="&Maximum-Items(Idx)&"></td>"
EndIf
data=data&"</tr>"&vbNewLine&"</table>"&vbNewLine
Next
ElseIfLCase(Orientation)="vertical"Then
data="<table><tr>"&vbNewLine
ForIdx=LBound(Items)ToUBound(Items)
data=data&"<td><tablewidth="&BarWidth&"border=1height="&Maximum&"cellspacing=2>"&vbNewLine
IfItems(Idx)<MaximumThen
data=data&"<tr><tdheight="&Maximum-Items(Idx)&"></td></tr>"
EndIf
data=data&vbTab&"<tr><tdheight="&Items(Idx)&"bgcolor="&BarColor&"align=center><fontsize=-4></font></td>"
data=data&"</tr>"&vbNewLine&"</table>"&vbNewLine&"</td>"&vbNewLine
Next
data=data&"</tr></table>"&vbNewLine
EndIf
Build=data
EndFunction

EndClass
%>
利用办法
这个类一共有四个属性
BarWidth(图片条的尺寸)
BarColor*(图片条色彩)
Maximum(图片条最年夜长度)
Orientation(偏向)
有两个函数
Add(value)增加图片条到图片中
Build()创建图片
事例:
<!--#includefile=clsGraph.asp-->
<%
PublicConstvert="vertical"
PublicConsthorz="horizontal"

DimGraph

SetGraph=NewInteliGraph
Graph.BarWidth=10
Graph.BarColor="blue"
Graph.Maximum=100
Graph.Orientation=horz

ForIdx=0To100Step25
Graph.Add(Idx)
Next

Response.Write(Graph.Build())
%>

</p>想法是和程序员的想法不一样的.至于为什么.大家去想一想.跟心理学有关的
分手快乐 该用户已被删除
沙发
发表于 2015-1-20 09:46:25 | 只看该作者
学习ASP其实应该上升到如何学习程序设计这种境界,其实学习程序设计又是接受一种编程思想。比如ASP如何学习,你也许在以前的学习中碰到过。以下我仔细给你说几点:
柔情似水 该用户已被删除
板凳
发表于 2015-1-25 08:39:05 | 只看该作者
跟学别的语言一样,先掌握变量,流程控制语句(就是ifwhileselect)等,函数/过程,数组
莫相离 该用户已被删除
地板
发表于 2015-2-2 17:00:10 | 只看该作者
Session:这个存储跟客户端会话过程的数据,默认20分钟失效
飘飘悠悠 该用户已被删除
5#
发表于 2015-2-24 00:13:11 | 只看该作者
尽管MS自己讲C#内核中更多的象VC,但实际上我还是认为它和Java更象一些吧。首先它是面向对象的编程语言,而不是一种脚本,所以它具有面向对象编程语言的一切特性,比如封装性、继承性、多态性等等,这就解决了刚才谈到的ASP的那些弱点。
若天明 该用户已被删除
6#
发表于 2015-3-7 10:26:44 | 只看该作者
它可通过内置的组件实现更强大的功能,如使用A-DO可以轻松地访问数据库。
admin 该用户已被删除
7#
发表于 2015-3-14 21:47:29 | 只看该作者
以上是语言本身的弱点,在功能方面ASP同样存在问题,第一是功能太弱,一些底层操作只能通过组件来完成,在这点上是远远比不上PHP/JSP,其次就是缺乏完善的纠错/调试功能,这点上ASP/PHP/JSP差不多。
第二个灵魂 该用户已被删除
8#
发表于 2015-3-21 14:20:12 | 只看该作者
Application:这个存储服务端的数据,如果不清除,会直到web应用程序结束才清除(例如重启站点)
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|Archiver|手机版|仓酷云 鄂ICP备14007578号-2

GMT+8, 2024-12-25 00:35

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表