问题求解

82yuxuan 2003-08-20 01:20:53

以下是一段新闻程序：
其中包括两部份，一部分为文字新闻，一部份为图片新闻，图片如下。可不知因为啥最近不能更新，今天我试着更改，可图片新闻一下显示几幅图片。

<% dim rs, sql, rs1, sql1, i
set rs = server.createobject("adodb.recordset")
set rs0 = server.createobject("adodb.recordset")
%>
<%
'新闻类别
sql = "SELECT top 2 * FROM category"
rs.open sql, conn, 1, 1
if err.number <> 0 then
response.write "数据库出错"
else
if rs.bof and rs.eof then
rs.close
response.write "没有类别"
else
do while not rs.eof
' response.write "<td width=380 height=5><table width='100%' height=238 cellspacing=0 cellpadding=0 border=0><tr><td height=10><img src=" + rs("title") + "></td></tr>"
' response.write "<tr><td valign=bottom>"
response.write "<td width=180 height=5><table width='100%' height=180 cellspacing=0 cellpadding=0 border=0><tr><td height=10></td></tr>"
response.write "<tr><td valign=bottom>"
'本类别新闻标题
sql1 = "SELECT id,title,image,addtime FROM news WHERE cateid=" + cstr(rs("id")) + " AND new=1 ORDER BY id DESC"
rs0.open sql1, conn, 1, 1
if err.number <> 0 then
response.write "数据库出错"
else
if rs0.bof and rs0.eof then
rs0.close
response.write "没有新闻"
else
for i = 1 to 9
if rs0("image") <> "" then
' response.write "<img src=news/" + rs0("image") + " alt='图片' width=180 height=120><br><br><a target='_blank' href='news/shownews.asp?id=" + cstr(rs0("id")) + "'>" + rs0("title") + "</a><br>"
response.write "<a target='_blank' href='news/shownews.asp?id=" + cstr(rs0("id")) + "'>"+"<img border=0 src=news/" + rs0("image") + " alt='图片' width=150 height=120><br><br>" + rs0("title") + "</a><br>"
else

title2=replace(trim(rs0("title"))," ","")
%>
<img src=title_images/dot9.bmp> <a target='_blank' href='news/shownews.asp?id=<%=cstr(rs0("id"))%>'>
<%if len(title2)>13 then%>
<%=left(title2,12)%>…
<%else%>
<%=title2%>
<%end if%>
</a><br>
<%
end if
rs0.movenext
if rs0.eof then exit for
next
rs0.close

end if
end if

' response.write "<p align=right>"
response.write "<div align='right'><a target='_blank' href='news/category.asp?cate=" + cstr(rs("id")) + "'><br>更多本类新闻... </a>"
response.write "</td></tr></table></td>"
rs.movenext
loop
rs.close
end if
end if
%>
<%
set rs0 = nothing
set rs = nothing
call endconnection()
%>

我想是图片新闻不进入循环，只显示最近的一幅图片，而文字新闻要显示最近的九条，所以需进入循环。请大家帮助修改一下

...全文