UNICODE文字转换问题（终于解决了2007/2/8）

我的页面是日文编码。
现在遇到一个问题，文本框里姓名的地方可能有中文姓名，现在输入中文姓名，保存到数据库中后，姓名在表中是用unicode得编码存放的，在 显示 到页面上也没有问题，现在是还要打印到Excel中，结果就有问题了。
打印出来的数据是Unicode码，而不是中文。
如：“婷嫗“   在Excel中显示“&＃23159;嫗”

解决方案：

Function uni2gb(str)

    Dim tmp,tmpstr,i

    tmpstr  =   ""

    For i  =   1  To Len(str)

        tmp = Mid(str,i, 1 )

        If tmp  =   " & "  And Mid(str,i  +   1 , 1 )  =   " # "  And Mid(str,i  +   7 , 1 )  =   " ; "  And IsNumeric(Mid(str,i  +   2 , 5 ))  =  True Then 
            tmpstr  =  tmpstr  &  ChrW(Mid(str,i  +   2 , 5 ))
            i  =  i  +   7
        Else
            tmpstr  =  tmpstr  &  tmp
        End If
    Next

    uni2gb = tmpstr

End Function 

转载于:https://www.cnblogs.com/meil/archive/2007/02/01/636658.html