如何对分组列表中的子项目进行编号

Question

我正在使用经典的asp。我必须要桌子。第一个表称为“sorutip”，包含每个组的图块。名为“Questions41”的第二个表有问题。我想从 1 开始对每个组进行编号，如下例所示。

填补空白。

1-........................
2- .......
3-…………
4-…………

回答问题

1-……？
2- .......？
3-......？
4-......？
5-...?
6-……？

将句子按正确顺序排列

1-.....
2- .......
3- ....
4-......

我的代码在这里

Set oRS= conn.Execute("SELECT  DISTINCT(questions41.tid),sorutip.tid,sorutip.title, questions41.question FROM questions41 LEFT JOIN sorutip ON questions41.tid=sorutip.tid  GROUP BY questions41.tid,sorutip.tid,sorutip.title,questions41.question") 

Dim title2, previousGroupName
title2 = ""
previousGroupName = ""


Do Until oRS.EOF
    title2 = oRS("title")
    question= oRS("question")
    If title2<>previousGroupName Then
        Response.Write("<p>")
       Response.Write(oRS("title"))
        Response.Write("</p>")
    End If
 

number=number+1

Response.Write(" "&  number &"- " & question & "<br />")
    previousGroupName = title2

    oRS.MoveNext
Loop
oRS.Close

Answer 1

您只需在开始新群组时重置

number

If title2<>previousGroupName Then 
    Response.Write("<p>")
    Response.Write(oRS("title"))
    Response.Write("</p>")
    number = 0
End If