登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

面包会有的

... ...

 
 
 

日志

 
 

asp函数,显示新闻标题时正确处理中英文计数问题  

2011-09-24 20:40:44|  分类: asp |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |

 

 

 

' ============================================
'从左边载止字节
'Response.Write leftStr("截止字串截止字串截止字串")
'leftStr("字串",5) 有点
'返回:截止字串…
' ============================================
Function leftStr(Str, Strlen)
        Dim l, t, c, m_i
        l = Len(Str)
        t = 0
        For m_i = 1 To l
            c = Abs(Asc(Mid(Str, m_i, 1)))
            If c > 255 Then
                t = t + 2
            Else
                t = t + 1
            End If
   
            If t >= Strlen Then
                leftStr = Left(Str, m_i) & "…"
                Exit For
            Else
                leftStr = Str
            End If
        Next
End Function
' ============================================
'Rem leftStr("字串",5) 无点
'Rem Response.Write leftStr2("截止字串截止字串截止字串")
'Rem 返回:截止字串
'Public
' ============================================
Function leftStr2(Str, Strlen)
        Dim l, t, c, m_i
        l = Len(Str)
        t = 0
        For m_i = 1 To l
            c = Abs(Asc(Mid(Str, m_i, 1)))
            If c > 255 Then
                t = t + 2
            Else
                t = t + 1
            End If
   
            If t >= Strlen Then
                leftStr2 = Left(Str, m_i)
                Exit For
            Else
                leftStr2 = Str
            End If
        Next
End Function


<%=LeftStr(rs("title"),48)%>

 

asp函数,显示新闻标题时正确处理中英文计数问题 - 加菲 -  .

 不合理的处理,用的是自身的left()

 

asp函数,显示新闻标题时正确处理中英文计数问题 - 加菲 -  .
 
合理的处理,用的是开始的自定义函数
  评论这张
 
阅读(975)| 评论(0)

历史上的今天

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2018