asp新闻标题如何控制显示字数 - 编程论坛

#2

孤独冷雨2007-12-05 09:58

title=trim(rs("title"))
if len("title")>10 then
response.write left(title,10)
else
response.write title
end if

#3

gaosugonglu2007-12-05 10:34

<table border="0" width="100%" id="table2">


                <tr>
                    <td bgcolor="#FF0000">
                    <p align="center"><font color="#FFFF00">中国新闻</font></td>
                </tr>
                <tr><% sql="SELECT top 3 * from (SELECT * from news where du=71 ORDER BY ID DESC)"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write " <tr> <td >暂无新闻</td></tr>"
else
do while not rs.eof
%>
                    <td>　<a href="viewnews.asp?newsid=<%=rs("id")%>&classid=<%=rs("du")%>" title="<%=rs("bt")%>" target="_blank"><span class="style6">·</span><%=left(rs("bt"),17)%> </a></td>
                </tr><%
rs.movenext
loop
end if
rs.close
set rs=nothing
%>

            </table>

#4

lish2007-12-05 14:15

原帖由 [bold][underline]孤独冷雨[/underline][/bold] 于 2007-12-5 09:58 发表 [url=http://bbs.bc-cn.net/redirect.php?goto=findpost&pid=1131832&ptid=190474]

[/url]
title=trim(rs("title"))
if len("title")>10 then
response.write left(title,10)
else
response.write title
end if

<%
news_subject=trim(Recordset1("news_subject"))
if len("news_subject")>8 then
response.write left(news_subject,8)
else
response.write news_subject
end if
%>
我按这个写后提示Microsoft VBScript 运行时错误 (0x800A000D)
类型不匹配

#5

luofeng842007-12-05 14:31

if len("news_subject")>8 then
这个news_subject 是个变量吧，不用加引号