Foros del Web » Programando para Internet » ASP Clásico »

Ayuda a convertir codigo PHP en ASP

Estas en el tema de Ayuda a convertir codigo PHP en ASP en el foro de ASP Clásico en Foros del Web. 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 ...
  #1 (permalink)  
Antiguo 27/06/2007, 13:28
 
Fecha de Ingreso: enero-2006
Mensajes: 169
Antigüedad: 18 años, 4 meses
Puntos: 0
Ayuda a convertir codigo PHP en ASP

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>";
}
?>
__________________
"La adulación es una moneda que empobrece al que la recibe"
  #2 (permalink)  
Antiguo 27/06/2007, 14:15
Avatar de JuanRAPerez
Colaborador
 
Fecha de Ingreso: octubre-2003
Mensajes: 2.393
Antigüedad: 20 años, 7 meses
Puntos: 27
Re: Ayuda a convertir codigo PHP en ASP

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

suerte
__________________
JuanRa Pérez
San Salvador, El Salvador
  #3 (permalink)  
Antiguo 28/06/2007, 01:55
 
Fecha de Ingreso: enero-2006
Ubicación: Torroles (Costa der Só)
Mensajes: 1.017
Antigüedad: 18 años, 5 meses
Puntos: 7
Re: Ayuda a convertir codigo PHP en ASP

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
__________________
"Tus pecados son el estiércol sobre el que florecerán las flores de tus virtudes" - Gerald Messadié -
  #4 (permalink)  
Antiguo 12/07/2007, 10:35
Avatar de dobled  
Fecha de Ingreso: enero-2002
Ubicación: Rancagua - Chile
Mensajes: 1.328
Antigüedad: 22 años, 4 meses
Puntos: 2
Re: Ayuda a convertir codigo PHP en ASP

alguien tiene este codigo completo en ASP?
__________________
Usa títulos específicos y con sentido
En las listas de correo o en los grupos de noticias, la cabecera del mensaje es tu oportunidad de oro para atraer la atención de expertos cualificados en aproximadamente 50 caracteres o menos. No los desperdicies en balbuceos como "Por favor ayúdame" (de "POR FAVOR AYÚDAME!!!" ya ni hablamos). No intentes impresionarnos con lo profundo de tu angustia; mejor usa ese preciado espacio para una descripción lo más concisa posible del problema.
  #5 (permalink)  
Antiguo 29/02/2008, 11:05
 
Fecha de Ingreso: febrero-2008
Mensajes: 2
Antigüedad: 16 años, 3 meses
Puntos: 0
Re: Ayuda a convertir codigo PHP en ASP

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>
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta

SíEste tema le ha gustado a 1 personas




La zona horaria es GMT -6. Ahora son las 16:32.