Question

ASP标题限制显示字数

想把这段代码改为只显示8字个，多余的字后面以“......”代替

<%
i=0
set rs=server.CreateObject("adodb.recordset")
rs.open "select top 6 newsname,adddate,newsid from news order by adddate desc",conn,1,1
if rs.eof and rs.bof then
response.write "<center>目前还没有新闻！</center>"
else
do while not rs.eof
i=i+1
%>
<%dim i

response.write "<a href=# onClick=""javascript:window.open('news.asp?id="&rs("newsid")&"','','width=432,height=288,toolbar=no, status=no, menubar=no, resizable=yes, scrollbars=yes');return false;"" title="&year(rs("adddate"))&"年"&month(rs("adddate"))&"月"&day(rs("adddate"))&"日发布><FONT COLOR=#0092D7>"&a=trim(rs("newsname"))&"</FONT></a><br>"
%>
<% if i>=6 then exit do
rs.movenext
loop
end if
rs.close
set rs=nothing%>
该怎么写，在线等！谢谢

Answer 1

trim(rs("newsname"))
改为
if len(trim(rs("newsname")))>8 then
left(trim(rs("newsname")),8)&......&
else
trim(rs("newsname"))
end if

Answer 2

left(字符串,8) & "……"

Answer 3

给你2个过程。
' ============================================
'从左边载止字节
'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

Answer 4

方式很多。

<% If len(rs("title"))>30 Then %>
<%= left(rs("title"),30) %>...
<% Else %>
<%= rs("title") %>
<% End If %>

宁志新闻发布系统提供