为bootstrap手风琴asp-classic分配动态id

时间:2016-02-28 23:40:00

标签: twitter-bootstrap vbscript asp-classic

我正在尝试使用可折叠的折叠式面板,并从数据库填充它,但不知道如何更改每个面板的面板ID。

这是相关代码(我认为 - 不是编码员)

data <- data.frame(neuron1=c("A", "B", "C", "D", "E", "F"),
                    neuron2=c("G", "H", "I", "J", "K", "L"),
                    bridge=c("M","N","O","P","Q","R"))

g <- graph.data.frame(data, directed=FALSE)

summary(g)
IGRAPH UN-- 12 6 -- 
+ attr: name (v/c), bridge (e/c)

1 个答案:

答案 0 :(得分:1)

您需要将手风琴移动到您的while ... wend循环之外,然后将变量i添加到单词&#34; One&#34;出现,以便每个面板都有唯一的标识符。

<% i = 1 %>
<div aria-multiselectable="true" class="panel-group" id="accordion" role="tablist">
<% WHILE NOT objRS.EOF %>
    <div class="panel panel-default">
        <div class="panel-heading clearfix" id="heading_<%=i %>" role="tab">
            <div class="col-md-8 fz-2">
            <h4 class="panel-title">
            <%=objRS("data")%><br>
            <a aria-controls="collapse_<%=i %>" aria-expanded="true" data-parent="#accordion" data-toggle="collapse" href="#collapse_<%=i %>" role="button">
            <%=objRS("titolo")%>
            </a>
            </h4>
            </div>
                <div class="col-md-4 fz-2">
            <% IF LEN(objRS("idchiave")) > 1 THEN %>
                    <img class="img-responsive" name="img" src="public/<%=objRS("idchiave")%>" />
                <% ELSE %>
                    (No Foto)
                <% END IF %>
                </div>
        </div>
        <div aria-labelledby="heading_<%=i %>" class="panel-collapse collapse<% If i = 1 Then %> in<% End If %>" id="collapse_<%=i %>" role="tabpanel">
            <div class="panel-body">
                <div class="fz-gallery-wrap">

                </div>
            </div>
        </div>
    </div>

<% i = i + 1 %>
<% objRS.MoveNext %>
<% WEND %>
</div>