爱易网
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 浏览次数:20116 次
欢迎光临爱易网网页脚本特效中心,点击运行按钮演示特效:
以下是程序代码
脚本说明: 把如下代码加入<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
上一篇:狡猾的按钮特效
下一篇:检查窗口的关闭打开
免责声明:
本文仅代表作者个人观点,与爱易网无关。其原创性以及文中陈述文字和内容未经本站证实,对本文以及其中全部或者部分内容、文字的真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
相关资料
更多>
微软小冰复活再战移动端:改与米聊、易信和触宝合作
网易云音乐能否为丁磊拿到移动互联网门票?
微软觊觎移动互联市场:手机未出渠道先行
快播灭了,还有西瓜:视频网站的灰色江湖还在
中兴引进黑莓三个核心团队
可靠消息称微型针孔偷拍设备拟全面禁止
柳传志马云陷舆论漩涡:请不要辜负这个时代
运营商补贴减少 国内通信业拐点逼近
携程收买酷讯成定局:转型互联网+投资
推荐阅读
更多>
雅安地震救灾前线的科技之手 微弱而暖和
雷军会做赔钱生意?迅雷跌破发行价 市值仅7亿美元
打车软件“明补变暗补”背后的小算盘
中移动将推出多项4G资费新政
只有切到刚需痛点,漫画APP才能走下去
支付宝服务窗后台首曝光 开放用户消费数据
解析2014年阿里百度等五大互联网巨头深度布局
微软觊觎移动互联市场:手机未出渠道先行
三问刘强东:京东为何近来火气这么大?
小米盗版有理激怒乐视:提500部盗播证据猛追打
继续涨:微博IPO第二交易日 收盘大涨11.71%
纸媒深探版权蓝海抗衡互联网的时机到来了
百度“全网寻人”面前的互联网信息枢纽价值
百度吴恩达:图像和音视频搜索是人工智能新方向
称产品遭诋毁 奇虎再诉百度
谷歌安卓全球副总裁为何跳槽中国企业小米?
FB上广告费用昂贵而且效果不及Twitter
互联网情色众多 Facebook与9158态度大不同
小米发明的“低价抢购”模式还能管用多久?
金山毒霸安全中心: XP退役后首个高危漏洞来了