如何使用asp在循环内动态添加类

时间:2016-07-30 01:23:20

标签: asp-classic masonry

我想在循环中为砌体添加一个类。

我能为循环做什么应该只有一个?

三次输出三个数据。

还有其他办法吗?

<div id="box-container">
<div class="grid-sizer"><!-- avl for packery to get grid size --></div>
<%
'creates an array
Dim x, y, z
x = Array("w2 h1", "w1 h2", "w1 h1")

  rso()
  cate = "fo01"
  SQL = " SELECT  TOP 3 * FROM ms_dbtable WHERE category = '"& cate &"' ORDER BY sort_idx ASC "
  rs.open SQL, dbcon, 3
  If Not rs.eof Then
  While Not rs.EOF
  For Each y In x
%>
<div class='box snip1328 <%=y%>'>
    <%        If rs("thumb") = "" Then %>
    <img src="/img/tlogo.gif"></a>
    <%        Else %>
    <img src="/data/fo01/<%=rs("thumb")%>"></a>
    <%        End If %>
</div>
<%
Next
%>

<%
rs.MoveNext
Wend
End If
rsc()
%>

<style>
.w1 {width: 138px;}
.h1 {height: 138px;}
.w2 {width: 280px;}
.h2 {height: 280px;}
.w3 {width: 422px;}
.h3 {height: 422px;}
</style>

结果输出为复制图像。

输出数据模糊了面部图片。

enter image description here

1 个答案:

答案 0 :(得分:1)

由于您选择的是TOP 3,并且数组中有三个元素, 你可以使用计数器在循环中移动数组索引。

If Not rs.eof Then
  Dim xindex : xindex=0
  While Not rs.EOF

%>
<div class='box snip1328 <%=x(xindex)%>'>
    <%        If rs("thumb") = "" Then %>
    <img src="/img/tlogo.gif"></a>
    <%        Else %>
    <img src="/data/fo01/<%=rs("thumb")%>"></a>
    <%        End If %>
</div>
<%
    xindex = xindex + 1
    rs.MoveNext
    Wend
End If