A function that intercepts the Chinese characters will not appear

Function Msubstr ($ STR, $ START, $ LEN) {

$ tmpstr = ""

$ Strlen = $ start $ LEN;

For ($ I = 0; $ I <$ Strlen; $ I ) {

IF (Substr ($ Str, $ I, 1)> 0xA0) {

$ Tmpstr. = Substr ($ STR, $ I, 2);

$ i ;

Else

$ Tmpstr. = SUBSTR ($ STR, $ I, 1);

}

Return $ TMPSTR;

}