三国杀星sp上线ol:ASP一个关于取字符串长度的问题

我一般用
<%
if len(rs("content"))>20 then
response.write(left(rs("content"),19)&"...")
else
response.write(rs("content"))
end if
%>
来代替CutStr函数,从来不出错,呵

CutStr函数参数说明:str,待截取的原字符串;gtype,截取方向,1为左,0为右;lennum为截取长度
当str的长度不超过lennum时，不执行截取,如超过，则截取，并在输出的字符串尾加上"..."

Public Function CutStr(Str, Gtype, LenNum)
Dim P_Num
Dim i, X
If StrLen(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
If Gtype = 1 Then
CutStr = Left(Trim(Str), X) & "..."
Else
CutStr = "..." & Right(Trim(Str), X)
End If
Loop
End If
End Function

’取字符串长度
Public Function StrLen(Str)
Dim P_Len, XX
P_Len = 0
StrLen = 0
If Not IsNull(Str) And Trim(Str) <> "" Then
P_Len = Len(Trim(Str))
For XX = 1 To P_Len
If Asc(Mid(Str, XX, 1)) < 0 Then
StrLen = CLng(StrLen) + 2
Else
StrLen = CLng(StrLen) + 1
End If
Next
End If
End Function

cutstr函数的返回值类型不对了吧/
我一般使用 系统函数mid来截取字符串

我没用过cutstr
从左边截取字符串可以用left(字符串，截取长度）
从由边截取字符串可以用right(字符串，截取长度）
从中间截取字符串可以用mid(字符串，起始位置，截取长度）