本 站 搜 索     推 荐 文 章        More... 华硕易电脑(ASUS Eee PC 1025C.. 先来段开场白：为了外出携带方便，到淘.. Acronis True Image 使用说明 　　一款可以在Windows下使用全部功.. Norton Ghost 使用详解 一、分区备份 　　使用Ghost进行系..     文 章 阅 读 排 行 手机视频监控 APP 关闭广告：萤.. 一、萤石云视频：我的，设置，隐私设置，.. 常见数据库介绍与对比（SQL Serv.. 常见数据库的对比分析，涵盖你提到的 A.. Windows 系统修改默认文件类型.. Windows 系统文件类型图标，通常由默.. Windows 系统安装或备份时 ISO，.. 【ISO 文件】 ISO 文件其实就是光.. Microsoft SQL Server 2000 Per.. 　　对于第一次安装 Microsoft SQL Se.. 颜色与英文单词对照 颜色与英文单词对照 red green bl.. PakePlus 构建 APP 需要 Github.. PakePlus 是一个基于 Rust Tauri 的.. 主页真的越Google、越简洁越好吗 　　如果你在11月10日早上打开雅虎中.. 网络工程师必懂的专业术语 路由器问题：1、什么时候使用多路由协.. 为啥现在的电脑都不能安装 Wind.. 说实话，这几年如果你尝试在新电脑..

文 章 信 息 金额大小写转换的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 〖文章浏览：〗〖发送文章〗〖打印文章〗