ASP常用函数:getpy()(2)

        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
%>