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

来源：百度知道 编辑：UC知道 时间：2024/05/19 19:03:40
原GB2312下的获取拼音首字母的程序在uft-8下是不能用的，网上的解释是utf-8没有汉字字库。所以网上有一个专门针对此问题的程序，但是运行到GetPy4Utf = Mid(strCHSfirstPY,(ascw(char)-19967),1)
就提示mid函数参数错误。

程序参见：http://www.alixixi.com/Dev/Web/ASP/ASP_3/2008/2008101980866.html
请问问题在哪，或者各位大侠有没有更好的方法，我看这方法速度很慢。如果有，我再追加20分，保证！
楼下的大侠，先谢谢帮助。你的这个代码在utf-8下测试过吗？

参考一下下面的程序
我是用VBS写的,可以方便地移植到ASP中
<script language=vbscript>
'转换拼音
Public Function GetPyChar(char)

On Error Resume Next

Dim Tmp
Tmp = 65536 + Asc(char)
If Tmp = 53687 Then
GetPyChar = "s"
Exit Function
End If
If (Tmp >= 45217 And Tmp <= 45252) Then
GetPyChar = "a"
ElseIf (Tmp >= 45253 And Tmp <= 45760) Then
GetPyChar = "b"
ElseIf (Tmp >= 45761 And Tmp <= 46317) Then
GetPyChar = "c"
ElseIf (Tmp >= 46318 And Tmp <= 46825) Then
GetPyChar = "d"
ElseIf (Tmp >= 46826 And Tmp <= 47009) Then
GetPyChar = "e"
ElseIf (Tmp >= 47010 And Tmp <= 47296) Then
GetPyChar = "f"
ElseIf (Tmp >= 47297 And Tmp <= 47613) Then
GetPyChar = "g"
ElseIf (Tmp >= 47614 And Tmp <= 48118) Then
GetPyChar = "