仓酷云

标题: ASP网页设计精髓区中的“泉币年夜写转换函数”用起来... [打印本页]

作者: 老尸 时间: 2015-1-16 23:20
标题: 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
作为IE上广为流传的动态网页开发技术,ASP以它简单易学博得了广大WEB程序爱好这的青睐,而且它对运行环境和开发品台的不挑剔,以及有大量有效的参考手册,极大的推广了它的发展。

作者: 灵魂腐蚀 时间: 2015-1-25 22:23
最近在学asp，不要问我为什么不直接学.net，因为公司网站是asp做的所以有这个需要，卖了本书asp入门到精通，对里面的六大内置对象老是记不住，还有很多属性和方法看的头晕。

作者: 若相依 时间: 2015-1-26 19:49
跟学别的语言一样，先掌握变量，流程控制语句(就是ifwhileselect)等，函数/过程，数组

作者: 海妖 时间: 2015-1-31 21:55
如何更好的使自己的东西看上去很不错等等。其实这些都不是问题的实质，我们可以在实践中不断提升自己，不断充实自己。

作者: 兰色精灵 时间: 2015-2-6 23:55
我想问如何掌握学习节奏(先学什么再学什么)最好详细点?

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

作者: 谁可相欹 时间: 2015-3-6 12:36
ASP的语言不仅仅只是命令格式差不多，而是包含在<%%>之内的命令完全就是VB语法。虽然ASP也是做为单独的一个技术来提出的，但他就是完全继承了VB所有的功能。

作者: 再见西城 时间: 2015-3-13 01:07
那么，ASP.Net有哪些改进呢？

作者: 透明 时间: 2015-3-20 07:45
交流是必要的，不管是生活还是学习我们都要试着去交流，通过交流我们可以学到很多我们自己本身所没有的知识，可以分享别人的经验甚至经历。

欢迎光临仓酷云 (http://ckuyun.com/)