|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
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系统最初的设计问题而会引发大量的安全问题。只要在这样的组件或是操作中一不注意,哪么外部攻击就可以取得相当高的权限而导致网站瘫痪或者数据丢失; |
|