' ============================================
'从左边载止字节
'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)%>
不合理的处理,用的是自身的left()
评论