一个取汉字的首字母的 asp代码

1. <%
2. function getpychar(char) 
3. dim tmp 
4. tmp=65536+asc(char) 
5. if(tmp>=45217 and tmp<=45252) then 
6. getpychar= "A" 
7. elseif(tmp>=45253 and tmp<=45760) then 
8. getpychar= "B" 
9. elseif(tmp>=45761 and tmp<=46317) then 
10. getpychar= "C" 
11. elseif(tmp>=46318 and tmp<=46825) then 
12. getpychar= "D" 
13. elseif(tmp>=46826 and tmp<=47009) then 
14. getpychar= "E" 
15. elseif(tmp>=47010 and tmp<=47296) then 
16. getpychar= "F" 
17. elseif(tmp>=47297 and tmp<=47613) then 
18. getpychar= "G" 
19. elseif(tmp>=47614 and tmp<=48118) then 
20. getpychar= "H" 
21. elseif(tmp>=48119 and tmp<=49061) then 
22. getpychar= "J" 
23. elseif(tmp>=49062 and tmp<=49323) then 
24. getpychar= "K" 
25. elseif(tmp>=49324 and tmp<=49895) then 
26. getpychar= "L" 
27. elseif(tmp>=49896 and tmp<=50370) then 
28. getpychar= "M" 
29. elseif(tmp>=50371 and tmp<=50613) then 
30. getpychar= "N" 
31. elseif(tmp>=50614 and tmp<=50621) then 
32. getpychar= "O" 
33. elseif(tmp>=50622 and tmp<=50905) then 
34. getpychar= "P" 
35. elseif(tmp>=50906 and tmp<=51386) then 
36. getpychar= "Q" 
37. elseif(tmp>=51387 and tmp<=51445) then 
38. getpychar= "R" 
39. elseif(tmp>=51446 and tmp<=52217) then 
40. getpychar= "S" 
41. elseif(tmp>=52218 and tmp<=52697) then 
42. getpychar= "T" 
43. elseif(tmp>=52698 and tmp<=52979) then 
44. getpychar= "W" 
45. elseif(tmp>=52980 and tmp<=53688) then 
46. getpychar= "X" 
47. elseif(tmp>=53689 and tmp<=54480) then 
48. getpychar= "Y" 
49. elseif(tmp>=54481 and tmp<=62289) then 
50. getpychar= "Z" 
51. else '如果不是中文，则不处理 
52. getpychar=char 
53. end if 
54. end function 
57. function getpy(str) 
58. dim ret 
59. for i=1 to len(str)
60. ret=ret&getpychar(mid(str,i,1))
61. next
62. getpy=ret
63. end function
65. '这是使用的例子
66. response.write getpy("我需要要测试一下")
67. %>