米乐官网app网站建设咨询热线:0574 63062235
网站首页 > 网站知识 > 网站截字符串函数ASP

网站截字符串函数ASP

时间:2013-1-25 19:17:24 标签:

'*************************************************
'函数名:gotTopic
'作  用:截字符串,汉字一个算两个字符,英文算一个字符
'参  数:str   ----原字符串
'       strlen ----截取长度
'返回值:截取后的字符串
'*************************************************
function gotTopic(str,strlen)
 if str="" then
  gotTopic=""
  exit function
 end if
 dim l,t,c, i
 str=replace(replace(replace(replace(str,"&nbsp;"," "),"&quot;",chr(34)),"&gt;",">"),"&lt;","<")
 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
   gotTopic=left(str,i) & "…"
   exit for
  else
   gotTopic=str
  end if
 next
 gotTopic=replace(replace(replace(replace(gotTopic," ","&nbsp;"),chr(34),"&quot;"),">","&gt;"),"<","&lt;")
end function

上一篇:第六届21世纪广告国际峰会在青岛举行
下一篇:网站为什么要更改细节呢?哪些地方要经常改?
  • 网站模板
  • 联系我们
  • 行业动态
  • 精品案例
  • 服务项目
  • 公司介绍
  • 网站首页