<%
'
الوظيفة getpychar(char)
تمب = 65536 + تصاعدي (شار)
إذا (tmp>= 45217 وtmp<= 45252) إذن
جيتبيشار = "أ"
ElseIf(tmp>= 45253 وtmp<= 45760) ثم
جيتبيشار = "ب"
ElseIf(tmp>= 47761 وtmp<= 46317) ثم
جيتبيشار = "C"
ElseIf(tmp>= 46318 وtmp<= 46825) ثم
جيتبيشار = "د"
ElseIf(tmp>= 46826 وtmp<= 47009) ثم
جيتبيشار = "E"
ElseIf(tmp>= 47010 وtmp<= 47296) ثم
جيتبيشار = "F"
ElseIf(tmp>= 47297 وtmp<= 47613) ثم
جيتبيشار = "ز"
ElseIf(tmp>= 47614 وtmp<= 48118) ثم
جيتبيشار = "ح"
ElseIf(tmp>= 48119 وtmp<= 49061) ثم
جيتبيشار = "ي"
ElseIf(tmp>= 49062 وtmp<= 49323) ثم
جيتبيشار = "ك"
ElseIf(tmp>= 49324 وtmp<= 49895) ثم
جيتبيشار = "L"
ElseIf(tmp>= 49896 وtmp<= 50370) ثم
جيتبيشار = "م"
ElseIf(tmp>= 50371 وtmp<= 50613) ثم
جيتبيشار = "ن"
ElseIf(tmp>= 50614 وtmp<= 50621) ثم
جيتبيشار = "س"
ElseIf(tmp>= 50622 وtmp<= 50905) ثم
جيتبيشار = "P"
ElseIf(tmp>= 50906 وtmp<= 51386) ثم
جيتبيشار = "س"
ElseIf(tmp>= 51387 وtmp<= 51445) ثم
جيتبيشار = "R"
ElseIf(tmp>= 51446 وtmp<= 52217) ثم
جيتبيشار = "S"
ElseIf(tmp>= 52218 وtmp<= 52697) ثم
جيتبيشار = "T"
ElseIf(tmp>= 52698 وtmp<= 52979) ثم
جيتبيشار = "W"
ElseIf(tmp>= 52980 وtmp<= 53640) ثم
جيتبيشار = "X"
ElseIf(tmp>= 53689 وtmp<= 54480) ثم
جيتبيشار = "ص"
ElseIf(tmp>= 54481 وtmp<= 62289) ثم
جيتبيشار = "Z"
غير ذلك
getpychar = char
نهاية إذا
النهاية
getpy(Str)
لأني = 1 إلى لين (ستر)
getpy = getpy&getpychar(Mid(Str, i, 1))
التالي
وظيفة النهاية
%>
هذا هو الحال
<%
'
الوظيفة getpychar(char)
تمب = 65536 + تصاعدي (شار)
إذا (tmp>= 45217 وtmp<= 45252) إذن
جيتبيشار = "أ"
ElseIf(tmp>= 45253 وtmp<= 45760) ثم
جيتبيشار = "ب"
ElseIf(tmp>= 47761 وtmp<= 46317) ثم
جيتبيشار = "C"
ElseIf(tmp>= 46318 وtmp<= 46825) ثم
جيتبيشار = "د"
ElseIf(tmp>= 46826 وtmp<= 47009) ثم
جيتبيشار = "E"
ElseIf(tmp>= 47010 وtmp<= 47296) ثم
جيتبيشار = "F"
ElseIf(tmp>= 47297 وtmp<= 47613) ثم
جيتبيشار = "ز"
ElseIf(tmp>= 47614 وtmp<= 48118) ثم
جيتبيشار = "ح"
ElseIf(tmp>= 48119 وtmp<= 49061) ثم
جيتبيشار = "ي"
ElseIf(tmp>= 49062 وtmp<= 49323) ثم
جيتبيشار = "ك"
ElseIf(tmp>= 49324 وtmp<= 49895) ثم
جيتبيشار = "L"
ElseIf(tmp>= 49896 وtmp<= 50370) ثم
جيتبيشار = "م"
ElseIf(tmp>= 50371 وtmp<= 50613) ثم
جيتبيشار = "ن"
ElseIf(tmp>= 50614 وtmp<= 50621) ثم
جيتبيشار = "س"
ElseIf(tmp>= 50622 وtmp<= 50905) ثم
جيتبيشار = "P"
ElseIf(tmp>= 50906 وtmp<= 51386) ثم
جيتبيشار = "س"
ElseIf(tmp>= 51387 وtmp<= 51445) ثم
جيتبيشار = "R"
ElseIf(tmp>= 51446 وtmp<= 52217) ثم
جيتبيشار = "S"
ElseIf(tmp>= 52218 وtmp<= 52697) ثم
جيتبيشار = "T"
ElseIf(tmp>= 52698 وtmp<= 52979) ثم
جيتبيشار = "W"
ElseIf(tmp>= 52980 وtmp<= 53640) ثم
جيتبيشار = "X"
ElseIf(tmp>= 53689 وtmp<= 54480) ثم
جيتبيشار = "ص"
ElseIf(tmp>= 54481 وtmp<= 62289) ثم
جيتبيشار = "Z"
غير ذلك
getpychar = char
نهاية إذا
النهاية
getpy(Str)
لأني = 1 إلى لين (ستر)
getpy = getpy&getpychar(Mid(Str, i, 1))
التالي
وظيفة النهاية
%>