ASP-Skript Postion/Rang basierend auf Summen

Question

Der Code funktioniert in einer Weise, aber wenn R1Tots in einem Unentschieden sind möchte ich die R1Tie dieses

<% 
Dim R1Tie 
Dim R1Tots 
R1Tots = (TLLB.Fields.Item("TotalSc").Value) 
R1Tie = record.count 
If R1Tots = R1Tots Then 
R1Tie = R1Tie + 1 
end if 
%> 

<%= R1Tie %> 

Beispiel reflektieren von Ich brauche es aussehen wie

::Pos:: ::Name:: ::TotalScore:: 
:: 1 :: ::Joe :: ::100:: 
:: 2 :: ::Jane:: ::90:: 
:: 2 :: ::Jeff:: ::90:: 
:: 4 :: ::Chip:: ::80:: 
:: 5 :: :: Jeb:: ::75:: 

Answer 1

Dies kann nicht sowohl Classic ASP und ASP.net sein. Ich nehme an, es ist Classic ASP mit VBScript statt ASP.net mit VB.net.

Vermutlich befindet sich der von Ihnen bereitgestellte Code in einer Schleife, die jedes Ergebnis iteriert. Ich denke, was Sie tun müssen, ist 1 zum Wert der Position jeder Schleife hinzuzufügen, dann subtrahieren Sie 1 vom angezeigten Wert, wenn es eine Gleichheit gibt. Ich würde dies tun:

dim R1Position, R1Totalscore 
R1Position = 0 

do while not rs.eof 
R1Position = (R1Position + 1) 
If rs("TotalSc") = R1Totalscore then 
    Response.write (R1Position - 1) & ":: ::" & rs("name") & ":: ::" & rs("TotalSc") & "::<br>" 
Else 
    Response.write R1Position & ":: ::" & rs("name") & ":: ::" & rs("TotalSc") & "::<br>" 
End If 
rs("TotalSc") = R1Totalscore 
rs.movenext 
loop 

Beachten Sie, dass die letzte Zeile in der Schleife den aktuellen Wert von rs zuordnet („totalsc“) zu R1Totalscore, für diesen Wert, um auf den neuen Wert in den nächsten verglichen werden Iteration der Schleife.

Ich weiß, das wird nicht funktionieren, wenn jeder eine Punktzahl von Null hat. Ich gehe davon aus, dass dies kein Szenario ist, um das wir uns Sorgen machen müssen.