99亚洲_成人性视频免费网站_av在线播放网址_免费成人在线网站_亚洲综合婷婷_亚洲一区二区国产

訂閱本欄目 RSS您所在的位置: 深山工作室 > ASP > 正文

ASP漢字轉拼音,支持自定義特殊詞語

深山行者個人網站 2010/1/20 13:40:45 深山行者 字體: 瀏覽 12311
以下是”特殊字符“代碼:


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日歷代碼
相關閱讀
用dl、dt、dd制作個性表格
靜態頁面在文本框中輸入數字,表格直接算出相應的結果
網頁添加WhatsApp跳轉鏈接教程
搜索引擎優化八個基礎的知識
旅行社手機網站模板4
平遙旅游360網
做海外電商單頁的facebook像素廣告代碼與相關事件處理
uni-app基礎知識數據綁定
共有0條關于《ASP漢字轉拼音,支持自定義特殊詞語》的評論
發表評論
正在加載評論......
返回頂部發表評論
呢 稱:
表 情:
內 容:
評論內容:不能超過 1000 字,需審核,請自覺遵守互聯網相關政策法規。
驗證碼: 驗證碼 
網友評論聲明,請自覺遵守互聯網相關政策法規。

您發布的評論即表示同意遵守以下條款:
一、不得利用本站危害國家安全、泄露國家秘密,不得侵犯國家、社會、集體和公民的合法權益;
二、不得發布國家法律、法規明令禁止的內容;互相尊重,對自己在本站的言論和行為負責;
三、本站對您所發布內容擁有處置權。

更多信息>>欄目類別選擇
百度小程序開發
微信小程序開發
微信公眾號開發
uni-app
asp函數庫
ASP
DIV+CSS
HTML
python
更多>>同類信息
ASP中Utf-8與Gb2312編碼轉換亂碼問題的解決方法頁面編碼聲明
asp顯示隨機密碼
通過阿里云服務接口獲得ip地址詳細信息
iis點開后任務欄上有顯示,但是窗口看不到的解決辦法
RSA加密解密插件
微軟Encoder加密解密函數
更多>>最新添加文章
dw里面查找替換使用正則刪除sqlserver里面的CONSTRAINT
Android移動端自動化測試:使用UIAutomatorViewer與Selenium定位元素
抖音直播音掛載小雪花 懂車帝小程序
javascript獲取瀏覽器指紋可以用來做投票
火狐Mozilla Firefox出現:無法載入您的Firefox配置文件 它可能已經丟失 或是無法訪問 問題解決集合處理辦法
在Android、iOS、Windows、MacOS中微信小程序的文件存放路徑
python通過代碼修改pip下載源讓下載庫飛起
python里面requests.post返回的res.text還有其它的嗎
更多>>隨機抽取信息
用ASP實現IE地址欄參數的判斷
CSS設計網頁頭部的優化寫法
input文本輸入框只能輸入數字或字母或漢字等
如何讓百度、Google收錄你的站點
禁止網站的靜態模板被下載
ASP.NET中文亂碼問題的解決。
主站蜘蛛池模板: 韩国精品一区二区 | 最新国产在线视频 | 精品亚洲国产成av人片传媒 | 亚洲免费视频在线 | 精品av| 一级片在线观看 | 亚洲高清视频一区 | 亚洲欧美中文字幕 | 国产黄色三级 | 久久精品无码一区二区三区 | 欧美一区免费 | 久久毛片 | 午夜精品成人一区二区 | 久久精品成人一区二区三区蜜臀 | 中文字幕国产视频 | 欧美成人一区二区三区 | 91在线高清观看 | 日本在线视频免费观看 | 精品久久久久久久久久久久 | 亚洲蜜桃妇女 | 国产午夜精品一区二区三区嫩草 | 午夜在线小视频 | 欧美亚洲免费 | 亚洲国产aⅴ精品一区二区 少妇一级片免费看 | av黄色网 | 日本看片网站 | 天天拍天天草 | 久久99精品久久久久久久青青日本 | 国产精品欧美一区二区三区不卡 | 国产亚洲精品久久久456 | 免费看黄在线 | 久久久久久成人 | 12306影视午夜入口 | 白浆在线| 黄色片在线免费观看 | 日韩精品一区二区三区在线观看 | a国产精品 | 日韩精品免费一区二区三区 | 中文免费字幕 | 亚洲欧美日韩在线 | 久久99国产一区二区三区 |