response.write "<tr><td>· <a href='shownews.asp?id="&rs("NewsId")&"&typeid="&rs("Typeid")&"'>"if len(rs("Title"))>=11 then
response.write left(rs("Title"),9)&"..."
else
response.write rs("Title")
end if
response.write "<a></td><td><font color=#CCCCCC>"&rs("Date")&"</font></td></tr>"



提示错误类型：
Microsoft VBScript 编译器错误 (0x800A0401)
语句未结束

response.write "</a></td><td><font color=#CCCCCC>"&rs("Date")&"</font></td></tr>"

少了斜杠.

[[it] 本帖最后由 atian 于 2008-10-15 10:39 编辑 [/it]]

全贴出来

sub announce()'网站公告段代码
    set rs=conn.execute("select NewsId,Title,Typeid,Date from news where Typeid=1 order by NewsId desc")
    if not rs.eof then
        response.write "<table width=100% border=0 cellpadding=0 cellspacing=0>"
        do while not rs.eof
            response.write "<tr><td>· <a href='shownews.asp?id="&rs("NewsId")&"&typeid="&rs("Typeid")&"'>"if len(rs("Title"))>=11 then
       response.write left(rs("Title"),9)&"..."
        else
        response.write rs("Title")
        end if
        response.write "</a></td><td><font color=#CCCCCC>"&rs("Date")&"</font></td></tr>"
        rs.movenext
        loop
        rs.close
        response.write "</table>"
    else
        response.write "网站暂无公告"
    end if
end sub'

[[it] 本帖最后由 swallowbai 于 2008-10-15 11:00 编辑 [/it]]

response.write "<tr><td>· <a href='shownews.asp?id="&rs("NewsId")&"&typeid="&rs("Typeid")&"'>"

将以上内容写在同一行.

response.write默认为一行..否则用上括号.

如:response.write("..
                   ..")

改好了。谢谢哦:)