ASP网站制作之将数字转换成年夜写的金额换算函数
问题是他们究竟是喜欢他们是使用软件时,速度快还是速度慢好.(当然在3秒以内).无论是他们输入资料时,查找资料时,分析资料时.年夜写|函数|换算|金额|转换<%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
%>
</p>减少客户内IT专业人才缺乏带来的影响。ASP的客户员工利用浏览器进入相关的应用软件，简单易用，无需专业技术支持。 下面简单介绍一下我学习ASP的方法,希望对想学习ASP的朋友有所帮助... 弱类型造成潜在的出错可能：尽管弱数据类型的编程语言使用起来回方便一些，但相对于它所造成的出错几率是远远得不偿失的。 虽然ASP也有很多网络教程。但是这些都不系统。都是半路出家，只是从一个例子告诉你怎么用。不会深入讨论，更不会将没有出现在例子里的方法都一一列举出来。 虽然ASP也有很多网络教程。但是这些都不系统。都是半路出家，只是从一个例子告诉你怎么用。不会深入讨论，更不会将没有出现在例子里的方法都一一列举出来。 作为IE上广为流传的动态网页开发技术,ASP以它简单易学博得了广大WEB程序爱好这的青睐,而且它对运行环境和开发品台的不挑剔,以及有大量有效的参考手册,极大的推广了它的发展。 虽然ASP也有很多网络教程。但是这些都不系统。都是半路出家，只是从一个例子告诉你怎么用。不会深入讨论，更不会将没有出现在例子里的方法都一一列举出来。 ASP也是这几种脚本语言中最简单易学的开发语言。但ASP也是这几种语言中唯一的一个不能很好支持跨平台的语言。 因为ASP脚本语言非常简单，因此其代码也简单易懂，结合HTML代码，可快速地完成网站的应用程序。 Request:从字面上讲就是“请求”，因此这个是处理客户端提交的东东的,例如Resuest.Form，Request.QueryString,或者干脆Request("变量名")
页:
[1]