|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
减少客户内IT专业人才缺乏带来的影响。ASP的客户员工利用浏览器进入相关的应用软件,简单易用,无需专业技术支持。函数比来在公司做一个帐务报销体系。
必要把一个MONEY值的个位十位百位千位另有角啊分啊的独自掏出来天生表格。
因而写了一个失掉此值的Function,放到这里共享。假如你看到有写得不当的中央,请给我来killhand007@163.com斧正交换。
FunctionMoneynm(n,m)
checkPoint=InstrRev(n,".")
Ifn>9999.99Then
Response.write"数据凌驾限定,请断定您的报销金额在9999.99元之内!"
Else
If(checkPoint0)Then
leftNum=Mid(n,1,checkPoint-1)
rightNum=Mid(n,checkPoint+1,Len(n))
Else
leftNum=n
EndIf
gw=Mid(leftNum,Len(leftNum),Len(leftNum))
sw=0
bw=0
qw=0
jw=0
fw=0
IfLen(leftNum)>1Then
sw=Mid(leftNum,Len(leftNum)-1,1)
EndIf
IfLen(leftNum)>2Then
bw=Mid(leftNum,Len(leftNum)-2,1)
EndIf
IfLen(leftNum)>3Then
qw=Mid(leftNum,Len(leftNum)-3,1)
EndIf
IfLen(rightNum)>0Then
jw=Mid(rightNum,1,1)
EndIf
IfLen(rightNum)>1Then
fw=Mid(rightNum,2,1)
EndIf
Selectcasem
case"gw"
Response.Writegw
case"sw"
Response.Writesw
case"bw"
Response.Writebw
case"qw"
Response.Writeqw
case"jw"
Response.Writejw
case"fw"
Response.Writefw
EndSelect
EndIf
EndFunction
固然在此基本上你还能够失掉万位十万位等。
但愿对有必要的伴侣有所匡助。
</p>asp对于服务器的要求较高,一般的服务器如果访问量一大就垮了,不得不重启。 |
|