爱易网
IT新闻
IT新闻
爱易资讯
网站搭建
云虚拟主机教程
云服务器教程
Apache教程
IIS教程
Nginx教程
网站策划
站长文章
推广教程
淘宝客教程
网页设计
HTML教程
XHTML教程
CSS教程
HTML5教程
CSS3教程
JavaSript基础
JQuery教程
Node.js教程
前端技术
Ajax教程
Js特效
Xml教程
平面设计
页面UI设计
photoshop教程
程序开发
AI人工智能
Asp教程
Php教程
Asp.Net教程
Net Core教程
C#教程
Java教程
Jsp教程
开发技术
微信小程序教程
Uniapp开发教程
微信公众号开发
Andriod教程
IOS教程
DOS教程
Python教程
Docker教程
Windows Container教程
数据库
MSSQL教程
MySQL教程
Redis教程
Access教程
Oracle教程
数据库教程
操作系统
Linux教程
Windows教程
MAC教程
Cisco教程
交换机教程
防火墙教程
搜索
爱易网页
JS特效
语音大小写转换
语音大小写转换
日期:2014-05-18 浏览次数:20115 次
欢迎光临爱易网网页脚本特效中心,点击运行按钮演示特效:
以下是程序代码
脚本说明: 把如下代码加入<body>区域中 <bgsound id=bgsoundone src="" loop=1> <SCRIPT LANGUAGE="VBScript"> dim hj,hji sub document_onkeypress() if window.event.srcelement.id="num" and window.event.keycode="13" then call retu_cn() end if end sub sub window_onload() document.fmSubmit.t1.focus() end sub SUB retu_cn() dim n,m_hj,s,ch,ch2,ch3,num num=Replace(trim(document.fmSubmit.t1.value),",","",1,-1,1) if num="" then MsgBox "您还没有输入金额!" document.fmSubmit.t1.focus() exit sub End If if IsNumeric(num)=False then MsgBox "您输入的不是金额!" document.fmSubmit.t1.focus() exit sub End If n=FormatNumber(num,2) num=n n=Replace(n,",","",1,-1,1) If len(n)>15 Then MsgBox "金额必须小于千亿!" document.fmSubmit.t1.focus() exit sub End If hj=space(0) s="840" ch="壹贰叁肆伍陆柒捌玖" ch2="仟佰拾 " ch3="亿万元" for x=1 to 3 m=cstr(int(n/10^FormatNumber(mid(s,x,1),0,-1))) m=space(4-len(m))+m m_hj=space(0) if m<>" 0" then for y=1 to 4 if mid(m,y,1)<>space(1) and mid(m,y,1)<>"0" then m_hj=trim(m_hj+mid(ch,FormatNumber(mid(m,y,1),0,-1),1)+mid(ch2,y,1)) else if mid(m,y,1)=space(1) or mid(m,y,1)="0" then m_hj=m_hj if right(m_hj,1)="零" then m_hj=m_hj+space(0) else m_hj=m_hj+"零" end if else m_hj=m_hj end if end if next if right(m_hj,1)="零" then m_hj=mid(m_hj,1,len(m_hj)-1)+mid(ch3,x,1) if x=3 then m_hj=m_hj+space(0) else m_hj=m_hj+"零" end if else m_hj=m_hj+mid(ch3,x,1) end if if right(hj,1)="零" and mid(m_hj,1,1)="零" then hj=hj+mid(m_hj,2,len(m_hj)-1) else hj=hj+m_hj end if else if x=3 then if right(hj,1)="零" then if trim(hj)="零" then hj=hj+space(0) else hj=mid(hj,1,len(hj)-1)+"元" end if else if trim(hj)="零" then hj=hj+space(0) else hj=hj+"元" end if end if else if right(hj,1)="零" then hj=hj+space(0) else hj=hj+"零" end if end if end if if n-int(n)=0 then n=n-int(FormatNumber(m,0,-1))*10^int(FormatNumber(mid(s,x,1),0,-1)) else tt=FormatNumber("0."+mid(cstr(n),Instr(1,n,".")+1,2),2) n=int(n) n=n-int(FormatNumber(m,0,-1))*10^int(FormatNumber(mid(s,x,1),0,-1)) n=n+tt end if next m=mid(cstr(n),2,2) if trim(len(m))<>2 then m=m+"0" end if if n*100=0 then if left(hj,1)="零" then if right(hj,1)="零" then hj=hj+"元整" else hj=mid(hj,2,len(hj)-1)+"整" end if else if right(hj,1)="零" then hj=mid(hj,1,len(hj)-1)+"整" else hj=hj+"整" end if end if else if right(hj,1)="零" then hj=mid(hj,1,len(hj)-1) else hj=hj if mid(m,1,1)="0" or mid(m,1,1)=space(1) then hj=hj+"零" else hj=hj+mid(ch,FormatNumber(mid(m,1,1),0,-1),1)+"角" end if end if if mid(hj,1,1)="零" then hj=mid(hj,2,len(hj)-1) else hj=hj end if if mid(m,2,1)="0" then hj=hj+"整" else hj=hj+mid(ch,FormatNumber(mid(m,2,1),0,-1),1)+"分" end if end if if num=".00" then document.fmSubmit.t1.value="0.00" else document.fmSubmit.t1.value=num end if document.fmSubmit.t2.value="" hji=1 call read() End Sub SUB read() MyVar=mid(hj,hji,1) document.fmSubmit.t2.value=document.fmSubmit.t2.value+MyVar Select Case MyVar Case "零" document.all("bgsoundone").src="wav/0.wav" Case "壹" document.all("bgsoundone").src="wav/1.wav" Case "贰" document.all("bgsoundone").src="wav/2.wav" Case "叁" document.all("bgsoundone").src="wav/3.wav" Case "肆" document.all("bgsoundone").src="wav/4.wav" Case "伍" document.all("bgsoundone").src="wav/5.wav" Case "陆" document.all("bgsoundone").src="wav/6.wav" Case "柒" document.all("bgsoundone").src="wav/7.wav" Case "捌" document.all("bgsoundone").src="wav/8.wav" Case "玖" document.all("bgsoundone").src="wav/9.wav" Case "拾" document.all("bgsoundone").src="wav/10.wav" Case "佰" document.all("bgsoundone").src="wav/b.wav" Case "仟" document.all("bgsoundone").src="wav/q.wav" Case "万" document.all("bgsoun
上一篇:狡猾的按钮特效
下一篇:检查窗口的关闭打开
免责声明:
本文仅代表作者个人观点,与爱易网无关。其原创性以及文中陈述文字和内容未经本站证实,对本文以及其中全部或者部分内容、文字的真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
相关资料
更多>
天音通信170套餐试商用放号:流量两年不清零
IT企业人才争夺战打响:员工待遇水涨船高
阿里入股虎嗅:媒体的脊梁弯了?未必!
微软的云服务显示出他们将自我进化
微软确认 Surface 计划更多尺寸和LTE 版本
京东微信入口战略能否助力618大促创流量巅峰
优酷土豆兼并一年:依然处于烧钱形状
2018双11阿里云老用户怎么参加拼团活动 老用户拼团方法
高通反垄断案下月有望落定
推荐阅读
更多>
微信收费形式三选一 腾讯或变身运营商
小米发明的“低价抢购”模式还能管用多久?
诺基亚培育低端机市场 迂回战术要挟中华酷联
华为变阵:任正非调整三大业务布局
HTC以品牌营销突围 专家建议改变经营思路
英特尔技术高管离任 电视业务或受影响
快递企业征收“份子钱” 成全了谁 苦了谁?
科技巨匠体验谷歌眼镜:戴上了就不想摘上去
途牛旅游网今晚挂牌纳斯达克 融资1亿美元
央行暂停二维码支付及虚拟信用卡 支付宝微信不知情
金山毒霸安全中心: XP退役后首个高危漏洞来了
苹果音乐效劳新战略:与唱片商停止流媒体协作
SAP高层调整:联席CEO孟鼎铭成唯一掌舵人
苹果售后生态链乱象:供需失衡价钱不一
中移动将推出多项4G资费新政
微软小冰复活再战移动端:改与米聊、易信和触宝合作
赴美开店,阿里11Main准备好了吗?
国美痛批网购七宗罪 用短暂盈利输了未来
盛大游戏走向衰落的根源:免费游戏模式惹的祸
200美元英特尔Android笔记本行将到来