Ayuda a convertir codigo PHP en ASP

[kire94]

Saludos.

Tengo un codigo para hacer unos combobox dependientes con AJAX y PHP, pero yo necesito tenerlo en ASP, ya converti una de las paginas PHP y funciona; pero necesito otra pagina en la cual contiene mas codigo y sintaxis que la que yo converti, por ello me hes mas dificil convertirlo a ASP. Lo intente pero no me funciona, abajo pongo el codigo por si alguien me puede ayudar:

Código PHP:

  <?php 
// Array que vincula los IDs de los selects declarados en el HTML con el nombre de la tabla donde se encuentra su contenido 
$listadoSelects=array( 
"paises"=>"lista_paises", 
"estados"=>"lista_estados" 
); 
 
function validaSelect($selectDestino) 
{ 
    // Se valida que el select enviado via GET exista 
    global $listadoSelects; 
    if(isset($listadoSelects[$selectDestino])) return true; 
    else return false; 
} 
 
function validaOpcion($opcionSeleccionada) 
{ 
    // Se valida que la opcion seleccionada por el usuario en el select tenga un valor numerico 
    if(is_numeric($opcionSeleccionada)) return true; 
    else return false; 
} 
 
$selectDestino=$_GET["select"]; $opcionSeleccionada=$_GET["opcion"]; 
 
if(validaSelect($selectDestino) && validaOpcion($opcionSeleccionada)) 
{ 
    $tabla=$listadoSelects[$selectDestino]; 
    include 'conexion.php'; 
    conectar(); 
    $consulta=mysql_query("SELECT id, opcion FROM $tabla WHERE relacion='$opcionSeleccionada'") or die(mysql_error()); 
    desconectar(); 
     
    // Comienzo a imprimir el select 
    echo "<select name='".$selectDestino."' id='".$selectDestino."' onChange='cargaContenido(this.id)'>"; 
    echo "<option value='0'>Elige</option>"; 
    while($registro=mysql_fetch_row($consulta)) 
    { 
        // Convierto los caracteres conflictivos a sus entidades HTML correspondientes para su correcta visualizacion 
        $registro[1]=htmlentities($registro[1]); 
        // Imprimo las opciones del select 
        echo "<option value='".$registro[0]."'>".$registro[1]."</option>"; 
    }             
    echo "</select>"; 
} 
?>   

[JuanRAPerez]

hola kire94, ya alguien hizo eso, utiliza el buscador y lo encontraras, si encuentro el enlace en mi bookmarks te lo paso

suerte

[tammander]

Hola :)

Código:

<%
    Dim listadoSelects
    set listadoSelects = server.CreateObject("Scripting.Dictionary")
    listadoSelects.add "paises", "lista_paises"
    listadoSelects.add "estados", "lista_estados"

function validaSelect(selectDestino)    
    ' Se valida que el select enviado via GET exista
    ' listadoSelects es una variable de nivel de secuencia de comandos
    validaSelect = listadoSelects.exists(selectDestino)
end function

function validaOpcion(opcionSeleccionada)

    ' Se valida que la opcion seleccionada por el usuario en el select tenga un valor numerico
    validaOpcion = isnumeric(opcionSeleccionada))
end function

Dim selectDestino, opcionSeleccionada
Dim tabla, consultaLimpio
Dim consulta 

selectDestino=request.QueryString("select")
opcionSeleccionada=request.QueryString("opcion")

if validaSelect(selectDestino) And validaOpcion(opcionSeleccionada) then

    tabla=listadoSelects.Item(selectDestino);
<!--#include file="conexion.asp"-->
    on error resume next
    conectar()
    ' Se supone que en el archivo conexion.asp hay un objeto Connection --> conn
    set consulta = server.CreateObject("ADODB.Recordset")
    set consulta = conn.execute("SELECT id, opcion FROM " & tabla & " WHERE relacion='" & opcionSeleccionada & "'")
    if err <> 0 then
        response.Write(err.description)
        response.End()
    end if
    on error goto 0

    ' Comienzo a imprimir el select
    response.Write("<select name='" & selectDestino & "' id='" & selectDestino & "' onChange='cargaContenido(this.id)'>")
    response.Write("<option value='0'>Elige</option>")
    do while not consulta.EOF
    
        ' Convierto los caracteres conflictivos a sus entidades HTML correspondientes para su correcta visualizacion
        consultaLimpio=Server.HTMLEncode(consulta(1))
        ' Imprimo las opciones del select
        response.Write("<option value='" & consulta(0) & "'>" & consultaLimpio & "</option>")
        consulta.moveNext()
    loop
    response.Write("</select>")

    conectar.close()
    set conectar = nothing
    desconectar()
end if

set listadoSelects = nothing
%>

Una página muy interesante para estas cosas:

Conversor de Funciones


Un saludo

[dobled]

alguien tiene este codigo completo en ASP?

[orochimaru15081986]

hola a todos/as

tengo un problemilla con un programa en PHP que trata de un sudoku con opcion de resolver o de inicializar que tengo que pasar a ASP. el programa me funciona en principio pero no me resuelve cuando pulso el boton de resolver,os pongo el codigo por si alguien me pudiera ayudar a terminar el programa.

un saludo y gracias

codigo:

<%
'dim tablero
'dim sudoku
'dim i,j,x,y
%>
<html>
<head>
<title>SUDOKU DE MIGUEL</title>
</head>
<body>
<%
tablero = request.form("tablero")
sudoku = request.form("sudoku")

tablero = sudoku

function visualizar_form()
%>
<form action="sudoku2.asp" method="post">
<table>
<%for i = 0 to 8 %>
<tr>
<%for j = 0 to 8%>
<td>
<input type='text' size='1' maxlength='1' name='sudoku(" & "<%=i%>" & "," & "<%=j%>" & ")' value='0'>
</td>
<%next%>
</tr>
<%next%>
</table>
<input type='submit' name='boton' value='resolver'>
<input type='submit' name='boton' value='limpiar'>
</form>
<%
end function

function imprimir_sudoku()
for x = 0 to 8
for y = 0 to 8
response.write request.form("sudoku(x,y)")
next%>
<br>
<% next %>
<br>

<%
end function

function inicializar(x,y)
'dim a,b
a = x
b = y + 1

do while a < 9
if request.form("tablero(a,b)") = 0 then
request.form("sudoku(a,b)") = 0
b = b + 1
END IF
if b > 8 then
b = 0
a = a + 1
end if
loop
end function


function comprobar(x,y)
'dim correcto,a,b,contador

correcto = 1

for a = 1 to 9 and correcto
contador = 0
for b = 0 to 8 and correcto
if request.form("sudoku(x,b))") <> 0 then
if request.form("sudoku(x,b)") = a then
contador = contador + 1
end if
end if
next
if contador > 1 then
correcto = 0
end if
next

retorno = correcto

if correcto then
for a = 1 to 9 and correcto
contador = 0
for b = 0 to 8 and correcto
if request.form("sudoku(b,y)") <> 0 then
if request.form("sudoku(b,y)") = a then
contador = contador + 1
end if
end if
next
if contador > 1 then
correcto = 0
end if
next
retorno = correcto
end if

if correcto then
for a = 1 to 9 and correcto
x2 = (x-(x mod 3))
y2 = (y-(y mod 3))
contador = 0
for b = x2 to (x2+3)-1
for c = y2 to (y2+3)-1
if request.form("sudoku(b,c)") <> 0 then
if request.form("sudoku(b,c)") = a then
contador = contador + 1
end if
end if
next
next
if contador > 1 then
correcto = 0
end if
next
retorno = correcto
end if
comprobar = retorno
end function

function resolver_sudoku(x,y)
if y > 8 then
y = 0
x = x + 1
end if
do while x < 9 and request.form("tablero(x,y)") <> 0
y = y + 1
if y > 8 then
y = 0
x = x + 1
end if
loop

if x = 9 then
if (not comprobar(8,8)) then
response.write "sin solucion"
response.write("<br>")
end if
response.write (visualizar_form())
request.form("sudoku") = ""
request.form("tablero") = ""
RESPONSE.END

else
for a = 1 to 9
response.write (inicializar(x,y))
request.form("sudoku(x,y)") = a
correcto = comprobar(x,y)
if correcto then
response.write (resolver_sudoku(x,y+1))
else
request.form("sudoku(x,y)") = 0
end if
next
end if

end function
%>

<%
correcto = 1
for x = 0 to 8 and correcto
for y = 0 to 8 and correcto
correcto = comprobar(x,y)
next
NEXT

if boton = "resolver" then
if correcto then
response.write (resolver_sudoku(0,0))
else
response.write "datos de entrada incorrectos"
end if
end if

if boton = "limpiar" then
unset(sudoku)
unset(tablero)
end if

response.write (visualizar_form())



%>

</body>
</html>