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

codigo PHP a codigo ASP

Estas en el tema de codigo PHP a codigo ASP en el foro de ASP Clásico en Foros del Web. Hola, tengo un codigo fuente en PHP pero lo quiero aplicar a ASP. He probado con alguno software y una pagina q pasa de PHP ...
  #1 (permalink)  
Antiguo 06/07/2004, 21:44
 
Fecha de Ingreso: enero-2003
Mensajes: 45
Antigüedad: 22 años, 3 meses
Puntos: 0
Pregunta codigo PHP a codigo ASP

Hola, tengo un codigo fuente en PHP pero lo quiero aplicar a ASP.
He probado con alguno software y una pagina q pasa de PHP a ASP, pero no anda.
Lo quiero utilizar para tomar algunas ofertas de deremate.com, es para un programa de afiliados.
Lo primero que hice fue buscar la siguiente funcion para tomar la URL argentina.deremate.com:
<%
Function TraeFuente(URL)
Set Fuente = Server.CreateObject("Microsoft.XMLHTTP")
Page = "http://" & URL
Fuente.Open "GET", Page, False
Fuente.Send
TraeFuente = "<xmp>" & Fuente.responseText & "</xmp>"
Set Fuente = Nothing
End Function
%>
luego cuando hago response.write(seguro que esta mal) de esto:
SourceCode = TraeFuente("argentina.deremate.com")

Ahora a ver si alguien me puede decir como es esto.
Cuando hago el response.write me muestra el codigo de la url pero no como codigo siino como texto.
Y quisiera saber si se puede tomar desde esa URL solo desde un punto, por ejemplo <!--DR_HomeV3_NavBar_Tbl--> hasta el final </!--DR_HomeV3_NavBar_Tbl-->.

El codigo que tengo esta en PHP pero necesitaria aplicarlo a ASP, ya que necesito esas funciones. Se los paso abajo
Saludos y gracias de antemano


php<?
$SiteID=5523730;
$idu=2764669;
switch ($_SERVER["HTTP_ACCEPT_LANGUAGE"]) {
case "es-mx":
$url1 = 'mexico.deremate.com';
break;
case "es-ar":
$url1 = 'argentina.deremate.com';
break;
case "es-cl":
$url1 = 'chile.deremate.com';
break;
case "es-ve":
$url1 = 'venezuela.deremate.com';
break;
case "es-co":
$url1 = 'www.deremate.com.co';
break;
case "pt-br":
$url1 = 'www.arremate.com.br';
break;
default:
$url1 = 'argentina.deremate.com';
break;
}
if(!($myFile=fopen("http://$url1","r")))
{
echo "Estamos realizando tareas de mantenimiento.";
exit;
}
while(!feof($myFile))
{
// Read each line and add to $myLine
$myLine.=fgets($myFile,4096);
}
fclose($myFile);
$start='<!-- Identificate -->';
$end="<!-- Fin Identificate -->";
$start_position=strpos($myLine, $start);
$end_position=strpos($myLine, $end)+strlen($end);
$length=$end_position-$start_position;
$myLine=substr($myLine, $start_position, $length);
$myLine=ereg_replace( 'src="/', 'src="http://'. $url1 .'/', $myLine );
$myLine=ereg_replace( 'background="/', 'background="http://'. $url1 .'/', $myLine );
$myLine=ereg_replace( 'src=/user/images/', 'src=http://'. $url1 .'/user/images/', $myLine );
$myLine=ereg_replace( 'href="/', 'href="http://'.$url1.'/Afiliados/Tracking.asp?SiteID='.$SiteID.'&idu='.$idu.'&UrlTo =http://'.$url1.'/', $myLine );
?>

<style type="text/css">
<!--
.snt {
font-family: Verdana, Arial, Helvetica, sans-serif;
font-size: 10px;
font-weight: lighter;
color: #CC6633;
}
.nbt {
font-family: Arial, Helvetica, sans-serif;
font-size: 12px;
color: #663399;
}
-->
</style>

<?
echo $myLine;
?>
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




La zona horaria es GMT -6. Ahora son las 07:45.