老尸 发表于 2015-1-16 23:20:08

ASP网页设计精髓区中的“泉币年夜写转换函数”用起来...

缺点:正版成本价格贵(盗版就不说了)、不够安全,大多数服务器用windows系统,没有linux安全年夜写|函数|泉币|精髓|转换<%
FunctionChangeNumToDx(SourceNum)
DimString1以下界说
DimString2以下界说
DimString3从原SourceNum值中掏出的值
DimI轮回变量
DimJSourceNum的值乘以100的字符串长度
DimCh1数字的汉语读法
DimCh2数字位的汉字读法
DimnZero用来盘算一连的零值是几个

String1="零壹贰叁肆伍陆柒捌玖"
String2="万仟佰拾亿仟佰拾万仟佰拾元角分"
nZero=0
ChangeNumToDx=""

IfNotIsNumeric(SourceNum)Then
SourceNum="0"
EndIf

IfInStr(1,CStr(SourceNum*100),".")0Then
err.Raise5000,,"此函数(AtoC())只能转换小数点后有两位之内的数!"
EndIf

J=Len(CStr(SourceNum*100))
String2=Right(String2,J)掏出对应位数的STRING2的值

ForI=1ToJ
String3=Mid(SourceNum*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
&n</p>减少客户内IT专业人才缺乏带来的影响。ASP的客户员工利用浏览器进入相关的应用软件,简单易用,无需专业技术支持。

莫相离 发表于 2015-1-20 09:31:35

作为IE上广为流传的动态网页开发技术,ASP以它简单易学博得了广大WEB程序爱好这的青睐,而且它对运行环境和开发品台的不挑剔,以及有大量有效的参考手册,极大的推广了它的发展。

灵魂腐蚀 发表于 2015-1-25 22:23:25

最近在学asp,不要问我为什么不直接学.net,因为公司网站是asp做的所以有这个需要,卖了本书asp入门到精通,对里面的六大内置对象老是记不住,还有很多属性和方法看的头晕。

若相依 发表于 2015-1-26 19:49:21

跟学别的语言一样,先掌握变量,流程控制语句(就是ifwhileselect)等,函数/过程,数组

海妖 发表于 2015-1-31 21:55:55

如何更好的使自己的东西看上去很不错等等。其实这些都不是问题的实质,我们可以在实践中不断提升自己,不断充实自己。

兰色精灵 发表于 2015-2-6 23:55:59

我想问如何掌握学习节奏(先学什么再学什么)最好详细点?

再现理想 发表于 2015-2-19 03:52:44

代码逻辑混乱,难于管理:由于ASP是脚本语言混合html编程,所以你很难看清代码的逻辑关系,并且随着程序的复杂性增加,使得代码的管理十分困难,甚至超出一个程序员所能达到的管理能力,从而造成出错或这样那样的问题。

谁可相欹 发表于 2015-3-6 12:36:36

ASP的语言不仅仅只是命令格式差不多,而是包含在<%%>之内的命令完全就是VB语法。虽然ASP也是做为单独的一个技术来提出的,但他就是完全继承了VB所有的功能。

再见西城 发表于 2015-3-13 01:07:08

那么,ASP.Net有哪些改进呢?

透明 发表于 2015-3-20 07:45:10

交流是必要的,不管是生活还是学习我们都要试着去交流,通过交流我们可以学到很多我们自己本身所没有的知识,可以分享别人的经验甚至经历。
页: [1]
查看完整版本: ASP网页设计精髓区中的“泉币年夜写转换函数”用起来...