如何在主类别下显示子类别

Question

我需要一些关于经典 ASP 的帮助。目前，输出显示如下：

cat
south
cat
south
cat2
east
cat2
west

我不想看到主要类别那样重复。如何将主要类别合并为一个并在主要类别下方显示子类别？喜欢：

cat
south
south
cat2
east
west

Category table
ID   Category
------------
01  cat
02  cat2
03  cat3

Subcat table
ID   Subcat   Category_id
-------------------------
1   south     01
2   north     01
3   east      02
4   west      02
5   line      03

代码：

<%
sSQL =   " SELECT s.*, c.* FROM Category c, Subcat s WHERE s.Subcat_id =     c.Subcat_id "
  objRS.Open sSQL, objCon
  response.Write sSQL
  Do Until objRS.EOF
    sCategory = objRS("Category")
  sSubcat = objRS("Subcat")
%>
<input type="text" name="CategoryN" size="40" maxlength="50" value="<%=   sCategory %>"><br />
<input type="text" name="SubcatN" size="40" maxlength="50" value="<%= sSubcat %>"><br />
<%
objRS.MoveNext
Loop
objRS.Close
%>

非常感谢！

Answer 1

像这样：

<%
  currCat = "~~~~~~"
  sSQL = "SELECT s.*, c.* FROM Category c, Subcat s WHERE s.Subcat_id = c.Subcat_id "
  objRS.Open sSQL, objCon
  response.Write sSQL
  Do Until objRS.EOF
    sCategory = objRS("Category")
    sSubcat = objRS("Subcat")

    if currCat <> sCategory Then
       currCat = sCategory 
       <%
        <input type="text" name="CategoryN" size="40" 
         maxlength="50" value="<%=sCategory%>"><br />
       %>
    End If
    %>
      <input type="text" name="SubcatN" size="40" 
      maxlength="50" value="<%= sSubcat %>"><br />
<%
    objRS.MoveNext
  Loop

   objRS.Close
%>

如何在主类别下显示子类别

How to show sub categories under main category

vbscript

asp-classic