webForumDet fria alternativet
Logga in / Bli medlem

Förbättra dessa loppar?

ASP

2 svar · 230 visningar · startad av Bosse168

Bosse168Medlem sedan nov. 20031 018 inlägg
Frågan#1

Denna koden funkar men tycker den verkar klumpig.
Några förslag på hur man kan förbättra den?

'###################### Plockar ut dom snyggaste Tjejerna ###########

Set Rs2 = Connect.Execute("SELECT snygg_snitt,username,kon FROM members WHERE bild_godkand=1 AND kon=0 AND snygg_visa=1 AND bild_datum < SUBDATE(current_date,INTERVAL 4 DAY) Order By snygg_snitt Desc LIMIT 10")

'####Topplist koppling#####

Do Until Rs2.EOF

Connect.Execute("INSERT INTO top_snygg (vecka, datum, snitt, namn, sex) VALUES('"& week &"',Now(),'"& Rs2(0) &"', '"& Rs2(1) &"', '"& Rs2(2) &"')"),,128

Rs2.MoveNext
Loop
Rs2.Close : Set Rs2 = Nothing

'############### Plockar ut dom snyggaste Killarna ##############

Set Rs2 = Connect.Execute("SELECT snygg_snitt,username,kon FROM members WHERE bild_godkand=1 AND kon=1 AND snygg_visa=1 AND bild_datum < SUBDATE(current_date,INTERVAL 4 DAY) Order By snygg_snitt Desc LIMIT 10")

Do Until Rs2.EOF

Connect.Execute("INSERT INTO top_snygg (vecka, datum, snitt, namn, sex) VALUES('"& week &"',Now(),'"& Rs2(0) &"', '"& Rs2(1) &"', '"& Rs2(2) &"')"),,128

Rs2.MoveNext
Loop
Rs2.Close : Set Rs2 = Nothing

'######################  Slut Snyggaste  #####################
nitro2k01s avatarnitro2k01Medlem sedan aug. 20039 340 inlägg
#2

Re: Förbättra dessa loppar?

' #### Plockar ut dom snyggaste Tjejerna
Set Rs2 = Connect.Execute("SELECT snygg_snitt,username,kon FROM members WHERE bild_godkand=1 AND kon=0 AND snygg_visa=1 AND bild_datum < SUBDATE(current_date,INTERVAL 4 DAY) Order By snygg_snitt Desc LIMIT 10")

'#### Topplistekoppling
Do Until Rs2.EOF

    Connect.Execute("INSERT INTO top_snygg (vecka, datum, snitt, namn, sex) VALUES('"& week &"',Now(),'"& Rs2(0) &"', '"& Rs2(1) &"', '"& Rs2(2) &"')"),,128
    Rs2.MoveNext
Loop

Rs2.Close

'#### Plockar ut dom snyggaste Killarna
Set Rs2 = Connect.Execute("SELECT snygg_snitt,username,kon FROM members WHERE bild_godkand=1 AND kon=1 AND snygg_visa=1 AND bild_datum < SUBDATE(current_date,INTERVAL 4 DAY) Order By snygg_snitt Desc LIMIT 10")

'#### Topplistekoppling
Do Until Rs2.EOF
    Connect.Execute("INSERT INTO top_snygg (vecka, datum, snitt, namn, sex) VALUES('"& week &"',Now(),'"& Rs2(0) &"', '"& Rs2(1) &"', '"& Rs2(2) &"')"),,128
    Rs2.MoveNext
Loop
Rs2.Close : Set Rs2 = Nothing

'#### Slut Snyggaste

Koden verkar ganska vettig. Det enda jag kände spontant att man kan plocka bort är den första Set Rs2 = Nothing
Däremot har jag ändrat lite på intendering och upplägg av koden så att den blir mer lättläslig och snyggare. (Men jag har däremot inte ändrat kodens funktion på något sätt förutom den första Set Rs2 = Nothing som jag sa.)

Kommer det här från snyggast.se? :)

Bosse168Medlem sedan nov. 20031 018 inlägg
#3

Nej http://www.skene.nu

254 ms totalt · 4 externa anrop · v20260731065814-full.a51de22e
125 ms — deklarationer (db)
0 ms — hämta statistik (cache)
126 ms — hämta tråd, inlägg och bilagor (db)
123 ms — ändringar (db)