ASP汉字转拼音,支持自定义特殊词语
2009-05-12 14:58:53来源:未知 阅读 ()
这次更新了一下自已所用的博客程序,将生成静态文件时的文件名用文章标题的拼音,这就涉及到如何将文字转成拼音了,在网上大概的看了看,千篇一律的那个函数,应该只可以在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 |
标签:
版权申明:本站文章部分自网络,如有侵权,请联系:west999com@outlook.com
特别注意:本站所有转载文章言论不代表本站观点,本站所提供的摄影照片,插画,设计作品,如需使用,请与原作者联系,版权归原作者所有
下一篇:如何节约程序开发中的时间
- ASP定义数组方法的技巧 2019-10-25
- fso的特殊功能 2019-08-31
- FSO的这些特殊功能你了解几个 2019-04-25
- fso特殊功能的详细解读 2018-10-06
- 在ASP中使用类,实现模块化 2009-05-12
IDC资讯: 主机资讯 注册资讯 托管资讯 vps资讯 网站建设
网站运营: 建站经验 策划盈利 搜索优化 网站推广 免费资源
网络编程: Asp.Net编程 Asp编程 Php编程 Xml编程 Access Mssql Mysql 其它
服务器技术: Web服务器 Ftp服务器 Mail服务器 Dns服务器 安全防护
软件技巧: 其它软件 Word Excel Powerpoint Ghost Vista QQ空间 QQ FlashGet 迅雷
网页制作: FrontPages Dreamweaver Javascript css photoshop fireworks Flash