|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
ActiveServerPage技术为应用开发商提供了基于脚本的直观、快速、高效的应用开发手段,极大地提高了开发的效果。在讨论ASP的安全性问题之前,让我们来看看ASP是怎么工作的。年夜写|函数|泉币|转换FunctionAtoC(aAsCurrency)AsString
申明:本函数合适于万亿以下的泉币转换,同意A的值是最多两位小数
界说两个字符串,此处汉字与数字均按一名盘算
DimString1AsString以下界说
DimString2AsString以下界说
DimString3AsString从原A值中掏出的值
DimIAsInteger轮回变量
DimJAsIntegerA的值乘以100的字符串长度
DimCh1AsString数字的汉语读法
DimCh2AsString数字位的汉字读法
DimnZeroAsInteger用来盘算一连的非零数是几个
String1="零壹贰叁肆伍陆柒捌玖"
String2="万仟佰拾亿仟佰拾万仟佰拾元角分"
MsgBoxCStr(a*100)
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)掏出需转换的某一名的值
IfString3"0"Then
Ch1=Mid(String1,Val(String3)+1,1)
Ch2=Mid(String2,I,1)
nZero=nZero+1暗示本位不为零
Else
IfnZero0OrI=J-9OrI=J-5OrI=J-1Then
IfRight(AtoC,1)="零"ThenAtoC=Left(AtoC,Len(AtoC)-1)
Ch1="零"
Else
Ch1=""
EndIf
假如转换的数值必要扩展,那末需修改以下表达式I的值。
IfI=J-10Then
Ch2="亿"
ElseIfI=J-6Then
IfnZero0Then
Ch2="万"
nZero=0
EndIf
ElseIfI=J-2Then
Ch2="元"
ElseIfI=JThen
Ch2="整"
Else
Ch2=""
EndIf
</p>SQLServer是基于服务器端的中型的数据库,可以适合大容量数据的应用,在功能上管理上也要比Access要强得多。在处理海量数据的效率,后台开发的灵活性,可扩展性等方面强大。 |
|