Twitter bootstrap 在asp classic中将引导程序手风琴和图库与旧数据库图库集成

我正在尝试更新一个asp经典网站，并将其与bootstrap集成。我成功地用引导网格布局更改了表布局。 我有一个需要合并的库页面，我需要一些帮助来创建引导accordion面板组件的数据库结果

循环

我已经设法获得了面板标题，以便从数据库中提取数据并显示出来，但对于面板的内容，我丢失了。
我尝试了一些使用旧代码的方法，但是不断地出现错误，比如预期的wend或类似的错误

我知道引导面板显示不需要部分旧代码，因为旧代码将创建要显示的页面，而在新外观中，所有页面都将在同一页面中

我需要更改数据库中数据的显示方式。
你可以在这里看到新的和旧的：

菲奥里拉。com/Galleria Foto.asp

菲奥里拉。com/new/galleria-foto.asp

这是新galleria-foto.asp文件的相关代码，其中一部分仍然是从表格布局中剥离的旧文件，我需要帮助重新排列（重新编码）以达到我的目的-在旧文件的下面

<!-- content area -->
<section>
    <div class="container">
        <div class="fz-main-content-wrap">
            <div class="row">
                <div class="col-md-8 fz-home-main">
                    <div class="fz-home-box">
                        <h1>galleria</h1>
<% 
    '################################################################################
        IF Request.QueryString("testo") = "" THEN
    '################################################################################
%>

    <!-- #include file="_apri.asp" --><%
    strSQL = "SELECT tbl_testi.*, tbl_foto.* FROM tbl_testi LEFT OUTER JOIN tbl_foto ON tbl_testi.riftesto = tbl_foto.riftesto "
    strSQL = strSQL + "WHERE (tbl_foto.principale = 1 OR tbl_foto.principale IS null) AND tbl_testi.tipo = 'foto' ORDER BY data DESC"
    SET objRS = objConn.Execute(strSQL) %>

<% IF objRS.EOF THEN %>
    <div align="center">Sezione in aggiornamento.<br>
    Torna presto a trovarci o <a target="_top" href="Contatti-Informazioni-Ordini.asp">contattaci</a>.
    </div>

<% ELSE %>

<% 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">

                Here should be the loop to output the images of each category (item i.e. fioriera rovere 202 etc.)

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

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

<!-- #include file="_chiudi2.asp" -->
<% END IF %>

<% 
    '################################################################################
        ELSE
    '################################################################################
%>

<a href="galleria-foto.asp">Clicca qui per tornare alla lista</a>

    <h2 align="center"><%= Request.QueryString("titolo") %></h2>
    <br>

<p style="text-align:justify">
<%
    Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
    strFileX = Application("path_public") + "\" + Request.QueryString("testo") + ".txt"
    Set objFILE = objFSO.OpenTextFile(strFileX, 1)
    WHILE NOT objFILE.AtEndOfStream
        Response.Write (objFILE.ReadLine)
    WEND
    objFILE.Close
    Set objFILE = Nothing
    Set objFSO = Nothing
%>
</p>

<br>
<p style="text-align:center">(clicca sulle foto per ingrandirle)</p>

<!-- #include file="_apri.asp" --><%
strSQL = "SELECT * FROM tbl_foto WHERE riftesto = '" + Request.QueryString("testo") + "'"
set objRS = objConn.Execute(strSQL) %>

<% i=1 %>
<% WHILE NOT objRS.EOF %>

        <div class="row fz-3">
        <div class="col-md-9 fz-4 didascalia">
                    <%= objRS("didascalia")%>
                </div>
                <div class="col-md-3 fz-2">

            <a href="public/<%=objRS("idchiave")%>">
            <img class="img-responsive" name="img<%=i%>" border="0" src="public/<%=objRS("idchiave")%>" alt='<%= objRS("didascalia")%>' /></a>

                     </div>
                     </div>

<% i = i + 1 %>
<% objRS.MoveNext %>
<% WEND %>
<!-- #include file="_chiudi2.asp" -->

    <div align="center">
        <a href="galleria-foto.asp">Clicca qui per tornare alla lista</a>
    </div>

<% 
    '################################################################################
        END IF
    '################################################################################
%>

                    </div>
                </div>

                <div class="col-md-4 fz-home-main">
                <aside id="sidebar">
                    <div class="row">

                    </div>
                    </aside>
                </div>
            </div>
        </div><!-- .fz-main-content-wrap -->
    </div><!-- .container -->
</section>
<!-- END content area -->

翻译字段以澄清

riftesto-文本引用

idchiave-id密钥

principale-main（面板标题图像是否设置为1，如果为main，则设置为0）

迪达斯卡利亚-说明

数据-日期

标题

乔尼-天

提波型

foto-图片（图像）

描述-描述

att-我真的不知道最初的编码器是什么意思，但我认为这与使用无关。
您的项目中有很多工作要做。
与ASP经典人物合作。（我们以百万计）

从我们长时间的谈话中，我的答案是关于布局和如何使事情运转的简短回答

如何使用提供的代码获得上面的布局

我们的流量

日期对象（“数据”）
标题objRS（“标题”）
category galleria foto.asp？testo=示例：www.domain.ext/galleria foto.asp？testo=141231654418504130（我猜）
Galleria Foto TUMB.asp？Foto=示例：www.domain.ext/Galleria Foto TUMB.asp？Foto=141231656428504969.JPG
基本上，你所要求的就是用你自己的代码向你展示，你需要把你的HTML代码放在什么地方，以获得与gallery视图一致的结果

由于一些旧代码的缘故，我将对此进行简化。
这也意味着如果我们要使用LightBox javascript特性，我们需要更新我们的JS和CSS。
（同样，我不是在编辑ASP代码，只是在ASP脚本中放置HTML）


1那么%>


1那么%>
" />
（无Foto）
我编辑了这个问题和标题。从帮助中心链接提供我读到：“当一个问题达到5个接近的选票，它被标记[保持]”，在这里我看到3票，我认为这是一个滥用，不符合“网站质量”。“辩论。让我们顺其自然吧，我们花了太多时间阅读没有任何结果的负面评论。我真的没有发现你的问题有什么问题，可能是因为我多年来一直用意大利语编码。你的问题已经超越了引导，这意味着现在是你发布新问题的时候了。也许，如果你阅读个人资料，我们可以让你走上正确的道路。你必须让这篇文章结束，所以你自己去做，如果有帮助的话标记答案，然后发布一个后续问题。我们不会做你的代码，但我们可以给你很多提示。我今天正在编程，所以只要问一下。@MurrayW您现在正在积极鼓励OP提出更多问题？这将是三个问题，他们已经张贴了关于同一问题，为什么因为主题是太板！如果范围已更改…请更改问题，不要打开新问题！第一个问题是如何在旧ASP代码中放置带图库的引导手风琴。他发布了代码，我删除了ASP经典引导网站不需要的所有旧代码。他把它发到网上，结果成功了。然后他编辑了我的帖子，认为他将通过移动HTML创建一个SQL数据查找循环。这让我知道他看不到大局。为了清楚地划分HTML和ASP，我要求只为他的ASP代码设置一个新帖子，我评论说这个问题的措辞不正确，一旦他有了答案，我就会修改它。不需要天才就能看出他在做什么。我们都做过主题的引导升级。我运行@htmlstream主题，这些主题在一些非常古老的ASP站点上非常详细。比方说，你停止与这一过程抗争，停止降级。你所做的只是告诉别人这不是寻求帮助的地方。你可以编辑问题，为什么不这样做，而不是花时间和谁理解什么。我认为这是一个分享信息和帮助解释问题的好地方。我想你比我更清楚，我会把这个转到我的Google+帐户。我稍后会详细说明结果，我得走了，这只是为了感谢你。如果他们关闭了问题，我将无法发布（不知道它是如何工作的），请使用我的用户名@gmail.com与我联系。我确实使用了你的代码，并删除了手风琴之外的所有其他asp代码，我得到了这个错误：
ADODB.Recordset error'800a0cc1'项在与请求的名称或序号对应的集合中找不到。
行是标题图像
“/>，它
<div align="center">
    <table border="0" cellpadding="0" style="border-collapse: collapse">
        <tr>
            <td width="580" valign="top">
<% 
    '################################################################################
        IF Request.QueryString("testo") = "" THEN
    '################################################################################
%>
    <div align="center">
        <table border="0" cellpadding="0" style="border-collapse: collapse" width="100%">
            <tr>
                <td><hr style="height: 1px; color: #000099;"></td>
            </tr>
        </table>
    </div>
    <!-- #include file="_apri.asp" --><%
    strSQL = "SELECT tbl_testi.*, tbl_foto.* FROM tbl_testi LEFT OUTER JOIN tbl_foto ON tbl_testi.riftesto = tbl_foto.riftesto "
    strSQL = strSQL + "WHERE (tbl_foto.principale = 1 OR tbl_foto.principale IS null) AND tbl_testi.tipo = 'foto' ORDER BY data DESC"
    SET objRS = objConn.Execute(strSQL) %>

<% IF objRS.EOF THEN %>
    <div align="center">Sezione in aggiornamento.<br>
    Torna presto a trovarci o <a target="_top" href="Contatti-Informazioni-Ordini.asp">contattaci</a>.
    </div>

<% ELSE %>

    <div align="center">
        <table border="0" cellpadding="0" style="border-collapse: collapse" width="100%">
<% i = 1 %>
<% WHILE NOT objRS.EOF %>
            <tr>
                <td style="width: 450px; height: 85px; text-align: left; vertical-align: top;">
                <%=objRS("data")%><br>
                <a href="galleria-foto.asp?testo=<%=objRS("tbl_testi.riftesto")%>&titolo=<%=objRS("titolo")%>&data=<%=objRS("data")%>"><%=objRS("titolo")%></a>
                </td>
                <td style="width: 110px; height: 85px;">
                <% IF LEN(objRS("idchiave")) > 1 THEN %>
                    <iframe name="Foto<%=i%>" src='Galleria-Foto-TUMB.asp?foto=<%=objRS("idchiave")%>&amp;base=100&amp;altezza=75' border="0" frameborder="0" height="77" marginheight="1" marginwidth="1" width="102" scrolling="no"></iframe>
                <% ELSE %>
                    (No Foto)
                <% END IF %>
                </td>
            </tr>
            <tr>
                <td colspan="2"><hr style="height: 1px; color: #000099;"></td>
            </tr>
<% i = i + 1 %>
<% objRS.MoveNext %>
<% WEND %>
        </table>
    </div>

<!-- #include file="_chiudi2.asp" -->
<% END IF %>

<% 
    '################################################################################
        ELSE
    '################################################################################
%>

      <div align="center">
                <table style="width: 500px; height: 30px; border: 1px solid #000099;">
               <tr>
                  <td align="center"><a href="galleria-foto.asp">Clicca qui per tornare alla lista</a></td>
               </tr>
            </table>
      </div>

    <p>&nbsp;</p>
    <h2 align="center"><%= Request.QueryString("titolo") %></h2>
    <br>

<p style="text-align:justify">
<%
    Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
    strFileX = Application("path_public") + "\" + Request.QueryString("testo") + ".txt"
    Set objFILE = objFSO.OpenTextFile(strFileX, 1)
    WHILE NOT objFILE.AtEndOfStream
        Response.Write (objFILE.ReadLine)
    WEND
    objFILE.Close
    Set objFILE = Nothing
    Set objFSO = Nothing
%>
</p>

<br>
<p style="text-align:center">(clicca sulle foto per ingrandirle)</p>

<!-- #include file="_apri.asp" --><%
strSQL = "SELECT * FROM tbl_foto WHERE riftesto = '" + Request.QueryString("testo") + "'"
set objRS = objConn.Execute(strSQL) %>

    <div align="center">
        <table border="0" cellpadding="0" style="border-collapse: collapse" width="100%">
            <tr>
                <td><hr style="height: 1px; color: #000099;"></td>
            </tr>
        </table>
    </div>

<% i=1 %>
<% WHILE NOT objRS.EOF %>

    <div align="center">
        <table border="0" style="border-collapse: collapse">
            <tr>
                <td width="250" height="170" align="center">
                    <%= objRS("didascalia")%>
                </td>

                <td width="250" height="180" align="center">

<!--                    <iframe name="Foto<%=i%>" src='galleria-foto-FOTO.asp?foto=<%=objRS("idchiave")%>&base=248&altezza=178&didascalia=<%= objRS("didascalia")%>' frameborder="0" height="180" marginheight="1" marginwidth="1" width="250" scrolling="no"></iframe> -->

            <a href="public/<%=objRS("idchiave")%>" rel="lightbox[foto]">
            <img name="img<%=i%>" border="0" src="public/<%=objRS("idchiave")%>" alt='<%= objRS("didascalia")%>'
            onload="if (img<%=i%>.width/img<%=i%>.height < 250/180) {if (img<%=i%>.height > 180 ) {img<%=i%>.height= 180;} } else {if (img<%=i%>.width > 250 ) {img<%=i%>.width= 250;} }" 
            onmouseover="if (img<%=i%>.width/img<%=i%>.height < 250/180) {if (img<%=i%>.height > 180 ) {img<%=i%>.height= 180;} } else {if (img<%=i%>.width > 250 ) {img<%=i%>.width= 250;} }"                   
                     ></a>

                </td>
            </tr>
        </table>
    </div>

    <div align="center">
        <table border="0" cellpadding="0" style="border-collapse: collapse" width="100%">
            <tr>
                <td><hr style="height: 1px; color: #000099;"></td>
            </tr>
        </table>
    </div>

<% i = i + 1 %>
<% objRS.MoveNext %>
<% WEND %>
<!-- #include file="_chiudi2.asp" -->

      <div align="center">
                <table style="width: 500px; height: 30px; border: 1px solid #000099;">
               <tr>
                  <td align="center" style="height: 26px"><a href="galleria-foto.asp">Clicca qui per tornare alla lista</a></td>
               </tr>
            </table>
      </div>

<% 
    '################################################################################
        END IF
    '################################################################################
%>
            </td>
            <td width="5">&nbsp;</td>
        </tr>
    </table>
</div>

tbl_foto [riftesto - idchiave - principale - didascalia]
tbl_testi [riftesto - data - titolo - giorni - tipo]
tbl_tipi [tipo - att_didascalia - att_foto - att_testo - descrizione]

<div aria-multiselectable="true" class="panel-group" id="accordion" role="tablist">

        <!-- #include file="_apri.asp" -->
        <%
        strSQL = "SELECT tbl_testi.*, tbl_foto.* FROM tbl_testi LEFT OUTER JOIN tbl_foto ON tbl_testi.riftesto = tbl_foto.riftesto "
        strSQL = strSQL + "WHERE (tbl_foto.principale = 1 OR tbl_foto.principale IS null) AND tbl_testi.tipo = 'foto' ORDER BY data DESC"
        SET objRS = objConn.Execute(strSQL)
        IF objRS.EOF THEN
        %>
        <!-- do your html message for nothing found.-->
        <% Else %>
        <% i = 1 %>


        <% WHILE NOT objRS.EOF%>
            <% IF LEN(objRS("idchiave")) > 1 THEN %>

    <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" alt="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">
                        <a href="/public/<%=objRS("idchiave")%>" rel="gallery" class="" data-lightbox="Group-<%=objRS("idchiave")%>" 
                        data-title="Image-<%=i%>: Title for Image-<%=i%>" 
                        title="Image-<%=i%>: Title for Image-<%=i%>">
                            <img src="/public/<%=objRS("idchiave")%>" width="150px" alt="Image-<%=i%>: Title for Image-<%=i%>" />
                        </a>
                </div>
            </div>
        </div>
    </div>

    <%End If%>
        <% i = i + 1 %>
        <% objRS.MoveNext %>
    <% WEND %>

    <% 
    End If 'objRS.EOF
    %>

        <!-- #include file="_chiudi2.asp" -->
</div>