asp 执行循环语句时第一条出错 其余都正常
<%rs2=""setrs2=server.CreateObject("adodb.recordset")rs2.open"selecttop10*from[member...
<%
rs2 = ""
set rs2 = server.CreateObject("adodb.recordset")
rs2.open "select top 10 * from [member] where(qiangpai='1' )",Conn,1,3
if not rs2.eof and not rs2.bof then
rs2("PhotoURL")=img
i=0
Do While Not rs2.Eof and not rs2.bof
if i mod 4 =0 then response.Write("</tr><tr>")
if i= 1 then ccl = "style='color:#FF0000; font-size:12px;'" else ccl = "style='color:#0071db;font-size=12px'"
%>
<td><table width="63" height="89" border="0" cellpadding="0" cellspacing="0">
<tr>
<td align="center"><img src="<%
if rs2("PhotoURL")="1" or rs2("PhotoURL")="无" or rs2("PhotoURL")="" then
response.Write("images/defult.jpg")
else
response.Write(""&img&"")
end if
%>" /></td>
</tr>
<tr>
<td><font size="2" <%response.Write(""&ccl&"")%>><%=rs2("memberID")%></font></td>
</tr>
<tr>
<td style="text-align:center; font-size:12px; color:#0066FF;"><%=rs2("miaoshadata")%></td>
</tr>
</table>
</td>
<%
i=i+1
rs2.MoveNext
Loop
end if
rs2=close
set rs2=nothing
%> 我在执行语句的时候 第一幅图片总是不出来,按说数据库里没有图片的路径的话应该执行默认图片的,但是每次第一幅图就是不显示
可是我这里循环没有问题 主要是显示不了第一幅默认图片,第二幅图片就没有问题 我的语法有问题吗 展开
rs2 = ""
set rs2 = server.CreateObject("adodb.recordset")
rs2.open "select top 10 * from [member] where(qiangpai='1' )",Conn,1,3
if not rs2.eof and not rs2.bof then
rs2("PhotoURL")=img
i=0
Do While Not rs2.Eof and not rs2.bof
if i mod 4 =0 then response.Write("</tr><tr>")
if i= 1 then ccl = "style='color:#FF0000; font-size:12px;'" else ccl = "style='color:#0071db;font-size=12px'"
%>
<td><table width="63" height="89" border="0" cellpadding="0" cellspacing="0">
<tr>
<td align="center"><img src="<%
if rs2("PhotoURL")="1" or rs2("PhotoURL")="无" or rs2("PhotoURL")="" then
response.Write("images/defult.jpg")
else
response.Write(""&img&"")
end if
%>" /></td>
</tr>
<tr>
<td><font size="2" <%response.Write(""&ccl&"")%>><%=rs2("memberID")%></font></td>
</tr>
<tr>
<td style="text-align:center; font-size:12px; color:#0066FF;"><%=rs2("miaoshadata")%></td>
</tr>
</table>
</td>
<%
i=i+1
rs2.MoveNext
Loop
end if
rs2=close
set rs2=nothing
%> 我在执行语句的时候 第一幅图片总是不出来,按说数据库里没有图片的路径的话应该执行默认图片的,但是每次第一幅图就是不显示
可是我这里循环没有问题 主要是显示不了第一幅默认图片,第二幅图片就没有问题 我的语法有问题吗 展开
4个回答
展开全部
rs2.open "select top 10 * from [member] where(qiangpai='1' )",Conn,1,3
修改为
rs2.open "select top 10 * from [member] where(qiangpai='1' )",Conn,1,1
====================================
rs2("PhotoURL")=img 删除
response.Write(""&img&"") 修改为 response.Write(rs2("PhotoURL"))
看看
修改为
rs2.open "select top 10 * from [member] where(qiangpai='1' )",Conn,1,1
====================================
rs2("PhotoURL")=img 删除
response.Write(""&img&"") 修改为 response.Write(rs2("PhotoURL"))
看看
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
我想你是应该做图片做多行多列的显示问题,有2种方式
1、用div,真的很好用,有空一定要学学,省去你table下面很多html代码的麻烦。无论是一行多列,还是多行多列,都通过css来控制。
2、用table布局。套2个循环,代码简单化了
<%
……
rs.open sql,conn,3,1
if not rs.eof then
rownum=3 '每行显示的数量
%>
<table>
<%
for i=1 to (rs.recordcount-1)/rownum+1
if not rs.eof then
%>
<tr>
<%
for j=1 to rownum
if not rs.eof then
%>
<td>有数据的时候显示内容</td>
<%
rs.movenext
else
%>
<td> (没有数据的时候,插入空的td,否则table不完整)</td>
<%
end if
next
%>
</tr>
<%
end if
next
%>
</table>
<%
end if
rs.close
%>
1、用div,真的很好用,有空一定要学学,省去你table下面很多html代码的麻烦。无论是一行多列,还是多行多列,都通过css来控制。
2、用table布局。套2个循环,代码简单化了
<%
……
rs.open sql,conn,3,1
if not rs.eof then
rownum=3 '每行显示的数量
%>
<table>
<%
for i=1 to (rs.recordcount-1)/rownum+1
if not rs.eof then
%>
<tr>
<%
for j=1 to rownum
if not rs.eof then
%>
<td>有数据的时候显示内容</td>
<%
rs.movenext
else
%>
<td> (没有数据的时候,插入空的td,否则table不完整)</td>
<%
end if
next
%>
</tr>
<%
end if
next
%>
</table>
<%
end if
rs.close
%>
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
if i mod 4 =0 then response.Write("</tr><tr>")
有可能是这句出的问题,当你的图片被写到外边那个标签里边的时候,它就会消失,因为浏览器自动纠错,把它当错误代码给屏蔽掉了。
有可能是这句出的问题,当你的图片被写到外边那个标签里边的时候,它就会消失,因为浏览器自动纠错,把它当错误代码给屏蔽掉了。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
if i mod 4 =0 then response.Write("</tr><tr>")
刚开始i=0的时候也会输出这个所以可能是这个问题
改成 if i mod 4 =0 and i<>0 then response.Write(""</tr><tr>")
试试吧!
除去等于零的情况
刚开始i=0的时候也会输出这个所以可能是这个问题
改成 if i mod 4 =0 and i<>0 then response.Write(""</tr><tr>")
试试吧!
除去等于零的情况
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询