STRVALUE ("Replies for Email Notification If you don't fill it, please register Email", 26)
Here 26 refers to 26 English letters, that is, 13 Chinese characters
Function Strlen (STR)
DIM P_LEN, XX
p_len = 0
Strlen = 0
IF TRIM (STR) <> "" ""
p_len = len (Trim (STR))
For xx = 1 to p_len
IF ASC (MID (STR, XX, 1)) <0 THEN
Strlen = int (Strlen) 2
Else
Strlen = Int (Strlen) 1
END IF
NEXT
END IF
END FUNCTION
Function Strvalue (Str, Lennum)
DIM P_NUM, X
DIM I
if strlen (STR) <= lennum dam
Strvalue = STR
Else
P_num = 0
x = 0
Do While Not P_num> Lennum-2
X = x 1
IF ASC (MID (STR, X, 1)) <0 THEN
p_num = int (p_num) 2
Else
p_num = int (p_num) 1
END IF
Strvalue = Left (Trim (Str), X) & "..."
loop
END IF
END FUNCTION
Original address:
http://7i24.com/asp/103260940232.htm
