蓝派网(www.lan27.com)-精选网络资源,分享和交流! 文章首页站内搜索在线手册广告代码酷站欣赏万年历
您现在的位置: 蓝派网 >> 文章中心 >> 网络编程 >> ASP >> 正文

asp限制标题长度类

作者:佚名    文章来源:网络    更新时间:2010-5-4 16:38:40
function   gotTopic(str,strlen)  
  dim   l,t,c,   i  
  l=len(trim(str))  
  t=0  
  for   i=1   to   l  
  c=Abs(Asc(Mid(str,i,1)))  
  if   c>255   then   '如果是汉字为2个字节  
  t=t+2  
  else  
  t=t+1  
  end   if  
  if   t>=strlen   then  
  gotTopic=left(str,i)&".."  
  exit   for  
  else  
  gotTopic=str  
  end   if  
  next  
  end   function
发表评论】【打印此文】【关闭窗口】【点击数:
★好玩的休闲小游戏★