仓酷云

 找回密码
 立即注册
搜索
热搜: 活动 交友 discuz
查看: 483|回复: 9
打印 上一主题 下一主题

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

[复制链接]
老尸 该用户已被删除
跳转到指定楼层
楼主
发表于 2015-1-16 23:20:08 | 只看该作者 回帖奖励 |正序浏览 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有帐号?立即注册

x
缺点:正版成本价格贵(盗版就不说了)、不够安全,大多数服务器用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的客户员工利用浏览器进入相关的应用软件,简单易用,无需专业技术支持。
透明 该用户已被删除
10#
发表于 2015-3-20 07:45:10 | 只看该作者
交流是必要的,不管是生活还是学习我们都要试着去交流,通过交流我们可以学到很多我们自己本身所没有的知识,可以分享别人的经验甚至经历。
再见西城 该用户已被删除
9#
发表于 2015-3-13 01:07:08 | 只看该作者
那么,ASP.Net有哪些改进呢?
谁可相欹 该用户已被删除
8#
发表于 2015-3-6 12:36:36 | 只看该作者
ASP的语言不仅仅只是命令格式差不多,而是包含在<%%>之内的命令完全就是VB语法。虽然ASP也是做为单独的一个技术来提出的,但他就是完全继承了VB所有的功能。
再现理想 该用户已被删除
7#
发表于 2015-2-19 03:52:44 | 只看该作者
代码逻辑混乱,难于管理:由于ASP是脚本语言混合html编程,所以你很难看清代码的逻辑关系,并且随着程序的复杂性增加,使得代码的管理十分困难,甚至超出一个程序员所能达到的管理能力,从而造成出错或这样那样的问题。
兰色精灵 该用户已被删除
6#
发表于 2015-2-6 23:55:59 | 只看该作者
我想问如何掌握学习节奏(先学什么再学什么)最好详细点?
海妖 该用户已被删除
5#
发表于 2015-1-31 21:55:55 | 只看该作者
如何更好的使自己的东西看上去很不错等等。其实这些都不是问题的实质,我们可以在实践中不断提升自己,不断充实自己。
若相依 该用户已被删除
地板
发表于 2015-1-26 19:49:21 | 只看该作者
跟学别的语言一样,先掌握变量,流程控制语句(就是ifwhileselect)等,函数/过程,数组
灵魂腐蚀 该用户已被删除
板凳
发表于 2015-1-25 22:23:25 | 只看该作者
最近在学asp,不要问我为什么不直接学.net,因为公司网站是asp做的所以有这个需要,卖了本书asp入门到精通,对里面的六大内置对象老是记不住,还有很多属性和方法看的头晕。
莫相离 该用户已被删除
沙发
发表于 2015-1-20 09:31:35 | 只看该作者
作为IE上广为流传的动态网页开发技术,ASP以它简单易学博得了广大WEB程序爱好这的青睐,而且它对运行环境和开发品台的不挑剔,以及有大量有效的参考手册,极大的推广了它的发展。
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|Archiver|手机版|仓酷云 鄂ICP备14007578号-2

GMT+8, 2024-11-17 13:51

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表