Avatar billede SilenceWar Nybegynder
25. marts 2010 - 19:39 Der er 5 kommentarer og
1 løsning

Oversæt PHP til ASP

Hejsa Eksperter!

Jeg har brug for lidt ekspertise. Jeg har sat i nogle timer nu for, at søge og finde noget vigtigt til min hjemmeside.
Jeg har fundet en kode.. dog koder jeg ASP og koden jeg har fundet er PHP.
Nogen herinde der kan hjælpe med en oversættelse?

Hilsen
SilenceWar aka Benjamin Kock

- Håber der er en venlig sjæl der gerne vil oversætte koden her til 115 point for jeg har ikke mere.. :s 



<?php

set_time_limit(10800);

        for($y=40;$y>=1;$y--)
        {
                for($x=1;$x<=40;$x++)
                {
                        require_once('includes/db/DbConnector.php');
                        $connector = new DbConnector();
                        $result = $connector->query('SELECT * FROM harta WHERE x = "'.$x.'" AND y = "'.$y.'" ');
                        while($row = $connector->fetchArray($result))

                        echo '<img src="images/harta/lan_'.$row['tip'].$row['subtip'].'.gif" title="('.$row['x'].'|'.$row['y'].')" style="float: left;margin: 0;padding:0;">';
                }
        }

?>
Avatar billede arne_v Ekspert
25. marts 2010 - 19:45 #1
Hvad er konkret problemet?

De 2 for loekker bliver ogsaa til for loekker i ASP bare med en lidt anden syntax.

Du skal saa have lavet en database connection, udfoert en query og processe alle raekker - hvilket er helt standard ADODB.

echo -> Response.Write.
Avatar billede SilenceWar Nybegynder
25. marts 2010 - 20:01 #2
Sådan noget som $-tegn benyttes da ikke i ASP.
Hvilke syntaxer skal der bruges? Det er sådan set det der er problemet og da det "kun" er det håbede jeg på 100 point var nok. :)
Så jeg kan sætte det direkte ind i resten af min kode.
Avatar billede arne_v Ekspert
25. marts 2010 - 20:36 #3
Utestet;

For y = 40 To 1 Step -1
  For x = 1 To 40
      Set con = Server.CreateObject("ADODB.Connection")
      con.Open "<<indsaet din connection string her>>"
      Set rs = Server.CreateObject("ADODB.Recordset")
      rs.Open "SELECT * FROM harta WHERE x = '" & x & "' AND y = '" & y & "'",con
      Do While Not rs.EOF
        Response.Write "<img src=""images/harta/lan_" & rs("tip") & rs("subtip") & ".gif"" title=""(" & rs("x") & "|" & rs("y") & ")"" style="float: left;margin: 0;padding:0;"">"
        rs.MoveNext
      Loop
      Set rs = Nothing
      Set con = Nothing
  Next
Next
Avatar billede arne_v Ekspert
25. marts 2010 - 20:37 #4
Jeg har nok misset en double quote eller to, men hvis du kan lidt ASP boer du nemt kunne faa det til at virke.
Avatar billede SilenceWar Nybegynder
25. marts 2010 - 21:18 #5
Tak for hjælpen - lidt et svar og du får point.
Avatar billede arne_v Ekspert
25. marts 2010 - 21:21 #6
svar
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
Kurser inden for grundlæggende programmering

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.

Du kan også logge ind via nedenstående tjenester