ASP如何截取数据库某一字段长度
2个回答
展开全部
截取ASP本事提供了一个left函数。更好是参照下面的函数,你可以直接那去用的。
function cutStr(str,strlen)
If str = "" Then
cutStr = "cutStr函数异常:字符串为空"
exit function
End If
'------------来源长度检查
If strlen = "" Then
cutStr = "cutStr函数异常:长度未指定"
exit function
End If
If CInt(strlen) = 0 Then
cutStr = "cutStr函数异常:长度为0"
exit function
End If
'----------检测来源字符长度
dim l,t,c,i
l=len(str)
t=0
'----------循环截取字符
for i=1 to l
c=Abs(Asc(Mid(str,i,1)))
'------判断是否汉字
if c>255 then
t=t+2
else
t=t+1
end If
'------判断是否到达指定长度
if t>=strlen then
cutStr=left(str,i)&"..."
exit for
else
cutStr=str
end if
next
cutStr=replace(cutStr,chr(10),"")
end function
function cutStr(str,strlen)
If str = "" Then
cutStr = "cutStr函数异常:字符串为空"
exit function
End If
'------------来源长度检查
If strlen = "" Then
cutStr = "cutStr函数异常:长度未指定"
exit function
End If
If CInt(strlen) = 0 Then
cutStr = "cutStr函数异常:长度为0"
exit function
End If
'----------检测来源字符长度
dim l,t,c,i
l=len(str)
t=0
'----------循环截取字符
for i=1 to l
c=Abs(Asc(Mid(str,i,1)))
'------判断是否汉字
if c>255 then
t=t+2
else
t=t+1
end If
'------判断是否到达指定长度
if t>=strlen then
cutStr=left(str,i)&"..."
exit for
else
cutStr=str
end if
next
cutStr=replace(cutStr,chr(10),"")
end function
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询