UTF-8格式下的获取拼音首字母的ASP程序的问题

参考一下下面的程序
我是用VBS写的,可以方便地移植到ASP中
<script language=vbscript>
'转换拼音
Public Function GetPyChar(char)
On Error Resume Next
Dim Tmp
Tmp = 65536 + Asc(char)
If T