ASP网站制作之金额巨细写转换的asp完整无错版本

对于中小型web应用来说,php有很强的竞争力,linux+apache+mysql+php(lamp)的组合几乎可以胜任绝大多数网站的解决方案,对于大型应用来讲,对于系统架构要求更高,需要有成熟的框架支持,jsp的struts是个不错的框架,国内介绍它的资料也非常多,应用逐渐广泛起来。asp就不用说了，<!--#includefile=common.asp-->
<%
dimtmpnum
从第一张页面传过去的小写金额
tmpnum=request("page1num")
挪用并显现年夜写金额
response.writermb(cdbl(tmpnum))
response.end
%>

common.asp
<%
Functionrmb(num)
num=FormatNumber(num,2)
DimnumList
DimrmbList
DimnumLen
DimnumChar
Dimnumstr
Dimn
Dimn1,n2
Dimhz
numList="零壹贰叁肆伍陆柒捌玖"
rmbList="分角元拾佰仟万拾佰仟亿拾佰仟万"
Ifnum>9999999999999.99Then
rmb="超越局限的国民币值"
ExitFunction
EndIf
numstr=CStr(num*100)
numLen=Len(numstr)
n=1
DoWhilen<=numLen
numChar=CInt(Mid(numstr,n,1))
n1=Mid(numList,numChar+1,1)
n2=Mid(rmbList,numLen-n+1,1)
IfNotn1="零"Then
hz=hz+CStr(n1)+CStr(n2)
Else
Ifn2="亿"Orn2="万"Orn2="元"Orn1="零"Then
DoWhileRight(hz,1)="零"
hz=Left(hz,Len(hz)-1)
Loop
EndIf
If(n2="亿"Or(n2="万"AndRight(hz,1)"亿")Orn2="元")Then
hz=hz+CStr(n2)
Else
IfLeft(Right(hz,2),1)="零"OrRight(hz,1)"亿"Then
hz=hz+n1
EndIf
EndIf
EndIf
n=n+1
Loop
DoWhileRight(hz,1)="零"
hz=Left(hz,Len(hz)-1)
Loop
IfRight(hz,1)="元"Then
hz=hz+"整"
EndIf
rmb=hz
EndFunction
%>

这个版本办理了小数位不克不及到分的成绩,处置体例切合管帐体例!
使用cdonts，可以发送、查看邮件，实现webmail的功能。结合wsh，可以实现对nt主机的管理，如nt用户管理、iis虚拟主机设置、exchange邮箱设置等等，就像管理本地机一样方便。

掌握asp的特性而且一定要知道为什么。

如何学好ASP,以前也有人问过,把回答给你转过来看看能否对你有帮助:

从事这个行业，那么你可以学ASP语言，简单快速上手，熟练dreamweav排版，写asp代码，熟练photoshop处理图片，打好基础就行了

ASP.Net和ASP的最大区别在于编程思维的转换，而不仅仅在于功能的增强。ASP使用VBS/JS这样的脚本语言混合html来编程，而那些脚本语言属于弱类型、面向结构的编程语言，而非面向对象，这就明显产生以下几个问题：

运用ASP可将VBscript、javascript等脚本语言嵌入到HTML中，便可快速完成网站的应用程序，无需编译，可在服务器端直接执行。容易编写，使用普通的文本编辑器编写，如记事本就可以完成。由脚本在服务器上而不是客户端运行，ASP所使用的脚本语言都在服务端上运行。

运用经典的例子。并且自己可以用他来实现一些简单的系统。如果可以对他进行进一步的修改，找出你觉得可以提高性能的地方，加上自己的设计，那就更上一个层次了，也就会真正地感到有所收获。