陶琪所有越剧全剧:ASP一个关于取字符串长度的问题
来源:百度文库 编辑:高考问答 时间:2024/05/04 16:56:07
<%=cutstr(rs("content"),20)
提示:类型不匹配: 'cutstr'
不知道该怎么解决?
我一般用
<%
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(字符串,起始位置,截取长度)