Hur skulle man kunna optimera denna kod så att den blir ännu mer snabbladdad?
SQL = "SELECT * FROM members order by minonline desc"
Set RecSet = Connect.Execute(SQL)
If not RecSet.EOF then
strDatat = RecSet.GetRows()
End if
Set RecSet = nothing
IF ISArray(strDatat) THEN
FOR i = 0 to 4
response.write "<font color='#006600'><b>"&i+1&".</b></font> "
If strDatat(26,i) = "polis" Then
response.write "<img src='bilder/idpolis.gif'>"
ElseIf strDatat(26,i) = "pojke" Then
response.write "<img src='bilder/idpojke.gif'>"
Else
response.write "<img src='bilder/idflicka.gif'>"
End If
response.write " <a title='"&strDatat(1,i)&" bor i "&strDatat(5,i)&".' href='krypin.asp?id="&strDatat(0,i)&"'>"
username = strDatat(1,i)
If Len(username) > 7 then
strusername = Left(username,7)
response.write ""&strusername&"."
else
response.write username
End If
response.write "</a> <font color='#666666'>("&strDatat(22,i)&")</font>"
response.write "<br>"
Next
end if
Palleman:
Den ska man vara väldigt säker på att man alltid har data innan man kör.
En liten optimering som kan göras är att ta bort if-satsen polis, pojke eller annat till Select Case:
Select Case LCase(strDatat(26,i))
Case "polis"
response.write "<img src='bilder/idpolis.gif'>"
Case "pojke"
response.write "<img src='bilder/idpojke.gif'>"
Case Else
response.write "<img src='bilder/idflicka.gif'>"
End Select
Select Case LCase(strDatat(26,i))
Case "polis","pojke"
response.write "<img src='bilder/id" & LCase(strDatat(26,i)) & ".gif'>"
Case Else
response.write "<img src='bilder/idflicka.gif'>"
End Select
Eller om det ALLTID står "flicka" i db:n om det inte är polis eller pojke, för då räcker det ju med:
username = strDatat(1,i)
If Len(username) > 7 then
strusername = Left(username,7)
response.write ""&strusername&"."
else
response.write username
End If
Kan väl lika gärna ersättas med:
response.write Left(Len(strDatat(1,i)),7)
...lite osäker iofs...
260 ms totalt · 4 externa anrop · v20260731065814-full.86ec41c2
