ASP编程：我跟作者接洽过，已悔改了，只是没有...
asp，你就只能等着微软给你解决，它不乐意你就只好悲催。而且asp跑在windows服务器上，windows服务器跟linux比起来简直弱爆了！<%dima要转换成年夜写的金额
dimatoc转换以后的值
DimString1以下界说
DimString2以下界说
DimString3从原A值中掏出的值
DimI轮回变量
DimJA的值乘以100的字符串长度
DimCh1数字的汉语读法
DimCh2数字位的汉字读法
DimnZero用来盘算一连的零值是几个
String1="零壹贰叁肆伍陆柒捌玖"
String2="万仟佰拾亿仟佰拾万仟佰拾元角分"
nZero=0
IfInStr(1,CStr(a*100),".")0Then
err.Raise5000,,"此函数(AtoC())只能转换小数点后有两位之内的数！"
EndIf
J=Len(CStr(a*100))
String2=Right(String2,J)掏出对应位数的STRING2的值
ForI=1ToJ
String3=Mid(a*100,I,1)掏出需转换的某一名的值
IfI(J-3)+1AndI(J-7)+1AndI(J-11)+1AndI(J-15)+1Then
IfString3=0Then
Ch1=""
Ch2=""
nZero=nZero+1
ElseIfString30AndnZero0Then
Ch1="零"&Mid(String1,clng(String3)+1,1)
Ch2=Mid(String2,I,1)
nZero=0
Else
Ch1=Mid(String1,clng(String3)+1,1)
Ch2=Mid(String2,I,1)
nZero=0
EndIf
Else该位是万亿，亿，万，元位等关头位
IfString30AndnZero0Then
Ch1="零"&Mid(String1,clng(String3)+1,1)
Ch2=Mid(String2,I,1)
nZero=0
ElseIfString30AndnZero=0Then
Ch1=Mid(String1,clng(String3)+1,1)
&n</p>ASP脚本是采用明文（plaintext）方式来编写的。 ASP也是这几种脚本语言中最简单易学的开发语言。但ASP也是这几种语言中唯一的一个不能很好支持跨平台的语言。 因为ASP脚本语言非常简单，因此其代码也简单易懂，结合HTML代码，可快速地完成网站的应用程序。 作为IE上广为流传的动态网页开发技术,ASP以它简单易学博得了广大WEB程序爱好这的青睐,而且它对运行环境和开发品台的不挑剔,以及有大量有效的参考手册,极大的推广了它的发展。 不能只是将它停留在纸上谈兵的程度上。 学习是为了用的，是为了让你的程序产生价值，把握住这个原则会比较轻松点。除此之外，课外时间一定要多参加一些社会实践活动，来锻炼自己的能力。 我们必须明确一个大方向，不要只是停留在因为学而去学,我们应有方向应有目标. 最近在学asp，不要问我为什么不直接学.net，因为公司网站是asp做的所以有这个需要，卖了本书asp入门到精通，对里面的六大内置对象老是记不住，还有很多属性和方法看的头晕。 我们必须明确一个大方向，不要只是停留在因为学而去学,我们应有方向应有目标.
页:
[1]