订阅本栏目 RSS您所在的位置: 深山工作室 > ASP > 正文

ASP汉字转拼音,支持自定义特殊词语

深山行者个人网站 2010/1/20 13:40:45 深山行者 字体: 浏览 10672
以下是”特殊字符“代码:


Function getEnglish(ByVal Str)
    getEnglish = Str
    getEnglish = Replace(getEnglish, "中国", " china ")
    getEnglish = Replace(getEnglish, "策划", " plan ")
    getEnglish = Replace(getEnglish, "免费", " free ")
    getEnglish = Replace(getEnglish, "介绍", " intro ")
    getEnglish = Replace(getEnglish, "技巧", " skill ")
    getEnglish = Replace(getEnglish, "生活", " life ")
    getEnglish = Replace(getEnglish, "活动", " activity ")
    getEnglish = Replace(getEnglish, "工具", " tool ")
    getEnglish = Replace(getEnglish, "联盟", " union ")
    getEnglish = Replace(getEnglish, "注册", " register ")
    getEnglish = Replace(getEnglish, "经验", " experience ")
    getEnglish = Replace(getEnglish, "翻译", " translate ")
    getEnglish = Replace(getEnglish, "项目", " item ")
    getEnglish = Replace(getEnglish, "网站", " web-site ")
    getEnglish = Replace(getEnglish, "英语", " english ")
    getEnglish = Replace(getEnglish, "英文", " english ")
    getEnglish = Replace(getEnglish, "雅虎", " yahoo ")
    getEnglish = Replace(getEnglish, "新浪", " sina ")
    getEnglish = Replace(getEnglish, "支付宝", " alipay ")
    getEnglish = Replace(getEnglish, "交易", " trade ")
    getEnglish = Replace(getEnglish, "网店", " b2c ")
    getEnglish = Replace(getEnglish, "升级", " update ")
    getEnglish = Replace(getEnglish, "杂志", " magazine ")
    getEnglish = Replace(getEnglish, "空间", " space ")
    getEnglish = Replace(getEnglish, "爱情", " love ")
    getEnglish = Replace(getEnglish, "朋友", " friend ")
    getEnglish = Replace(getEnglish, "友情", " friend ")
    getEnglish = Replace(getEnglish, "链接", " like ")
    getEnglish = Replace(getEnglish, "标签", " label ")
    getEnglish = Replace(getEnglish, "运行", " running ")
    getEnglish = Replace(getEnglish, "管理", " manager ")
    getEnglish = Replace(getEnglish, "管理", " manage ")
    getEnglish = Replace(getEnglish, "页面", " page ")
    getEnglish = Replace(getEnglish, "模板", " template ")
    getEnglish = Replace(getEnglish, "游戏", " game ")
    getEnglish = Replace(getEnglish, "论坛", " forum ")
    getEnglish = Replace(getEnglish, "新闻", " news ")
    getEnglish = Replace(getEnglish, "音乐", " music ")
    getEnglish = Replace(getEnglish, "帮助", " help ")
    getEnglish = Replace(getEnglish, "优化", " optimize ")
    getEnglish = Replace(getEnglish, "软件", " soft ")
    getEnglish = Replace(getEnglish, "教程", " tech ")
    getEnglish = Replace(getEnglish, "下载", " download ")
    getEnglish = Replace(getEnglish, "搜索", " search ")
    getEnglish = Replace(getEnglish, "引擎", " engine ")
    getEnglish = Replace(getEnglish, "蜘蛛", " spider ")
    getEnglish = Replace(getEnglish, "日志", " log ")
    getEnglish = Replace(getEnglish, "博客", " blog ")
    getEnglish = Replace(getEnglish, "百度", " baidu ")
    getEnglish = Replace(getEnglish, "谷歌", " google ")
    getEnglish = Replace(getEnglish, "邮箱", " mailbox ")
    getEnglish = Replace(getEnglish, "邮件", " mail ")
    getEnglish = Replace(getEnglish, "域名", " domain ")
    getEnglish = Replace(getEnglish, "测试", " test")
    getEnglish = Replace(getEnglish, "演示", " demo ")
    getEnglish = Replace(getEnglish, "音乐", " music ")
    getEnglish = Replace(getEnglish, "笑话", " joke ")
    getEnglish = Replace(getEnglish, "产品", " product ")
    getEnglish = Replace(getEnglish, "留言", " message ")
    getEnglish = Replace(getEnglish, "反馈", " freedback ")
    getEnglish = Replace(getEnglish, "评论", " comment ")
    getEnglish = Replace(getEnglish, "推荐", " commend ")
    getEnglish = Replace(getEnglish, "共享", " share ")
    getEnglish = Replace(getEnglish, "资源", " resource ")
    getEnglish = Replace(getEnglish, "插件", " plugins ")
    getEnglish = Replace(getEnglish, "本本", " notebook ")
    getEnglish = Replace(getEnglish, "电脑", " computer ")
    getEnglish = Replace(getEnglish, "系统", " system ")
    getEnglish = Replace(getEnglish, "学校", " school ")
    getEnglish = Replace(getEnglish, "无忧", " 5u ")
    getEnglish = Replace(getEnglish, "工作", " job ")
    getEnglish = Replace(getEnglish, "信息", " info ")
    getEnglish = Replace(getEnglish, "娱乐", " ent ")
    getEnglish = Replace(getEnglish, "汽车", " car ")
    getEnglish = Replace(getEnglish, "手机", " mobile ")
    getEnglish = Replace(getEnglish, "网络", " network ")
    getEnglish = Replace(getEnglish, "老板", " boss ")
    getEnglish = Replace(getEnglish, "狗", " dog ")
    getEnglish = Replace(getEnglish, "电视", " tv ")
    getEnglish = Replace(getEnglish, "电影", " movie ")
End Function



以下是"中文转换到拼音"引用片段:

function pinyin(byval chinese)
    chinese = replace(chinese, "/", ""): chinese = replace(chinese, "\", "")
    chinese = replace(chinese, "*", ""): chinese = replace(chinese, "]", "")
    chinese = replace(chinese, "[", ""): chinese = replace(chinese, "}", "")
    chinese = replace(chinese, "{", ""): chinese = replace(chinese, "'", "")
    chinese = getEnglish(chinese) '在这里使用getEnglish先将特殊词语转换
    dim pinyinstr, istr, iIsCn, IsCn
    dim pinyinconn, rs, i, x
    '在这里打开拼音库
    '你也可以将拼音库的并入你的程序数据库里.
    on error resume next
    set pinyinconn = server.createobject("Adodb.connection")
    pinyinconn.open "Provider=Microsoft.Jet.OLEdb.4.0;Data Source=" & server.mappath("pinyin.Asp")
    if err then pinyin = "": set pinyinconn = nothing: exit function
    IsCn = true
    for i = 1 to len(chinese)
    iIsCn = IsCn ' 获取上次是不是中文的值
    istr = Mid(chinese, i, 1)
    x = Asc(istr)
    if (x >= 65 and x <= 90) or (x >= 97 and x <= 122) or (x >= 48 and x <= 57) or istr = " " then
        IsCn = false ' 这些是英文,数字(保留字符),不改动
        if istr = " " then istr = "-"
    else
        set rs = pinyinconn.execute("select Top 1 [pinyin] From [pinyin] Where [content] like '%" & istr & "%';")
        if not rs.eof then
        istr = lcase(rs(0)): IsCn = true   ' 中文
        else
        IsCn = false
        if istr = " " then istr = "-" else istr = "" ' 将空格转换成-,如果是其他字符则清除
        end if
        rs.close: set rs = nothing
    end if
    if iIsCn = IsCn then pinyinstr = pinyinstr & istr else pinyinstr = pinyinstr & "-" & istr
    pinyinstr = replace(pinyinstr, "--", "-")
    pinyinstr = replace(pinyinstr, "__", "_")
    next
    if right(pinyinstr, 1) = "-" then pinyinstr = left(pinyinstr, len(pinyinstr) - 1)
    if right(pinyinstr, 1) = "_" then pinyinstr = left(pinyinstr, len(pinyinstr) - 1)
    if left(pinyinstr, 1) = "-" then pinyinstr = right(pinyinstr, len(pinyinstr) - 1)
    if left(pinyinstr, 1) = "_" then pinyinstr = right(pinyinstr, len(pinyinstr) - 1)
    pinyinconn.close
    set pinyinconn = nothing
    pinyin = trim(pinyinstr)
end Function


拼间数据库:pinyin.rar

后一页:asp日历代码
相关阅读
网页小键盘/软键盘
一个非常不错的文字的提示
一行内文本超出指定宽度溢出的处理
许愿墙开始重新设计。
div+css黑色焦点图(幻灯片效果非常 不错)
关于css
全站托管解决方案
IIS上传文件大小解处限制的方法
共有0条关于《ASP汉字转拼音,支持自定义特殊词语》的评论
发表评论
正在加载评论......
返回顶部发表评论
呢 称:
表 情:
内 容:
评论内容:不能超过 1000 字,需审核,请自觉遵守互联网相关政策法规。
验证码: 验证码 
网友评论声明,请自觉遵守互联网相关政策法规。

您发布的评论即表示同意遵守以下条款:
一、不得利用本站危害国家安全、泄露国家秘密,不得侵犯国家、社会、集体和公民的合法权益;
二、不得发布国家法律、法规明令禁止的内容;互相尊重,对自己在本站的言论和行为负责;
三、本站对您所发布内容拥有处置权。

更多信息>>栏目类别选择
百度小程序开发
微信小程序开发
微信公众号开发
uni-app
asp函数库
ASP
DIV+CSS
HTML
更多>>同类信息
asp无限级调用分类显示
实现iis6与iis7环境下支持mp4视频随意拖动、预览播放、边下载边播放
做好的网站把http改成https申请SSL域名证书
纯asp根据当前日期计算出当前年份的属相
sql server中前缀为PK、UK、DF、CK、FK表的意思
ASP利用fso读取文件夹里所有文件的名字
更多>>最新添加文章
呼伦贝尔市北天草原旅行社有限公司
四川悠旅地旅游有限公司
连云港五洲旅行社有限公司
邓州市途鸿旅行社
连云港华夏国际旅行社有限公司
重庆长航江山国际旅行社
松原市海航商务旅行社
广西亚太国际旅行社有限公司
更多>>随机抽取信息
asp页面ip防火墙限制(判断ip内网还是外网)功能
许愿墙页面设计完成,开始进行写相关的样式
利用DIV+CSS制作浮动广告,没有用到多少javascript,全是css
汉字转声母
Asp加密解密函数
一个简单的用java写的非常不错的贪食蛇游戏