asp 图片新闻修改为分两列三行显示

这是源文件<html><head><title>图片新闻</title><metahttp-equiv="Co... 这是源文件


<html>
<head>
<title>图片新闻</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" type="text/css" href="css.css">
</head>

<body>
<%
sql="select top 6 * from NEWS where firstImageName<>'' and ok=true order by ID DESC"
set rs=conn.execute(sql)
if not Rs.eof then
do while not rs.eof and not rs.bof
%>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td align="center"><a href="onews.asp?id=<%=rs("id")%>" target="_blank" ><img src="uppic/<%=trim(rs("firstImageName"))%>" width="150" height="180" border="0"></a></td>
</tr>
<tr>
<td height="25" align="center"><a href="onews.asp?id=<%=rs("id")%>" target="_blank" ><%=left(rs("title"),12)%></a></td>
</tr>
</table>
<%
rs.movenext
loop
else
response.write "<tr><td align=center colspan=2 bgcolor=#E8E8F4>尚无收录</td></tr>"
end if
rs.close
set conn=nothing
%>
</body>
</html>
不管用呢提示“Microsoft VBScript 编译器错误 '800a040e'

'loop' 语句缺少 'do'

\2.asp, line 46

” 展开

 我来答

2个回答

#热议# 生活中有哪些实用的心理学知识？

tz6060996
2009-07-28 · TA获得超过2282个赞

知道大有可为答主

回答量：1171

采纳率：100%

帮助的人：1619万

我也去答题访问个人页

关注

展开全部

<html>
<head>
<title>图片新闻</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" type="text/css" href="css.css">
</head>

<body>
<%
sql="select top 6 * from NEWS where firstImageName<>'' and ok=true order by ID DESC"
set rs=conn.execute(sql)
if not Rs.eof then
%>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<%
i=1
do while not rs.eof and not rs.bof
if i mod 2=1 then
%>
<tr>
<td align="center">
<table width="150" border="0" cellpadding="0" cellspacing="0">
<tr>
<td align="center"><a href="onews.asp?id=<%=rs("id")%>" target="_blank" ><img src="uppic/<%=trim(rs("firstImageName"))%>" width="150" height="180" border="0"></a></td>
</tr>
<tr>
<td height="25" align="center"><a href="onews.asp?id=<%=rs("id")%>" target="_blank" ><%=left(rs("title"),12)%></a></td>
</tr>
</table>
</td>
<%else%>
<td align="center">
<table width="150" border="0" cellpadding="0" cellspacing="0">
<tr>
<td align="center"><a href="onews.asp?id=<%=rs("id")%>" target="_blank" ><img src="uppic/<%=trim(rs("firstImageName"))%>" width="150" height="180" border="0"></a></td>
</tr>
<tr>
<td height="25" align="center"><a href="onews.asp?id=<%=rs("id")%>" target="_blank" ><%=left(rs("title"),12)%></a></td>
</tr>
</table>
</td></tr>
<%
rs.movenext
i=i+1
loop
'跳出循环时如果i为双数，说明记录数为单，应该补上一个空白单元格
if i mod 2=0 then
%>
<td> </td></tr>
<%end if%>
</table>
<%
else
response.write "<table width='100%' border='0' cellpadding='0' cellspacing='0'><tr><td align=center colspan=2 bgcolor=#E8E8F4>尚无收录</td></tr></table>"
end if

rs.close
set conn=nothing
%>
</body>
</html>

已赞过 已踩过<

评论收起

nxnd1986
2009-08-01 · TA获得超过2248个赞

知道小有建树答主

回答量：903

采纳率：0%

帮助的人：620万

我也去答题访问个人页

关注

展开全部

<!--#include file="conn.asp"-->
<html>
<head>
<title>图片新闻</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" type="text/css" href="css.css">
</head>

<body>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<%
sql="select top 3 * from NEWS where firstImageName<>'' and ok=true order by ID DESC"
set rs=conn.execute(sql)
if not Rs.eof then
do while not rs.eof and not rs.bof
%>
  <tr> 
    <td align="center"><a href="onews.asp?id=<%=rs("id")%>" target="_blank" ><img src="uppic/<%=trim(rs("firstImageName"))%>" width="150" height="180" border="0"></a></td>
    <td height="25" align="center"><a href="onews.asp?id=<%=rs("id")%>" target="_blank" ><%=left(rs("title"),12)%></a></td>
  </tr><%
rs.movenext
loop
else 
response.write "<tr><td align=center colspan=2 bgcolor=#E8E8F4>尚无收录</td></tr>" 
end if 
rs.close 
set conn=nothing
%>
</table>

</body>
</html>


本回答被提问者采纳






已赞过已踩过<

你对这个回答的评价是？
评论收起

推荐律师服务：若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询

asp 图片新闻 修改为分两列三行显示

其他类似问题

为你推荐：

asp 图片新闻修改为分两列三行显示