Søg
Avatar billede Slettet bruger
10. februar 2001 - 01:16 Der er 12 kommentarer og
2 løsninger

Jeg fatter virkelig ikke det her

Hvorfor laver denne kode:



<%

Dim pixel

Dim billede(14)
    billede(0)=\"pics/image1.gif\"
    billede(1)=\"pics/image2.gif\"
    billede(2)=\"pics/image3.gif\"
    billede(3)=\"pics/image4.gif\"
    billede(4)=\"pics/image5.gif\"
    billede(5)=\"pics/image6.gif\"
    billede(6)=\"pics/image7.gif\"
    billede(7)=\"pics/image8.gif\"
    billede(8)=\"pics/image9.gif\"
    billede(9)=\"pics/image10.gif\"
    billede(10)=\"pics/image11.gif\"
    billede(11)=\"pics/image12.gif\"
    billede(12)=\"pics/image13.gif\"
    billede(13)=\"pics/image14.gif\"
    billede(14)=\"pics/image15.gif\"

Dim bogstav(4)
    bogstav(0)=\"F\"
    bogstav(1)=\"A\"
    bogstav(2)=\"B\"
    bogstav(3)=\"U\"
    bogstav(4)=\"L\"


Function randimg
    Randomize
    randimg = Response.Write(\"<td><img src=\'\" & billede((Int(Rnd * 15))) & \"\' height=\'15\' width=\'15\'></td>\")
End Function

For i = 0 To 4
    Select Case bogstav(i)
        Case \"A\"
            Response.Write(\"<table><tr><td>\" & randimg & \"</td><td>\" & randimg & \"</td><td>\" & randimg & \"</td><td>\" & randimg & \"</td><td>\" & randimg & \"</td></tr></table>\")

End Select
Next


%>


...dette output?



<td><img src=\'pics/image9.gif\' height=\'15\' width=\'15\'></td><td><img src=\'pics/image8.gif\' height=\'15\' width=\'15\'></td><td><img src=\'pics/image5.gif\' height=\'15\' width=\'15\'></td><td><img src=\'pics/image11.gif\' height=\'15\' width=\'15\'></td><td><img src=\'pics/image8.gif\' height=\'15\' width=\'15\'></td><table><tr><td></td><td></td><td></td><td></td><td></td></tr></table>


Jeg fatter det virkelig ikke. Det er for sort. Nogen der kan hjælpe?
Avatar billede Slettet bruger
10. februar 2001 - 01:19 #1
Det der \"Dim pixel\" skal i lige se bort fra. Det er noget jeg har glemt at slette. Skulle dog ikke påvirke noget.
Avatar billede Slettet bruger
10. februar 2001 - 01:20 #2
En tilføjelse mere. Koden virker fint. Kommer ikke med fejl, men \"><table><tr><td></td><td></td><td></td><td></td><td></td></tr></table>\" Står bare til sidst, når det burde være flettet pænt ind i outputtet.
Avatar billede tdaugaard Nybegynder
10. februar 2001 - 01:21 #3
Jeg aner ikke svare på dit spørgsmål, men jeg kan se at du unødigt bruger et array til billednavnene .. sådan her burde din kode se ud:

<%

Dim pixel

Dim bogstav(4)
    bogstav(0)=\"F\"
    bogstav(1)=\"A\"
    bogstav(2)=\"B\"
    bogstav(3)=\"U\"
    bogstav(4)=\"L\"


Function randimg
    Randomize
    randimg = Response.Write(\"<td><img src=\'pics/image\" & Int(Rnd * 15) & \".gif\' height=\'15\' width=\'15\'></td>\")
End Function

For i = 0 To 4
    Select Case bogstav(i)
        Case \"A\"
            Response.Write(\"<table><tr><td>\" & randimg & \"</td><td>\" & randimg & \"</td><td>\" & randimg & \"</td><td>\" & randimg & \"</td><td>\" & randimg & \"</td></tr></table>\")

End Select
Next


%>
Avatar billede tdaugaard Nybegynder
10. februar 2001 - 01:23 #4
En anden ting, \"Randomize\" skal IKKE stå i funktionen da den ikke skal udføres ved hvert kald, men kun en gang.

Så det skal se sådan ud:

<%

Dim pixel

Dim bogstav(4)
    bogstav(0)=\"F\"
    bogstav(1)=\"A\"
    bogstav(2)=\"B\"
    bogstav(3)=\"U\"
    bogstav(4)=\"L\"


    Randomize
Function randimg
    randimg = Response.Write(\"<td><img src=\'pics/image\" & Int(Rnd * 15) & \".gif\' height=\'15\' width=\'15\'></td>\")
End Function

For i = 0 To 4
    Select Case bogstav(i)
        Case \"A\"
            Response.Write(\"<table><tr><td>\" & randimg & \"</td><td>\" & randimg & \"</td><td>\" & randimg & \"</td><td>\" & randimg & \"</td><td>\" & randimg & \"</td></tr></table>\")
    End Select
Next
%>
Avatar billede Slettet bruger
10. februar 2001 - 01:24 #5
Jeg er jordens ringeste koder. Det kan jeg udemærket se nu. Dummeslag til mig. Tror jeg skal poste under et andet navn på eksperten når jeg skal have hjælp til ASP, for tænk hvis min kommende arbejdsgiver engang for gravet det her smuds frem.

Anyways, det burde jo ikke påvirke at min kode laver det underlige output som den gør.
Avatar billede tdaugaard Nybegynder
10. februar 2001 - 01:25 #6
Og Int(Rnd * 15) skal nok være Int(Rnd * 14) da du kun har 14 index\'es i dit array.
Det kan være det der er fejlen...
Avatar billede tdaugaard Nybegynder
10. februar 2001 - 01:26 #7
zalkalin:> *S* vi har alle sammen være dårlige engang .. jeg er HELT sikker på at du kan grave noget skod kode frem der er postet under mit brugernavn *G*
Avatar billede Slettet bruger
10. februar 2001 - 01:28 #8
tdaygaard -> Nixen. Det er ikke det. Har lige prøvet. Giver samme resultat.
Avatar billede Slettet bruger
10. februar 2001 - 01:31 #9
Response.Write starter jo med at sige at der skal skrives \"<table>\", men alligevel kommer table tagget først langt senere i det output der bliver spyttet ud. Outputtet starter jo med <td>.

Det er for sort.
Avatar billede brain Nybegynder
10. februar 2001 - 01:32 #10
Hele dit problem består i at du lader funktionen randimg returnere returværdien fra Response.Write, istedet for bare strengen...

Funktionen skal se således ud, så virker det sikkert som det skal, kombineret med tdaugaards kode...

Function randimg
    randimg = \"<td><img src=\'pics/image\" & Int(Rnd * 15) & \".gif\' height=\'15\' width=\'15\'></td>\"
End Function


/Jesper

Avatar billede Slettet bruger
10. februar 2001 - 01:37 #11
<tak>brain og tdaugaard</tak>
Avatar billede tdaugaard Nybegynder
10. februar 2001 - 01:37 #12
brain:> DAMN!! jeg havde LIGE set det da lavede en Server.HTMLEncode() i For..Next løkken og jeg stadig fik HTML frem til billederne....
Avatar billede tdaugaard Nybegynder
10. februar 2001 - 01:38 #13
<så lidt>No problemos ;-)</så lidt>

Avatar billede brain Nybegynder
10. februar 2001 - 01:41 #14
zalkalin > no probs...

thomas > *G*
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Programmeringssprog kurser
Kurser inden for grundlæggende programmering
Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel Indlæg Oprettet Seneste aktivitet
ASP classic kopiere database fil på server Af bsn i ASP 7 31/10/202610:20 01/11/202620:28
Persits.Upload Af bsn i ASP 9 17/09/202611:37 21/09/202615:15
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP 10 25/06/202622:20 04/09/202602:30
Tjek alle checkbox i form Af bsn i ASP 4 18/05/202601:57 19/05/202613:33
Lost focus Af bsn i ASP 1 07/11/202415:34 01/01/202514:58
Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I dag 08:39 Produktnøgle Af hkv i Office & Kontorpakker
I går 16:59 Bitlocker Af nico i Windows
12/1116:30 Wlan i windows 11 home Af dcedata1977 i Windows
11/1121:19 Irriterende ikon på proceslinjen Af ErikHg i Windows
11/1116:33 Kan man slippe af med "msn" ? Af Ikke-ekspert i Windows
White papers
Flere white papers »