ASP教程之用ASP天生Chart
楼上说交互性不好，太牵强了吧。在微软提供的一套框架中，利用asp做网站，开发效率高，使用人数少，减少不必要的开销。交互性是互动方式，是有开发人员决定的。chart<SCRIPTLANGUAGE="VBScript"RUNAT="SERVER">functionmakechart(title,numarray,labelarray,color,bgcolor,bordersize,maxheight,maxwidth,addvalues)
Functionmakechartversion3
JasonBorovoy
title:ChartTitle
numarray:Anarrayofvaluesforthechart
labelarray:Anarrayoflabelscorespondingtothevaluesmustmepresent
colorIfnullusesdifferentcolorsforbarsifnotnullallbarscoloryouspecify
bgcolorBackgroundcolor.
bordersize:bordersizeor0fornoborder.
maxheight:maximumheightforchartnotincludinglabels
maxwidth:widthofeachcolumn
addvalues:trueorfalsedependingifyouwanttheactualvaluesshownonthechart
whenyoucallthefunctionuse:response.writemakechart(parameters)
actuallyreturnstringwouldbeabettername
dimtablestring
maxvalueismaximumtablevalue
dimmax
maxlengthmaximumlengthoflabels
dimmaxlength
dimtempnumarray
dimtemplabelarray
dimheightarray
Dimcolorarray
valuetomultipliechartvaluesbytogetrelitivesize
Dimmultiplier
ifdatavalid
ifmaxheight>0andmaxwidth>0andubound(labelarray)=ubound(numarray)then
colorarray:colorofeachbarsifmorebarsthencolorsloopthrough
ifyoudontlikemychoiceschangethem,addthem,deletethem.
colorarray=array("red","blue","yellow","navy","orange","purple","green")
templabelarray=labelarray
tempnumarray=numarray
heightarray=array()
max=0
maxlength=0
tablestring="<TABLEbgcolor="&bgcolor&"border="&bordersize&">"&_
"<tr><td><TABLEborder=0cellspacing=1cellpadding=0>"&vbCrLf
getmaximumvalue
foreachstuffintempnumarray
ifstuff>maxthenmax=stuffendif
next
calculatemultiplier
multiplier=maxheight/max
populatearray
forcounter=0toubound(tempnumarray)
iftempnumarray(counter)=maxthen
redimpreserveheightarray(counter)
heightarray(counter)=maxheight
else
redimpreserveheightarray(counter)
heightarray(counter)=tempnumarray(counter)*multiplier
endif
next
settitle
tablestring=tablestring&"<TR><THcolspan="&ubound(tempnumarray)+1&">"&_
"<FONTFACE=Verdana,Arial,HelveticaSIZE=1><U>"&title&"</TH></TR>"&_
vbCrLf&"<TR>"&vbCrLf
loopthroughvalues
forcounter=0toubound(tempnumarray)
tablestring=tablestring&vbTab&"<TDvalign=bottomalign=center>"&_
"<FONTFACE=Verdana,Arial,HelveticaSIZE=1>"&_
"<tableborder=0cellpadding=0width="&maxwidth&"><tr>"&_
"<tr><tdvalign=bottombgcolor="
ifnotisNUll(color)then
ifcolorpresentusethatcolorforbars
tablestring=tablestring&color
else
ifnotloopthroughcolorarray
tablestring=tablestring&colorarray(countermod(ubound(colorarray)+1))
endif
tablestring=tablestring&"height="&_
round(heightarray(counter),2)&"><imgsrc=http://www.163design.net/a/q/chart.gifwidth=1height=1>"&_
"</td></tr></table>"
ifaddvaluesthen
printactualvalues
tablestring=tablestring&"<BR>"&tempnumarray(coun</p>asp可以使用微软的activeX使得网页功能无比强大，不过安全性也较差，而且是基于的windows服务器，所以性能稳定性也一般 多看多学多思。多看一些关于ASP的书籍，一方面可以扩展知识面一方面可以鉴借别人是如何掌握、运用ASP的;多学善于关注别人，向同学老师多多学习，不论知识的大小;多思则是要将学到的知识灵活运用。 弱类型造成潜在的出错可能：尽管弱数据类型的编程语言使用起来回方便一些，但相对于它所造成的出错几率是远远得不偿失的。 他的语法和设计思路和VB完全相同，导致很多ASP的书都留一句“相关内容请参考VB的相关教材....”更糟糕的是，相当多的ASP教程混合了Javascript,VBscript等等脚本语言，搞的初学者。 我认为比较好的方法是找一些比较经典的例子，每个例子比较集中一种编程思想而设计的。 不是很难但是英文要有一点基础网上的教程很少有系统的详细的去买书吧,另不用专门学习vb关于vbscript脚本在asp教材都有介绍 Server:这个表示的服务器，操作服务器的一些东西使用这个，如Server.Mappath转换服务器路径,Server.CreateObject实例化一个组件 多看多学多思。多看一些关于ASP的书籍，一方面可以扩展知识面一方面可以鉴借别人是如何掌握、运用ASP的;多学善于关注别人，向同学老师多多学习，不论知识的大小;多思则是要将学到的知识灵活运用。 兴趣爱好，那么你无须学编程，申请一个域名和空间，在网上下载一些免费开源的CMS系统，你不用改代码，只须熟悉它们的后台操作，像office一样简单方便，很快就能建一个站点，很多站长都是这样做的 以上是语言本身的弱点，在功能方面ASP同样存在问题，第一是功能太弱，一些底层操作只能通过组件来完成，在这点上是远远比不上PHP/JSP，其次就是缺乏完善的纠错/调试功能，这点上ASP/PHP/JSP差不多。 另外因为asp需要使用组件，所以了解一点组件的知识(ADODB也是组件) 我可以结合自己的经验大致给你说一说，希望对你有所帮助，少走些弯路。
页:
[1]