<% '取字段数据每个汉字的拼音首字母 Function getpychar(char) tmp = 65536 + Asc(char) If(tmp>= 45217 And tmp<= 45252) Then getpychar = "A" ElseIf(tmp>= 45253 And tmp<= 45760) Then getpychar = "B" ElseIf(tmp>= 47761 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 Function getpy(Str) For i = 1 To Len(Str) getpy = getpy&getpychar(Mid(Str, i, 1)) Next End Function %>

　　推荐阅读

　　ServerVariables集合检索预定的环境变量

服务器环境变量 说明 Request.ServerVariables ALL_HTTP 客户端发送的所有 HTTP 标题文件。 ALL_RAW 检索未处理表格中所有的标题。ALL_RAW 和 ALL_HTTP 不同，ALL_HTTP 在标题文件名前面放置 HTTP_ prefix>>>详细阅读

本文标题：ASP常用函数:getpy()

地址：http://www.17bianji.com/kaifa2/ASP/32784.html

 1/2    1