[会员中心]  [发布文章][发布软件]  [中文繁體]
 文章·资料  电脑软件  手机软件  网站源码
    本 站 搜 索
[选项]
   推 荐 文 章        More...
华硕易电脑(ASUS Eee PC 10..
先来段开场白:为了外出携带方便,..
Acronis True Image 使用..
  一款可以在Windows下使用全..
Norton Ghost 使用详解
一、分区备份   使用Ghost进..
    文 章 阅 读 排 行
Microsoft SQL Server 2000..
  对于第一次安装 Microsoft SQ..
ASP:Dimac W3 JMail 发送..
【发送邮件测试代码下载】压..
ASP:Persits ASPMail 发送..
【发送邮件测试代码下载】压..
VMware Workstation:安装..
编写这份虚拟机安装的图文教程,..
华硕易电脑(ASUS Eee PC 10..
先来段开场白:为了外出携带方便,..
ASP:Microsoft CDO 发送邮..
【发送邮件测试代码下载】压..
 文 章 信 息
金额大小写转换的ASP版
评论()〗〖留言〗〖收藏
〖文章分类:电脑·手机·网络 / 网站设计·开发·优化〗〖阅读选项
01 <form name= "form1" method= "post" action= "Submit.asp" >
02  <input type= "text" name= "page1num" >
03  <input type= "submit" name= "Submit" value= "提交" >
04 </form>
05 
06 ------以下是Submit.asp的代码---------
07 <%
08 dim tmpnum
09 '从第一张页面传过来的小写金额
10 tmpnum=request("page1num")
11 '调用并显示大写金额
12 response.write rmb(cdbl(tmpnum))
13 response.end
14 %>
15 <%
16 Function rmb(num)
17 num = FormatNumber(num, 2)
18 dim numList
19 dim rmbList
20 dim numLen
21 dim numChar
22 dim numstr
23 dim n
24 dim n1, n2
25 dim hz
26 numList = "零壹贰叁肆伍陆柒捌玖"
27 rmbList = "分角元拾佰仟万拾佰仟亿拾佰仟万"
28 If num > 9999999999999.99 Then
29  rmb = "超出范围的人民币值"
30  Exit Function
31 End If
32 
33 numstr = CStr(num * 100)
34 numLen = Len(numstr)
35 n = 1
36 Do While n <= numLen
37  numChar = CInt(Mid(numstr, n, 1))
38  n1 = Mid(numList, numChar + 1, 1)
39  n2 = Mid(rmbList, numLen - n + 1, 1)
40  If Not n1 = "零" Then
41  hz = hz + CStr(n1) + CStr(n2)
42  Else
43  If n2 = "亿" Or n2 = "万" Or n2 = "元" Or n1 = "零" Then
44  Do While Right(hz, 1) = "零"
45  hz = Left(hz, Len(hz) - 1)
46  Loop
47  End If
48  If (n2 = "亿" Or (n2 = "万" And Right(hz, 1) <> "亿" ) Or n2 = "元") Then
49  hz = hz + CStr(n2)
50  Else
51  If Left(Right(hz, 2), 1) = "零" Or Right(hz, 1) <> "亿" Then
52  hz = hz + n1
53  End If
54  End If
55  End If
56  n = n + 1
57 Loop
58 Do While Right(hz, 1) = "零"
59  hz = Left(hz, Len(hz) - 1)
60 Loop
61 If Right(hz, 1) = "元" Then
62  hz = hz + "整"
63 End If
64 rmb = hz
65 End Function
66 %>

文章作者:未知  更新日期:2008-03-07
〖文章浏览:〗〖打印文章〗〖发送文章
阅读说明
·本站大部分文章转载于网络,如有侵权请留言告知,本站即做删除处理。
·本站法律法规类文章转载自[中国政府网(www.org.cn)],相关法律法规如有修订,请浏览[中国政府网]网站。
·本站转载的文章,不为其有效性,实效性,安全性,可用性等做保证。
·如果有什么问题,或者意见建议,请联系[网站管理员]。
  当百网
  本站使用【啊估文章软件站】网站系统    网站管理员留言簿