ASP+UTF-8下实现汉字转拼音的函数代码：多音字处理

<%
'---------------------------------------------------------------
' Hanzi2Pinyin 1.1.0
' Copyright (c) 2009-2010 K88.CN - Hanzi2Pinyin 版权所有。
' 说明: 汉字转换拼音函数 (多音字区分功能)
' 环境: ASP + UTF-8
' 作者: 刘松 (Web:http://www.k88.cn, QQ:276359669, MSN:cniir@hotmail.com)
'---------------------------------------------------------------
Function Hanzi2Pinyin(strHanzi)
    ''变量定义
    Dim objConn
    Dim chrHanzi
    Dim strPinyin, strSql
    Dim intHanziAsc, intHanziLen
    Dim rsDuoyinzi
    Dim i
    Hanzi2Pinyin = "" '初始化
    ''是否含有转换字符
    If strHanzi > "" Then
        ' 进行转换
        ''使用数据库字典
        Set objConn = Server.CreateObject("ADODB.Connection")
        objConn.Open "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & server.mappath("#pinyin.mdb") '汉字拼音对照数据库
        intHanziLen = Len(strHanzi) '字符数
        ''单字循环转换
        For i = 1 to intHanziLen
            strPinyin = "" '拼音复位
            chrHanzi = Mid(strHanzi, i, 1) '单字
            intHanziAsc = Ascw(chrHanzi) '单字Unicode码位
            ''单字Unicode码位补码