仓酷云

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

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

[复制链接]
飘飘悠悠 该用户已被删除
跳转到指定楼层
楼主
发表于 2015-1-16 22:58:59 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式

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

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

x
国内有些大的CRM厂商的ASP就写得不错.无论是概念还是它里面用JAVASCRIPT的能力.并不是说现在的程序员用了ASP.NET来写程序就可以说自己高档了存储历程|金额|中文|转换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

</p>ASP由于使用了COM组件所以它会变的十分强大,但是这样的强大由于WindowsNT系统最初的设计问题而会引发大量的安全问题。只要在这样的组件或是操作中一不注意,哪么外部攻击就可以取得相当高的权限而导致网站瘫痪或者数据丢失;
不帅 该用户已被删除
沙发
发表于 2015-1-20 07:09:15 | 只看该作者
Response:从字面上讲是“响应”,因此这个是服务端向客户端发送东西的,例如Response.Write
灵魂腐蚀 该用户已被删除
板凳
发表于 2015-1-22 16:47:38 | 只看该作者
从事这个行业,那么你可以学ASP语言,简单快速上手,熟练dreamweav排版,写asp代码,熟练photoshop处理图片,打好基础就行了
小魔女 该用户已被删除
地板
发表于 2015-2-6 18:32:09 | 只看该作者
我就感觉到ASP和一些常用的数据库编程以及软件工程方面的思想是非常重要的。我现在也在尝试自己做网页,这其中就用到了ASP,我想它的作用是可想而知的。
活着的死人 该用户已被删除
5#
发表于 2015-2-18 02:50:44 | 只看该作者
最近在学asp,不要问我为什么不直接学.net,因为公司网站是asp做的所以有这个需要,卖了本书asp入门到精通,对里面的六大内置对象老是记不住,还有很多属性和方法看的头晕。
6#
发表于 2015-3-6 00:20:14 | 只看该作者
封装性使得代码逻辑清晰,易于管理,并且应用到ASP.Net上就可以使业务逻辑和Html页面分离,这样无论页面原型如何改变,业务逻辑代码都不必做任何改动;继承性和多态性使得代码的可重用性大大提高。
变相怪杰 该用户已被删除
7#
发表于 2015-3-12 16:47:09 | 只看该作者
Session:这个存储跟客户端会话过程的数据,默认20分钟失效
愤怒的大鸟 该用户已被删除
8#
发表于 2015-3-20 00:41:41 | 只看该作者
运用ASP可将VBscript、javascript等脚本语言嵌入到HTML中,便可快速完成网站的应用程序,无需编译,可在服务器端直接执行。容易编写,使用普通的文本编辑器编写,如记事本就可以完成。由脚本在服务器上而不是客户端运行,ASP所使用的脚本语言都在服务端上运行。
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

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

GMT+8, 2024-12-23 06:57

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

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