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

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