山那边是海 发表于 2015-1-16 22:30:51

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邮箱设置等等,就像管理本地机一样方便。

蒙在股里 发表于 2015-1-19 15:57:04

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

活着的死人 发表于 2015-2-5 14:29:26

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

小魔女 发表于 2015-2-12 06:47:32

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

灵魂腐蚀 发表于 2015-3-2 23:40:55

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

深爱那片海 发表于 2015-3-11 07:35:51

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

山那边是海 发表于 2015-3-17 23:10:18

运用经典的例子。并且自己可以用他来实现一些简单的系统。如果可以对他进行进一步的修改,找出你觉得可以提高性能的地方,加上自己的设计,那就更上一个层次了,也就会真正地感到有所收获。
页: [1]
查看完整版本: ASP网站制作之金额巨细写转换的asp完整无错版本