ASP Chinese-Western mixed character intercepting program

Mixed character intercepting program of Chinese and western language
function Cutstr (byVal val,byval length,byval endstr)
Dim L,t,c,i
If val = "" Or IsNull (val) Then
Cutstr = ""
Exit Function
End If
If length = "" Or Int (length) <= 0 Or isnumeric (length) = False Then
Cutstr = Val
Exit Function
End If
val = losehtml (val)
L = Len (val)
Length = Int (length)
t = 0
For i = 1 to L
c = AscW (Mid (val,i,1))
If C < 0 Or C > 255 Then t = t + 2 Else t = t + 1
IF T >= length Then
Cutstr = Left (val,i) & Endstr
Exit for
Else
Cutstr = Val
End If
Next
End Function