ASP编程：将国民币的数字暗示转化成年夜写暗示

对于中小型web应用来说,php有很强的竞争力,linux+apache+mysql+php(lamp)的组合几乎可以胜任绝大多数网站的解决方案,对于大型应用来讲,对于系统架构要求更高,需要有成熟的框架支持,jsp的struts是个不错的框架,国内介绍它的资料也非常多,应用逐渐广泛起来。asp就不用说了，年夜写|国民币<%callMoney(22222222222)
functionMoney(thenumber)
dimMoney,i,String1,String2,length,checkp界说变量
dimone(),onestr()界说数组

String1="零壹贰叁肆伍陆柒捌玖"
String2="万仟佰拾亿仟佰拾万仟佰拾元角分厘毫"

checkp=instr(thenumber,".")判别是不是含有小数位
ifcheckp0then
thenumber=replace(thenumber,".","")往除小数位
endif

length=len(thenumber)获得数据长度
redimone(length-1)从头界说数组巨细
redimonestr(length-1)从头界说数组巨细

fori=0tolength-1

one(i)=mid(thenumber,i+1,1)轮回获得每位的数字
one(i)=mid(string1,one(i)+1,1)轮回获得数字对应的年夜写


ifcheckp=0then
不含有小数的数据其数字对应的单元
onestr(i)=mid(string2,14-length+i,1)
else
含有小数的数据其数字对应的单元
onestr(i)=mid(string2,15-length+i+len(thenumber)-checkp,1)
endif

one(i)=one(i)&onestr(i)将数字与单元组合
next

Money=replace(join(one),"","")获得数组中一切的元素，并毗连起来
Money=replace(Money,"零元","元")
Money=replace(Money,"零万","万")
Money=replace(Money,"零亿","亿")
Money=replace(Money,"零仟","零")
Money=replace(Money,"零佰","零")
Money=replace(Money,"零拾","零")

dowhilenotinstr(Money,"零零")=0
Money=replace(Money,"零零","零")
loop

response.writeMoney显现了局
endfunction
%>
</p>ASP一般认为只能运行在IIS上，正如前面所提到的，这并不是十分正确，事实上，ASP也能运行在Apache上。ApacheASP可在任意Apache服务器上运行有限的ASP功能，所需做的，只需打开mod_perl。

它可通过内置的组件实现更强大的功能，如使用A-DO可以轻松地访问数据库。

ASP的语言不仅仅只是命令格式差不多，而是包含在<%%>之内的命令完全就是VB语法。虽然ASP也是做为单独的一个技术来提出的，但他就是完全继承了VB所有的功能。

学习是为了用的，是为了让你的程序产生价值，把握住这个原则会比较轻松点。除此之外，课外时间一定要多参加一些社会实践活动，来锻炼自己的能力。

他的语法和设计思路和VB完全相同，导致很多ASP的书都留一句“相关内容请参考VB的相关教材....”更糟糕的是，相当多的ASP教程混合了Javascript,VBscript等等脚本语言，搞的初学者。

交流是必要的，不管是生活还是学习我们都要试着去交流，通过交流我们可以学到很多我们自己本身所没有的知识，可以分享别人的经验甚至经历。

ASP（ActiveServerPages）是Microsfot公司1996年11月推出的WEB应用程序开发技术，它既不是一种程序语言，也不是一种开发工具，而是一种技术框架，不须使用微软的产品就能编写它的代码，能产生和执行动态、交互式、高效率的站占服务器的应用程序。

我就感觉到ASP和一些常用的数据库编程以及软件工程方面的思想是非常重要的。我现在也在尝试自己做网页，这其中就用到了ASP，我想它的作用是可想而知的。

它可通过内置的组件实现更强大的功能，如使用A-DO可以轻松地访问数据库。