如果没有可用内容，请不要显示菜单项

时间：2014-03-14 15:09:27

标签： mysql sql vbscript asp-classic

网站管理员可以添加新的子菜单链接，这些链接又会显示包含相关记录的页面。

但是，如果没有要显示的记录，则该页面会抛出错误。

我需要的是一种检查是否有可用记录的方法，如果没有，则不显示该链接。

tblMainMenu的结构是：

MainMenuID
MainMenuName
MainMenuImage
DisplayRecord
PositionNumber

tblSubMenu的结构是：

SubMenuID
SubMenuName
MainMenuID
DisplayRecord
PositionNumber

tblContent的结构是：

ContentID
MainMenuID
SubMenuID
DisplayRecord
DisplayImage
UnDeleteRecord
UnDeleteImage
PositionNumber
ContentTitle
ContentData
ContentImage
ContentImageCaption

页面代码，也显示SQL代码：

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include virtual="/Connections/ENG.asp" -->
<%
Dim rsCharityDetails
Dim rsCharityDetails_cmd
Dim rsCharityDetails_numRows

Set rsCharityDetails_cmd = Server.CreateObject ("ADODB.Command")
rsCharityDetails_cmd.ActiveConnection = MM_ENG_STRING
rsCharityDetails_cmd.CommandText = "SELECT * FROM tblCharityDetails" 
rsCharityDetails_cmd.Prepared = true

Set rsCharityDetails = rsCharityDetails_cmd.Execute
rsCharityDetails_numRows = 0
%>
<%
Dim rsHeaderImage
Dim rsHeaderImage_cmd
Dim rsHeaderImage_numRows

Set rsHeaderImage_cmd = Server.CreateObject ("ADODB.Command")
rsHeaderImage_cmd.ActiveConnection = MM_ENG_STRING
rsHeaderImage_cmd.CommandText = "SELECT MainMenuImage, MainMenuID FROM tblMainMenu WHERE MainMenuID = 3" 
rsHeaderImage_cmd.Prepared = true

Set rsHeaderImage = rsHeaderImage_cmd.Execute
rsHeaderImage_numRows = 0
%>
<%
Dim rsNavBar
Dim rsNavBar_cmd
Dim rsNavBar_numRows

Set rsNavBar_cmd = Server.CreateObject ("ADODB.Command")
rsNavBar_cmd.ActiveConnection = MM_ENG_STRING
rsNavBar_cmd.CommandText = "SELECT * FROM tblMainMenu WHERE DisplayRecord = 1 ORDER BY PositionNumber ASC" 
rsNavBar_cmd.Prepared = true

Set rsNavBar = rsNavBar_cmd.Execute
rsNavBar_numRows = 0
%>
<%
Dim rsWhoWeAre
Dim rsWhoWeAre_cmd
Dim rsWhoWeAre_numRows

Set rsWhoWeAre_cmd = Server.CreateObject ("ADODB.Command")
rsWhoWeAre_cmd.ActiveConnection = MM_ENG_STRING
rsWhoWeAre_cmd.CommandText = "SELECT tblSubMenu.*, tblMainMenu.MainMenuName FROM tblSubMenu INNER JOIN tblMainMenu ON tblSubMenu.MainMenuID = tblMainMenu.MainMenuID WHERE tblSubMenu.DisplayRecord = 1 AND tblSubMenu.MainMenuID = 1 ORDER BY tblSubMenu.PositionNumber ASC" 
rsWhoWeAre_cmd.Prepared = true

Set rsWhoWeAre = rsWhoWeAre_cmd.Execute
rsWhoWeAre_numRows = 0
%>
<%
Dim rsWhatWeDo
Dim rsWhatWeDo_cmd
Dim rsWhatWeDo_numRows

Set rsWhatWeDo_cmd = Server.CreateObject ("ADODB.Command")
rsWhatWeDo_cmd.ActiveConnection = MM_ENG_STRING
rsWhatWeDo_cmd.CommandText = "SELECT tblSubMenu.*, tblMainMenu.MainMenuName FROM tblSubMenu INNER JOIN tblMainMenu ON tblSubMenu.MainMenuID = tblMainMenu.MainMenuID WHERE tblSubMenu.DisplayRecord = 1 AND tblSubMenu.MainMenuID = 2 ORDER BY tblSubMenu.PositionNumber ASC" 
rsWhatWeDo_cmd.Prepared = true

Set rsWhatWeDo = rsWhatWeDo_cmd.Execute
rsWhatWeDo_numRows = 0
%>
<%
Dim rsOurProjects
Dim rsOurProjects_cmd
Dim rsOurProjects_numRows

Set rsOurProjects_cmd = Server.CreateObject ("ADODB.Command")
rsOurProjects_cmd.ActiveConnection = MM_ENG_STRING
rsOurProjects_cmd.CommandText = "SELECT tblSubMenu.*, tblMainMenu.MainMenuName FROM tblSubMenu INNER JOIN tblMainMenu ON tblSubMenu.MainMenuID = tblMainMenu.MainMenuID WHERE tblSubMenu.DisplayRecord = 1 AND tblSubMenu.MainMenuID = 3 ORDER BY tblSubMenu.PositionNumber ASC" 
rsOurProjects_cmd.Prepared = true

Set rsOurProjects = rsOurProjects_cmd.Execute
rsOurProjects_numRows = 0
%>
<%
Dim rsSupportUs
Dim rsSupportUs_cmd
Dim rsSupportUs_numRows

Set rsSupportUs_cmd = Server.CreateObject ("ADODB.Command")
rsSupportUs_cmd.ActiveConnection = MM_ENG_STRING
rsSupportUs_cmd.CommandText = "SELECT tblSubMenu.*, tblMainMenu.MainMenuName FROM tblSubMenu INNER JOIN tblMainMenu ON tblSubMenu.MainMenuID = tblMainMenu.MainMenuID WHERE tblSubMenu.DisplayRecord = 1 AND tblSubMenu.MainMenuID = 4 ORDER BY tblSubMenu.PositionNumber ASC" 
rsSupportUs_cmd.Prepared = true

Set rsSupportUs = rsSupportUs_cmd.Execute
rsSupportUs_numRows = 0
%>
<%
Dim rsLearnMore
Dim rsLearnMore_cmd
Dim rsLearnMore_numRows

Set rsLearnMore_cmd = Server.CreateObject ("ADODB.Command")
rsLearnMore_cmd.ActiveConnection = MM_ENG_STRING
rsLearnMore_cmd.CommandText = "SELECT tblSubMenu.*, tblMainMenu.MainMenuName FROM tblSubMenu INNER JOIN tblMainMenu ON tblSubMenu.MainMenuID = tblMainMenu.MainMenuID WHERE tblSubMenu.DisplayRecord = 1 AND tblSubMenu.MainMenuID = 5 ORDER BY tblSubMenu.PositionNumber ASC" 
rsLearnMore_cmd.Prepared = true

Set rsLearnMore = rsLearnMore_cmd.Execute
rsLearnMore_numRows = 0
%>
<%
Dim rsContent__idSMenu
rsContent__idSMenu = "7"
If (Request.QueryString("idSMenu")    <> "") Then 
  rsContent__idSMenu = Request.QueryString("idSMenu")   
End If
%>
<%
Dim rsContent
Dim rsContent_cmd
Dim rsContent_numRows

Set rsContent_cmd = Server.CreateObject ("ADODB.Command")
rsContent_cmd.ActiveConnection = MM_ENG_STRING
rsContent_cmd.CommandText = "SELECT tblContent.*, tblSubMenu.SubMenuName, tblMainMenu.MainMenuName FROM (tblContent LEFT JOIN tblSubMenu ON tblContent.SubMenuID = tblSubMenu.SubMenuID) INNER JOIN tblMainMenu ON tblContent.MainMenuID = tblMainMenu.MainMenuID WHERE tblContent.DisplayRecord = 1 AND tblContent.SubMenuID = ? ORDER BY tblContent.PositionNumber ASC" 
rsContent_cmd.Prepared = true
rsContent_cmd.Parameters.Append rsContent_cmd.CreateParameter("param1", 5, 1, -1, rsContent__idSMenu) ' adDouble

Set rsContent = rsContent_cmd.Execute
rsContent_numRows = 0
%>
<%
Dim navBar__numRows
Dim navBar__index

navBar__numRows = -1
navBar__index = 0
rsNavBar_numRows = rsNavBar_numRows + navBar__numRows
%>
<%
Dim WhoWeAre__numRows
Dim WhoWeAre__index

WhoWeAre__numRows = -1
WhoWeAre__index = 0
rsWhoWeAre_numRows = rsWhoWeAre_numRows + WhoWeAre__numRows
%>
<%
Dim WhatWeDo__numRows
Dim WhatWeDo__index

WhatWeDo__numRows = -1
WhatWeDo__index = 0
rsWhatWeDo_numRows = rsWhatWeDo_numRows + WhatWeDo__numRows
%>
<%
Dim OurProjects__numRows
Dim OurProjects__index

OurProjects__numRows = -1
OurProjects__index = 0
rsOurProjects_numRows = rsOurProjects_numRows + OurProjects__numRows
%>
<%
Dim SupportUs__numRows
Dim SupportUs__index

SupportUs__numRows = -1
SupportUs__index = 0
rsSupportUs_numRows = rsSupportUs_numRows + SupportUs__numRows
%>
<%
Dim LearnMore__numRows
Dim LearnMore__index

LearnMore__numRows = -1
LearnMore__index = 0
rsLearnMore_numRows = rsLearnMore_numRows + LearnMore__numRows
%>
<%
Dim Article__numRows
Dim Article__index

Article__numRows = -1
Article__index = 0
rsContent_numRows = rsContent_numRows + Article__numRows
%>
<!DOCTYPE HTML>
<html>
<head>
<meta charset="iso-8859-1">
<!-- disable iPhone inital scale -->
<meta name="viewport" content="width=device-width; initial-scale=1.0">

<title><%=(rsContent.Fields.Item("MainMenuName").Value)%> || <%=(rsContent.Fields.Item("SubMenuName").Value)%> || <%=(rsCharityDetails.Fields.Item("CharityName").Value)%></title>

<script src="../scripts/jquery-1.7.2.min.js"></script>
<!-- jQuery NailThumb Plugin - any image to any thumbnail Examples and documentation at: http://www.garralab.com/nailthumb.php -->
<script src="../scripts/jquery.nailthumb.1.1.js"></script>
<!-- Lightbox2 v2.51 by Lokesh Dhakar For more information, visit: http://lokeshdhakar.com/projects/lightbox2/ -->
<script src="../scripts/lightbox.js"></script>

<!-- Lightbox css -->
<link href="../scripts/lightbox.css" rel="stylesheet" type="text/css" media="screen" />
<!-- main css -->
<link href="../scripts/mfm-standard-stylesheet.css" rel="stylesheet" type="text/css">
<!-- Non desktop css -->
<link href="../scripts/mfm-media-queries.css" rel="stylesheet" type="text/css">

<!-- html5.js for IE less than 9 -->
<!--[if lt IE 9]>
<script src="http://html5shim.googlecode.com/svn/trunk/html5.js"></script>
<![endif]-->

<!-- css3-mediaqueries.js for IE less than 9 -->
<!--[if lt IE 9]>
<script src="http://css3-mediaqueries-js.googlecode.com/svn/trunk/css3-mediaqueries.js"></script>
<![endif]-->

</head>

<%
thisPageID = (rsContent.Fields.Item("MainMenuName").Value)
thisPageID = replace(thisPageID, " ", "-")
thisPageID = LCase(thisPageID)
'Response.Write(thisPageID)
%>

<body id="<% Response.Write(thisPageID) %>">

<div id="wrapper" class="innerWidth">
<header>
<!--#include file="includes/header.asp" -->
</header>

<nav>
<!--#include file="includes/navbar.asp" -->
</nav>

<!-- Page Content -->
<% IF rsContent.Fields.Item("SubMenuName") <> rsContent.Fields.Item("ContentTitle") THEN %>
<h1 id="pageTitle"><%=(rsContent.Fields.Item("SubMenuName").Value)%></h1>
<% END IF %>

<!-- Article -->
<% 
While ((Article__numRows <> 0) AND (NOT rsContent.EOF)) 
%>
<article id="content" class="innerWidth">
    <% IF (IsNull(rsContent.Fields.Item("ContentImage").Value)) OR (rsContent.Fields.Item("DisplayImage").Value) = "0" THEN %>
    <div class="withoutImage">
    <h1><%=(rsContent.Fields.Item("ContentTitle").Value)%></h1> <!-- Content Title -->
    <%=(rsContent.Fields.Item("ContentData").Value)%>
    </div> <!-- Page Content -->
    <% ELSE %>
    <!-- Image -->
    <div class="withImage">
    <h1><%=(rsContent.Fields.Item("ContentTitle").Value)%></h1> <!-- Content Title -->
    <img src="../images/system-images/polaroid-frame.gif" id="frame">
    <div class="nailthumb-container" id="frameImage"> <!-- Thumbnail Container -->
    <a href="<%=(rsContent.Fields.Item("ContentImage").Value)%>" rel="lightbox" title="<%=(rsContent.Fields.Item("ContentImageCaption").Value)%>"><img src="<%=(rsContent.Fields.Item("ContentImage").Value)%>"></a> <!-- Image -->
    </div>
    <span id="frameImageCaption"><%=(rsContent.Fields.Item("ContentImageCaption").Value)%></span>
    <%=(rsContent.Fields.Item("ContentData").Value)%>
    </div>
    <% END IF %>
</article>

<% 
Article__index=Article__index+1
Article__numRows=Article__numRows-1
rsContent.MoveNext()
Wend
%>
<!-- /Article -->

<script type="text/javascript">
jQuery(document).ready(function() {
jQuery('.nailthumb-container').nailthumb({fitDirection:'top center'});
});
</script>

<!-- /Page Content -->

<div class="push"></div>

</div>
<!-- /#wrapper -->

<footer>
  <!--#include file="includes/footer.asp" -->
</footer>

</body>
</html>
<%
rsCharityDetails.Close()
Set rsCharityDetails = Nothing
%>
<%
rsHeaderImage.Close()
Set rsHeaderImage = Nothing
%>
<%
rsNavBar.Close()
Set rsNavBar = Nothing
%>
<%
rsWhoWeAre.Close()
Set rsWhoWeAre = Nothing
%>
<%
rsWhatWeDo.Close()
Set rsWhatWeDo = Nothing
%>
<%
rsOurProjects.Close()
Set rsOurProjects = Nothing
%>
<%
rsSupportUs.Close()
Set rsSupportUs = Nothing
%>
<%
rsLearnMore.Close()
Set rsLearnMore = Nothing
%>
<%
rsContent.Close()
Set rsContent = Nothing
%>

菜单代码是一个包含的文件navbar.asp，是：

<%
pageName = Request.ServerVariables("SCRIPT_NAME") '& "<br>"
loc = instrRev(pageName,"/")
pageName = mid(pageName, loc+1, len(pageName) - loc)
%>

<script type="text/javascript">
//jQuery.noConflict();
jQuery(document).ready(function () {
jQuery("h3 a").click(function (e) {

jQuery(".subMenuRow").hide();
mID=this.id
mID=mID.replace("Main_Menu_", "");
jQuery("#"+mID).show().delay(6500).fadeOut(); 

return(false);
})
})
</script> 

<ul>
<%
While ((navBar__numRows <> 0) AND (NOT rsNavBar.EOF)) 
%>
<%
thisPageClass = (rsNavBar.Fields.Item("MainMenuName").Value)
thisPageClass = replace(thisPageClass, " ", "-")
thisPageClass = LCase(thisPageClass)
%>
<% If (rsNavBar.Fields.Item("MainMenuID").Value) = "6" Then %>
    <li><a href="default.asp" class="home"><h3><%=(rsNavBar.Fields.Item("MainMenuName").Value)%></h3></a></li>
<% ElseIf (rsNavBar.Fields.Item("MainMenuID").Value) = "7" Then %>
    <li><a href="contact-us.asp" class="<% Response.Write(thisPageClass) %>"><h3><%=(rsNavBar.Fields.Item("MainMenuName").Value)%></h3></a></li>
<% Else %>
    <li><h3><a id="Main_Menu_<%=(rsNavBar.Fields.Item("MainMenuID").Value)%>" href="<% Response.Write(pageName) %>?show=<%=(rsNavBar.Fields.Item("MainMenuID").Value)%>" class="<% Response.Write(thisPageClass) %>"><%=(rsNavBar.Fields.Item("MainMenuName").Value)%></a></h3></li>
<% End If %>
<% 
navBar__index=navBar__index+1
navBar__numRows=navBar__numRows-1
rsNavBar.MoveNext()
Wend
%>
</ul>

<%
'declare 1 for each layer
Dim vis1, vis2, vis3, vis4, vis5

Select Case request("show")
  Case 1 ' Who We Are
    vis1 = "block"
    vis2 = "none"
    vis3 = "none"
    vis4 = "none"
    vis5 = "none"
  Case 2 ' What We Do
    vis1 = "none"
    vis2 = "block"
    vis3 = "none"
    vis4 = "none"
    vis5 = "none"
  Case 3 ' Our Projects
    vis1 = "none"
    vis2 = "none"
    vis3 = "block"
    vis4 = "none"
    vis5 = "none"
  Case 4 ' Support Us
    vis1 = "none"
    vis2 = "none"
    vis3 = "none"
    vis4 = "block"
    vis5 = "none"
  Case 5 ' Learn More
    vis1 = "none"
    vis2 = "none"
    vis3 = "none"
    vis4 = "none"
    vis5 = "block"
  Case else
    vis1 = "none"
    vis2 = "none"
    vis3 = "none"
    vis4 = "none"
    vis5 = "none"
End Select
%>

<!-- WHO WE ARE -->
<div id="1" style="display:<%=vis1%>;" class="subMenuRow">
<ul class="innerWidth">
<% 
While ((WhoWeAre__numRows <> 0) AND (NOT rsWhoWeAre.EOF)) 
%>
<%
strPageName = Replace (rsWhoWeAre.Fields.Item("MainMenuName").Value," ","-")
strPageName = Lcase(strPageName)
%>
<% If (rsWhoWeAre.Fields.Item("SubMenuID").Value) = "3" Then %>
<li><a href="our-development-partners.asp"><h3><%=(rsWhoWeAre.Fields.Item("SubMenuName").Value)%></h3></a></li>
<% Else %>
<li><a href="<% Response.Write(strPageName) %>.asp?idSMenu=<%=(rsWhoWeAre.Fields.Item("SubMenuID").Value)%>"><h3><%=(rsWhoWeAre.Fields.Item("SubMenuName").Value)%></h3></a></li>
<% End If %>
<% 
WhoWeAre__index=WhoWeAre__index+1
WhoWeAre__numRows=WhoWeAre__numRows-1
rsWhoWeAre.MoveNext()
Wend
%>
</ul>
</div>
<!-- /WHO WE ARE -->

<!-- WHAT WE DO -->
<div id="2" style="display:<%=vis2%>;" class="subMenuRow">
<ul class="innerWidth">
<% 
While ((WhatWeDo__numRows <> 0) AND (NOT rsWhatWeDo.EOF)) 
%>
<%
strPageName = Replace (rsWhatWeDo.Fields.Item("MainMenuName").Value," ","-")
strPageName = Lcase(strPageName)
%>
<% If (rsWhatWeDo.Fields.Item("SubMenuID").Value) = "6" Then %>
<li><a href="map.asp?idSMenu=<%=(rsWhatWeDo.Fields.Item("SubMenuID").Value)%>"><h3><%=(rsWhatWeDo.Fields.Item("SubMenuName").Value)%></h3></a></li>
<% Else %>
<li><a href="<% Response.Write(strPageName) %>.asp?idSMenu=<%=(rsWhatWeDo.Fields.Item("SubMenuID").Value)%>"><h3><%=(rsWhatWeDo.Fields.Item("SubMenuName").Value)%></h3></a></li>
<% End If %>
<% 
WhatWeDo__index=WhatWeDo__index+1
WhatWeDo__numRows=WhatWeDo__numRows-1
rsWhatWeDo.MoveNext()
Wend
%>
</ul>
</div>
<!-- /WHAT WE DO -->

<!-- OUR PROJECTS -->
<div id="3" style="display:<%=vis3%>;" class="subMenuRow">
<ul class="innerWidth">
<% 
While ((OurProjects__numRows <> 0) AND (NOT rsOurProjects.EOF)) 
%>
<%
strPageName = Replace (rsOurProjects.Fields.Item("MainMenuName").Value," ","-")
strPageName = Lcase(strPageName)
%>
<li><a href="<% Response.Write(strPageName) %>.asp?idSMenu=<%=(rsOurProjects.Fields.Item("SubMenuID").Value)%>"><h3><%=(rsOurProjects.Fields.Item("SubMenuName").Value)%></h3></a></li>
<% 
OurProjects__index=OurProjects__index+1
OurProjects__numRows=OurProjects__numRows-1
rsOurProjects.MoveNext()
Wend
%>
</ul>
</div>
<!-- /OUR PROJECTS -->

<!-- SUPPORT US -->
<div id="4" style="display:<%=vis4%>;" class="subMenuRow">
<ul class="innerWidth">
<% 
While ((SupportUs__numRows <> 0) AND (NOT rsSupportUs.EOF)) 
%>
<%
strPageName = Replace (rsSupportUs.Fields.Item("SubMenuName").Value," ","-")
strPageName = Lcase(strPageName)
%>
<% IF (rsSupportUs.Fields.Item("SubMenuID").Value = "16") THEN %>
<li><a href="http://moneyformadagascar.blogspot.co.uk/p/appeals.html" target="new"><h3><%=(rsSupportUs.Fields.Item("SubMenuName").Value)%></h3></a></li>
<% ELSE %>
<li><a href="<% Response.Write(strPageName) %>.asp"><h3><%=(rsSupportUs.Fields.Item("SubMenuName").Value)%></h3></a></li>
<% END IF %>
<% 
SupportUs__index=SupportUs__index+1
SupportUs__numRows=SupportUs__numRows-1
rsSupportUs.MoveNext()
Wend
%>
</ul>
</div>
<!-- /SUPPORT US -->

<!-- LEARN MORE -->
<div id="5" style="display:<%=vis5%>;" class="subMenuRow">
<ul class="innerWidth">
<% 
While ((LearnMore__numRows <> 0) AND (NOT rsLearnMore.EOF)) 
%>
<%
strPageName = Replace (rsLearnMore.Fields.Item("SubMenuName").Value," ","-")
strPageName = Lcase(strPageName)
%>
<% IF (rsLearnMore.Fields.Item("SubMenuID").Value = "17") THEN %>
<li><a href="http://moneyformadagascar.blogspot.co.uk" target="new"><h3><%=(rsLearnMore.Fields.Item("SubMenuName").Value)%></h3></a></li>
<% ELSE %>
<li><a href="<% Response.Write(strPageName) %>.asp"><h3><%=(rsLearnMore.Fields.Item("SubMenuName").Value)%></h3></a></li>
<% END IF %>
<% 
LearnMore__index=LearnMore__index+1
LearnMore__numRows=LearnMore__numRows-1
rsLearnMore.MoveNext()
Wend
%>
</ul>
</div>
<!-- /LEARN MORE -->

我想我需要找到一种方法来检查相关的SubMenuID是否出现在内容表中，但我无法弄清楚如何。

非常感谢您的帮助和建议。

此致

铅

2 个答案:

答案 0 :(得分：1)

您发布的脚本中的首要问题是：您在哪里获得了Article__numRows变量的价值？

我确实在循环中看到你在做Article_ numRows = Article _numRows-1但是在你开始递减当前值大于-1的东西之前你应该把这个值设置为某个地方，如

Article__numRows = rsContent_numRows

但是根据你的脚本，所有行计数器变量都设置为0或-1，这将使任何循环变得潮湿，并且当你达到BOF或记录集（EOF）结束时不会停止。

答案 1 :(得分：0)

知道了。我将ContentID添加为LEFT JOIN并在SQL中添加GROUP BY语句，以确保SubMenuID仅显示一次。然后在NOT IFNULL语句中使用IF... THEN... ELSE。例如， SQL代码：

SELECT tblSubMenu.*, tblMainMenu.MainMenuName, tblContent.ContentID
FROM (tblSubMenu INNER JOIN tblMainMenu ON tblSubMenu.MainMenuID = tblMainMenu.MainMenuID) INNER JOIN tblContent ON tblSubMenu.SubMenuID = tblContent.SubMenuID
WHERE tblSubMenu.DisplayRecord = 1 AND tblSubMenu.MainMenuID = 3 GROUP BY tblSubMenu.SubMenuID
ORDER BY tblSubMenu.PositionNumber ASC

navbar.asp中的代码：

<!-- OUR PROJECTS -->
<div id="3" style="display:<%=vis3%>;" class="subMenuRow">
<ul class="innerWidth">
<% 
While ((OurProjects__numRows <> 0) AND (NOT rsOurProjects.EOF)) 
%>
<%
strPageName = Replace (rsOurProjects.Fields.Item("MainMenuName").Value," ","-")
strPageName = Lcase(strPageName)
%>
<% If NOT ISNULL (rsOurProjects.Fields.Item("ContentID").Value) Then %>
<li><a href="<% Response.Write(strPageName) %>.asp?idSMenu=<%=(rsOurProjects.Fields.Item("SubMenuID").Value)%>"><h3><%=(rsOurProjects.Fields.Item("SubMenuName").Value)%></h3></a></li>
<% End If %>
<% 
OurProjects__index=OurProjects__index+1
OurProjects__numRows=OurProjects__numRows-1
rsOurProjects.MoveNext()
Wend
%>
</ul>
</div>
<!-- /OUR PROJECTS -->

此致

铅

相关问题
最新问题