UC知道ASP标题限制显示字数
来源：百度知道 编辑：UC知道 时间：2024/05/12 18:10:42
想把这段代码改为只显示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>"
%>
<%
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>"
%>
trim(rs("newsname"))
改为
if len(trim(rs("newsname")))>8 then
left(trim(rs("newsname")),8)&......&
else
trim(rs("newsname"))
end if
left(字符串,8) & "……"
给你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