仓酷云

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

[学习教程] ASP网页编程之金额阿拉伯数字转换为中文的存储历程(...

[复制链接]
兰色精灵 该用户已被删除
跳转到指定楼层
楼主
发表于 2015-1-16 23:09:11 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式

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

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

x
ASP在国内异常流行,因为国内大多使用的是盗版的Windows和盗版的SQLServer,而ASP+COM+SQLServer实际上也是一种不错的搭配,其性能也不输于PHP+MYSQL,特别是Windows系统和SQLServer都有图形界面,比APACHE和MYSQL易于维护,因此对于不重视知识产权的国家来说也是一种不错的选择。存储历程|金额|中文|转换CreateProcedureAtoC
@ChangeMoneyMoney
as
SetNocountON
Declare@String1char(20)
Declare@String2char(30)
Declare@String4Varchar(100)
Declare@String3Varchar(100)--从原A值中掏出的值
Declare@iint--轮回变量
Declare@JInt--A的值乘以100的字符串长度
Declare@Ch1Varchar(100)--数字的汉语读法
Declare@Ch2Varchar(100)--数字位的汉字读法
Declare@ZeroInt--用来盘算一连有几个零
Declare@ReturnValueVarChar(100)

Select@ReturnValue=
Select@String1=零壹贰叁肆伍陆柒捌玖
Select@String2=万仟佰拾亿仟佰拾万仟佰拾元角分

Select@String4=Cast(@ChangeMoney*100asint)

select@J=len(cast((@ChangeMoney*100)asint))

Select@String2=Right(@String2,@J)

Select@i=1

while@i<=@jBegin

Select@String3=Substring(@String4,@i,1)

if@String30Begin

Select@Ch1=Substring(@String1,Cast(@String3asInt)+1,1)
Select@Ch2=Substring(@String2,@i,1)
Select@Zero=0--暗示本位不为零
end
elseBegin
If(@Zero=0)Or(@i=@J-9)Or(@i=@J-5)Or(@i=@J-1)
Select@Ch1=零
Else
Select@Ch1=

Select@Zero=@Zero+1--暗示本位为0

--假如转换的数值必要扩展,那末需修改以下表达式I的值。
SelectCh2=

If@i=@J-10Begin
Select@Ch2=亿
Select@Zero=0
end

If@i=@J-6Begin
Select@Ch2=万
Select@Zero=0
end

if@i=@J-2Begin
Select@Ch2=元
Select@Zero=0
end

If@i=@J
Select@Ch2=整

end

Select@ReturnValue=@ReturnValue+@Ch1+@Ch2

select@i=@i+1
end

--最初将过剩的零往失落
IfCharIndex(仟仟,@ReturnValue)0
Select@ReturnValue=Replace(@ReturnValue,仟仟,仟)

IfCharIndex(佰佰,@ReturnValue)0
Select@ReturnValue=Replace(@ReturnValue,佰佰,佰)

IfCharIndex(零元,@ReturnValue)0
Select@ReturnValue=Replace(@ReturnValue,零元,元)

IfCharIndex(零万,@ReturnValue)0
Select@ReturnValue=Replace(@ReturnValue,零万,万)

IfCharIndex(零亿,@ReturnValue)0
Select@ReturnValue=Replace(@ReturnValue,零亿,亿)

IfCharIndex(零整,@ReturnValue)0
Select@ReturnValue=Replace(@ReturnValue,零整,整)

IfCharIndex(零佰,@ReturnValue)0
Select@ReturnValue=Replace(@ReturnValue,零佰,零)

IfCharIndex(零仟,@ReturnValue)0
Select@ReturnValue=Replace(@ReturnValue,零仟,零)

IfCharIndex(元元,@ReturnValue)0
Select@ReturnValue=Replace(@ReturnValue,元元,元)

Select@ReturnValue
GO

公布于:2002-3-20</p>asp可以使用微软的activeX使得网页功能无比强大,不过安全性也较差,而且是基于的windows服务器,所以性能稳定性也一般
老尸 该用户已被删除
沙发
发表于 2015-1-20 07:41:32 | 只看该作者
那么,ASP.Net有哪些改进呢?
不帅 该用户已被删除
板凳
发表于 2015-1-20 19:34:11 | 只看该作者
作为IE上广为流传的动态网页开发技术,ASP以它简单易学博得了广大WEB程序爱好这的青睐,而且它对运行环境和开发品台的不挑剔,以及有大量有效的参考手册,极大的推广了它的发展。
灵魂腐蚀 该用户已被删除
地板
发表于 2015-1-24 14:32:15 | 只看该作者
跟学别的语言一样,先掌握变量,流程控制语句(就是ifwhileselect)等,函数/过程,数组
金色的骷髅 该用户已被删除
5#
发表于 2015-1-31 18:36:50 | 只看该作者
ASP主要是用好六个对象,其实最主要的是用好其中两个:response和request,就可以随心所欲地控制网页变换和响应用户动作了。
爱飞 该用户已被删除
6#
发表于 2015-2-7 11:45:53 | 只看该作者
学习是为了用的,是为了让你的程序产生价值,把握住这个原则会比较轻松点。除此之外,课外时间一定要多参加一些社会实践活动,来锻炼自己的能力。
小妖女 该用户已被删除
7#
发表于 2015-2-21 20:16:51 | 只看该作者
弱类型造成潜在的出错可能:尽管弱数据类型的编程语言使用起来回方便一些,但相对于它所造成的出错几率是远远得不偿失的。
8#
发表于 2015-3-6 21:26:57 | 只看该作者
最近在学asp,不要问我为什么不直接学.net,因为公司网站是asp做的所以有这个需要,卖了本书asp入门到精通,对里面的六大内置对象老是记不住,还有很多属性和方法看的头晕。
admin 该用户已被删除
9#
发表于 2015-3-13 09:28:19 | 只看该作者
以HTML语言整合(HTML负责界面上,ASP则负责功能上)形成一个B/S(浏览器/服务器)模式的网页程序。
若相依 该用户已被删除
10#
发表于 2015-3-20 18:57:10 | 只看该作者
ASP的语言不仅仅只是命令格式差不多,而是包含在<%%>之内的命令完全就是VB语法。虽然ASP也是做为单独的一个技术来提出的,但他就是完全继承了VB所有的功能。
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

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

GMT+8, 2025-1-8 05:07

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

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