网站建设 | 联系我们
电话:18601495572
点击这里给我发消息
  • 1
  • 2
  • 3
龙腾网络建站套餐 网站改版说明 网站为什么要做seo
   网站设计制作
   网站建设流程
   建站费用-优惠套餐
   百度网站优化SEO
   网站改版
   网站维护
   网站制作定制服务
   联系我们
 
网站制作常见问题解答


asp截取字段前N个字代码

-

溧阳网站建设制作


互联网 www.ceelnet.com

 

asp 字符串截取函数
'********************************************************* 
'函数:cutStr[str(strlen)] 
'参数:str,待处理的字符串,strlen,截取的长度 
'描述:截取指定长度的字符串 
'示例:<%=cutStr("龙腾网络常州溧阳网站制作",5)%> 
 
'********************************************************* 
 
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 
''********************************************************* 
'函数:strlen[str] 
'参数:str,待处理的字符串 
'示例:<%=strlen("龙腾网络常州溧阳网站制作")%> 
'********************************************************* 
Function strlen(str) 
dim p_len 
p_len=0 
strlen=0 
if trim(str)<>"" then 
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 
截取左边的n个字符'********************************************************* 
'函数:LeftTrue(str,n) 
'参数:str,待处理的字符串,n,截取的长度 
'描述:显示左边的n个字符(自动识别汉字)函数 
'示例:<%=LeftTrue("龙腾网络常州溧阳网站制作",6)%> 
'********************************************************* 
 
Function LeftTrue(str,n) 
If len(str)<=n/2 Then 
 LeftTrue=str 
Else 
 Dim TStr 
 Dim l,t,c 
 Dim i 
 l=len(str) 
 t=l 
 TStr="" 
 t=0 
 for i=1 to l 
  c=asc(mid(str,i,1)) 
  If c<0 then c=c+65536 
  If c>255 then 
  t=t+2 
  Else 
  t=t+1 
  End If 
  If t>n Then exit for 
  TStr=TStr&(mid(str,i,1)) 
 next 
 LeftTrue = TStr 
End If 
End Function

2013年09月20日 浏览:
除非注明,文章均为龙腾网络原创,转载请注明本文地址:http://www.ceelnet.com/?thread-1026-1.html
友荐云推荐

网友评论:

版权所有:©2010 - 2012 龙腾网络工作室  溧阳网站建设点击这里给我发消息
电话:18601495572 邮箱:1964784465@qq.com QQ:1964784465