<%
'
Функция getpychar(char)
tmp = 65536 + Asc(символ)
Если(tmp>= 45217 и tmp<= 45252) Тогда
getpychar = "А"
ИначеЕсли(tmp>= 45253 и tmp<= 45760) Тогда
getpychar = "Б"
ИначеЕсли(tmp>= 47761 и tmp<= 46317) Тогда
получитьпичар = "С"
ИначеЕсли(tmp>= 46318 и tmp<= 46825) Тогда
получитьпичар = "Д"
ИначеЕсли(tmp>= 46826 и tmp<= 47009) Тогда
getpychar = "Е"
ИначеЕсли(tmp>= 47010 и tmp<= 47296) Тогда
getpychar = "F"
ИначеЕсли(tmp>= 47297 и tmp<= 47613) Тогда
getpychar = "Г"
ИначеЕсли(tmp>= 47614 и tmp<= 48118) Тогда
getpychar = "Ч"
ИначеЕсли(tmp>= 48119 и tmp<= 49061) Тогда
getpychar = "J"
ИначеЕсли(tmp>= 49062 и tmp<= 49323) Тогда
getpychar = "К"
ИначеЕсли(tmp>= 49324 и tmp<= 49895) Тогда
getpychar = "L"
ИначеЕсли(tmp>= 49896 и tmp<= 50370) Тогда
getpychar = "М"
ИначеЕсли(tmp>= 50371 и tmp<= 50613) Тогда
getpychar = "Н"
ИначеЕсли(tmp>= 50614 и tmp<= 50621) Тогда
getpychar = "О"
ИначеЕсли(tmp>= 50622 и tmp<= 50905) Тогда
getpychar = "П"
ИначеЕсли(tmp>= 50906 и tmp<= 51386) Тогда
getpychar = "Q"
ИначеЕсли(tmp>= 51387 и tmp<= 51445) Тогда
getpychar = "Р"
ИначеЕсли(tmp>= 51446 и tmp<= 52217) Тогда
getpychar = "S"
ИначеЕсли(tmp>= 52218 и tmp<= 52697) Тогда
getpychar = "Т"
ИначеЕсли(tmp>= 52698 и tmp<= 52979) Тогда
getpychar = "W"
ИначеЕсли(tmp>= 52980 и tmp<= 53640) Тогда
получитьpychar = "X"
ИначеЕсли(tmp>= 53689 и tmp<= 54480) Тогда
getpychar = "Y"
ИначеЕсли(tmp>= 54481 и tmp<= 62289) Тогда
getpychar = "Z"
Else '如果不是中文，则不处理
getpychar = символ
Конец, если
Конечная функция
Функция getpy(Str)
Для i = 1 To Len(Str)
getpy = getpy&getpychar(Mid(Str, i, 1))
Следующий
Конечная функция
%>
程序代码
<%
'
Функция getpychar(char)
tmp = 65536 + Asc(символ)
Если(tmp>= 45217 и tmp<= 45252) Тогда
getpychar = "А"
ИначеЕсли(tmp>= 45253 и tmp<= 45760) Тогда
getpychar = "Б"
ИначеЕсли(tmp>= 47761 и tmp<= 46317) Тогда
получитьпичар = "С"
ИначеЕсли(tmp>= 46318 и tmp<= 46825) Тогда
получитьпичар = "Д"
ИначеЕсли(tmp>= 46826 и tmp<= 47009) Тогда
getpychar = "Е"
ИначеЕсли(tmp>= 47010 И tmp<= 47296) Тогда
getpychar = "F"
ИначеЕсли(tmp>= 47297 и tmp<= 47613) Тогда
getpychar = "Г"
ИначеЕсли(tmp>= 47614 и tmp<= 48118) Тогда
getpychar = "Ч"
ИначеЕсли(tmp>= 48119 и tmp<= 49061) Тогда
getpychar = "J"
ИначеЕсли(tmp>= 49062 и tmp<= 49323) Тогда
getpychar = "К"
ИначеЕсли(tmp>= 49324 и tmp<= 49895) Тогда
getpychar = "L"
ИначеЕсли(tmp>= 49896 и tmp<= 50370) Тогда
getpychar = "М"
ИначеЕсли(tmp>= 50371 и tmp<= 50613) Тогда
getpychar = "Н"
ИначеЕсли(tmp>= 50614 и tmp<= 50621) Тогда
getpychar = "О"
ИначеЕсли(tmp>= 50622 и tmp<= 50905) Тогда
getpychar = "П"
ИначеЕсли(tmp>= 50906 и tmp<= 51386) Тогда
getpychar = "Q"
ИначеЕсли(tmp>= 51387 и tmp<= 51445) Тогда
getpychar = "Р"
ИначеЕсли(tmp>= 51446 и tmp<= 52217) Тогда
getpychar = "S"
ИначеЕсли(tmp>= 52218 и tmp<= 52697) Тогда
getpychar = "Т"
ИначеЕсли(tmp>= 52698 и tmp<= 52979) Тогда
getpychar = "W"
ИначеЕсли(tmp>= 52980 и tmp<= 53640) Тогда
получитьпичар = "Х"
ИначеЕсли(tmp>= 53689 и tmp<= 54480) Тогда
getpychar = "Y"
ИначеЕсли(tmp>= 54481 и tmp<= 62289) Тогда
getpychar = "Z"
Else '如果不是中文，则不处理
getpychar = символ
Конец, если
Конечная функция
Функция getpy(Str)
Для i = 1 To Len(Str)
getpy = getpy&getpychar(Mid(Str, i, 1))
Следующий
Конечная функция
%>