高手帮忙解释下

[xjw8350296]

Function CutStr(Str,LenNum)
if IsNull(str) or IsEmpty(str) or str="" then
str="nothing"
end if

Dim P_num
Dim I,X
If Len(Str)<=LenNum Then
Cutstr=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 到这结束
Cutstr=Left(Trim(Str),X)&"……"
Loop
End If
End Function

[Anlige]

Asc取得字符的asci码，若小于零则这个字符是汉字~~

[lolita_713]

Asc()函数是将字符串（包括汉字及英文）转换成ASCII码

[xjw8350296]

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 到这结束
Cutstr=Left(Trim(Str),X)&"……"
Loop
End If
End Function 这段有点疑惑

[mataofq]

这是做什么的，判断有多少个字符？？
汉字两个字节，英语一个？？
asc（）上面说了
mid（string,start,length）