Question

asp新手新闻调用问题一列变两列

代码如下，专家可以帮忙看看嘛？万分感谢<table width="100%" border="0" cellspacing="0" cellpadding="3">
<%
set rs=server.createobject("adodb.recordset")
sql="select top 7 * from ku_news,ku_newskind where ku_news.class=ku_newskind.id and ku_news.shenhe=1 ORDER BY ku_news.dateandtime DESC"
rs.open sql,conn,1,1

if Rs.eof or Rs.bof then
response.write"<div align='center'>还没有添加新闻<div>"
end if
do while not rs.eof
title = rs("title")

%>
<tr>
<%if rs("mode")=2 then%>
<td width="17" height = 24>
<a href="<%=rs("url")%>" title="标题：<%=title%> 时间：<%=rs("dateandtime")%> 点击：<%=rs("hits")%>次" target=_blank>
<font color="<%=rs("yanse")%>">
<%
if Getlen(title)>34 then
response.write LeftStr(title,32)
response.write "..."
else
response.write ""&title&""
end if

%></font></a>
</td><%else%>
<td width="401" height = 24><a href="Ku_shownews.asp?id=<%=rs("ku_news.id")%>" title="标题：<%=title%> 时间：<%=rs("dateandtime")%> 点击：<%=rs("hits")%>次">
<font color="<%=rs("yanse")%>">
<%
if Getlen(title)>32 then
response.write LeftStr(title,30)
response.write "..."
else
response.write ""&title&""
end if

%></font></a>
<% if rs("pic")<>"" then%><img border="0" src="Ku_skin/img.gif" width="13" height="13" alt="图片新闻"><%end if%></td><%end if%>
</tr>
<%
rs.movenext
loop
Rs.Close
Set Rs=Nothing
%>
</table>

Answer 1

加Q发代码文件帮你搞定~！