ASP汉字转拼音，支持自定义特殊词语_ASP教程

教程Tag：暂无Tag,欢迎添加,赚取U币!

缂傚倸鍊搁崐鎼佸磹妞嬪海鐭嗗ù锝堫嚉濞差亝鏅濋柛灞炬皑閸旂數绱撴担鎻掍壕闂佺浜顤獵MS闂傚倷娴囧畷鐢稿窗閹扮増鍋￠柕澶堝剻濞戞ǚ鏀介悗锝冨妷閸嬫捇宕掗悙鏌ュ敹闂佸搫娲ㄩ崑鐐烘倵椤掆偓閳规垿鎮欓崣澶樻！闂佹悶鍔庨崰鏍ь嚕婵犳碍鏅搁柨鐕傛嫹濠电姷鏁搁崑鐐哄垂鐠轰警娼栭悷娆忓閻濆爼鏌涢埄鍐槈闁绘挻锕㈤弻鈥愁吋鎼粹€崇闂佹娊鏀辩敮锟犲蓟閵娾晜鍋嗛柛灞剧☉椤忥拷缂傚倸鍊搁崐椋庣矆娓氣偓钘濋梺顒€绉寸粣妤呮煙闁箑澧鹃柤鏉挎健閺屾盯濡烽鐓庮潻缂備讲鍋撳鑸靛姈閻撳啴鏌曟径鍫濆闁绘繍浜弻锝呪攽閹炬潙顏� 闂傚倸鍊搁崐椋庢閿熺姴纾婚柛鏇ㄥ瀬閸ャ劍缍囬柍鍝勫暟椤︻垱绻濋姀锝嗙【闁哄牜鍓熷畷妤€饪伴崼鐔哄幐闂佹悶鍎崝宥夋儍閹达附鈷掑璺猴功鏁堥梺鍝勮閸婃牕岣胯箛娑樜╅柨鏃傜帛椤ユ稓绱撻崒娆戝妽闁哥偛顭烽獮蹇涙晸閿燂拷闂傚倸鍊风粈渚€骞栭锕€鐤柣妤€鐗婇崣蹇涙煙缂併垹鏋涙俊鐐扮矙閺屸€愁吋鎼粹€茬敖闂佸憡顨嗙喊宥囨崲濞戙垹骞㈡俊顖濐嚙闂夊秴鈹戦鍡欑ɑ闁告梹顨婇崺鈧い鎺戝枤濞兼劙鏌熼鑲╁煟鐎规洘娲熼弻鍡楊吋閸涱垳鍘梻浣芥硶閸ｏ箓骞忛敓锟�,闂傚倸鍊峰ù鍥儍椤愶箑绀嬫い鎰╁灩琚橀梻浣筋嚙濮橈箓锝炴径瀣濠电姴鍋嗛崵鏇㈡煕椤愶絾绀€缂佲偓閸愨斂浜滈柡鍌氱仢閹垶銇勮箛鏇炴瀾缂佺粯鐩獮瀣倷閺夋垹娈ら梻浣呵归鍡涘箲閸パ屾綎闁告繂瀚ч弸搴ㄦ煙椤栧棗瀚禍顏堟⒒娴ｅ憡鍟為柣鐔村劤閹广垹螣娓氼垰娈ㄦ繝鐢靛У绾板秹寮查幖浣圭叆闁绘洖鍊圭€氾拷!

推荐：ASP连接11种数据库语法总结
经常使用到有关数据库的操作。包括连接代码、SQL命令等等，又不曾刻意去记忆它们（我本人是不愿意去记这东东），所以常常在用到的时候又去查书本，翻来翻去。一些比较少用的数据库还不一定能顺

这次更新了一下自已所用的博客程序，将生成静态文件时的文件名用文章标题的拼音，这就涉及到如何将文字转成拼音了，在网上大概的看了看，千篇一律的那个函数，应该只可以在GB2312下正常，也没有做太多考虑，这就拿出了曾在无忧系统的源码里看到过的一段用上了。

来看看下面的函数，加入少量注释：

这是一个自定义特殊词语的一个函数

以下为引用的内容：
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

然后就是最关键的函数pinyin(byval chinese) 他将中文转换到拼音

以下为引用的内容：
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

使用方法：

以下为引用的内容：
response.write pinyin("中国你好，欢迎来到中国！")

这种方法，转换成的拼音格式文件名非常友好，对SEO方面有要求的小程们，可以试试的。

分享：asp简介和五大内置对象
目次 1．ASP基础 2．ASP的五大对象 3．Request对象 4．Response对象 5．Server对象 6．Application对象 7．Session对象 1．ASP基础 Microsoft Active Server Pages,即读者朋友们所称的