取得中文句子头一个字的大写拼音字母 <% '****************************** '函数：getpychar(char) '参数：char,任意中文字符或句子 '作者：阿里西西 '日期：2007/7/15 '描述：取得中文句子头一个字的大写拼音字母 '示例：getpychar("欢迎访问阿里西西") '****************************** Function getpychar(char)  Dim tmp  tmp=65536+Asc(char)   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= "H"   ElseIF(tmp>=48119 And tmp<=49061) Then   getpychar= "J"   ElseIF(tmp>=49062 And tmp<=49323) Then   getpychar= "K"   ElseIF(tmp>=49324 And tmp<=49895) Then   getpychar= "L"   ElseIF(tmp>=49896 And tmp<=50370) Then   getpychar= "M"   ElseIF(tmp>=50371 And tmp<=50613) Then   getpychar= "N"   ElseIF(tmp>=50614 And tmp<=50621) Then   getpychar= "O"   ElseIF(tmp>=50622 And tmp<=50905) Then   getpychar= "P"   ElseIF(tmp>=50906 And tmp<=51386) Then   getpychar= "Q"   ElseIF(tmp>=51387 And tmp<=51445) Then   getpychar= "R"   ElseIF(tmp>=51446 And tmp<=52217) Then   getpychar= "S"   ElseIF(tmp>=52218 And tmp<=52697) Then   getpychar= "T"   ElseIF(tmp>=52698 And tmp<=52979) Then   getpychar= "W"   ElseIF(tmp>=52980 And tmp<=53640) Then   getpychar= "X"   ElseIF(tmp>=53689 And tmp<=54480) Then   getpychar= "Y"   ElseIF(tmp>=54481 And tmp<=62289) Then   getpychar= "Z"   Else '如果不是中文，则不处理   getpychar=char   End If  End Function %>