obtener salida html de un asp por ajax

[Asembler24]

Estimados, nuevamente concurro a su valiosa ayuda, estoy generando un informe que está en asp y me piden que ese informe tenga un script que genere el informe estático o sea un html, he probado con varias codigos con el cual estoy me genera el archivo con este còdigo

Código ASP:

<%
 
Dim objXML,strUrl
 
    strUrl = "http://192.168.2.64:82/oscar/alumnos_destacados.asp?IDCOL=10395449"
    'strUrl = "http://min.e-mat.cl/prgservidor/informefinal_test/inf3_2011.asp?codigocolegio=91765993"
'Set objXML = Servger.CreateObject ("Microsoft.XMLHTTP")
Set objXML = Server.CreateObject ("MSXML2.ServerXMLHTTP")
'Set objXML = Server.CreateObject ("MSXML2.XMLHTTP.3.0")
'Set objXML = Server.CreateObject ("MSXML2.XMLHTTP.4.0")
 
if Err then
Response.write "Error: " & Err.Description
end if
 
objXML.Open "GET", strURL, false, "", ""
objXML.send
 
if objXML.Status >= 400 and objXML.Status <= 599 then
Response.write "Error al obtener página: " & objXML.Status & " - " & objXML.statusText
else
ResponsePage = objXML.ResponseText
 
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.CreateTextFile(Server.Mappath("listado.htm"), False, 1)
 
Response.CodePage = 1252
Response.CharSet = "ISO-8859-1" 
 
f.Write ResponsePage
f.Close
set fso = Nothing
 
 
end if
 
Set objXML = Nothing 
 
%>
 

Este código me genera el archivo pero tiene un problema no me toma el css y ese es un problema grave que tengo, he escuchado que se puede hacer por ajax, por favor si fueran muy amables de indicarme si se pudiera hacer por ajax y sin perder los estilos css.

Gracias!

[maycolalvarez]

lo que veo es que estás usando el XmlHttpRequest pero del lado del servidor, de igual forma del lado del cliente no te tomará en cuenta el CSS, además de que si lo usas del lado del cliente (AJAX real) no podrás acceder a un dominio externo

¿que es lo que tratas de hacer, porque así como lo tienes ni javascript entra en escena?

[ocarrasco20]

Estimado maycolalvarez soy el mismo usuario de Asembler, gracias por responder, al final lo hizé en asp solo ocupé ajax para no sobrecargar el script, bueno te cuento ahora me pidieron no llamar al css mediante ruta de directorio, sino escanear el css copiarlo todo e insertarlo en el html del informe como podría hacerlo, sería en asp no JS.

Este es mi codigo:

Código ASP:

Response.AddHeader "Content-Type", "text/html; charset=iso-8859-1"
  
  
  Dim objXML, strUrl, objHTML, objCSS, strInforme
  
  Const ForReading = 1, ForWriting = 2 
  
  
  strUrl = "http://x.x.x.x.x/oscar/alumnos_destacados.asp?IDCOL=10395449"
    
    'Set objXML = Servger.CreateObject ("Microsoft.XMLHTTP")
    Set objXML = Server.CreateObject ("MSXML2.ServerXMLHTTP")
    'Set objXML = Server.CreateObject ("MSXML2.XMLHTTP.3.0")
    'Set objXML = Server.CreateObject ("MSXML2.XMLHTTP.4.0")
 
    If Err then
        Response.write "Error: " & Err.Description
    End if
 
    objXML.Open "GET", strURL, false, "", "" 
    objXML.send
 
    If objXML.Status >= 400 And objXML.Status <= 599 Then
        Response.write "Error al obtener página: " & objXML.Status & " - " & objXML.statusText
    Else
        ResponsePage = objXML.ResponseText
    End If
    strLink = "<link href=css/estilos_rep34.css rel=stylesheet type='text/css >"
    ResponsePage = Replace( ResponsePage, "Carga();", "" )
    ResponsePage = ResponsePage & Replace( ResponsePage, strLink, "")
    
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set f = fso.CreateTextFile(Server.Mappath(Request("intCodColegio") & ".html"), False, True)
    Response.AddHeader "Content-Type", "text/html; charset=iso-8859-1"
    f.Write ResponsePage
 
    f.Close
    Set objXML = Nothing
    
    If fso.FileExists(Server.Mappath("css/estilos_rep34.css") ) Then
 
        'Abro el css en modo lectura
        Set objCSS = fso.OpenTextFile( Server.Mappath("css/estilos_rep34.css"), ForReading, True)   
    
        If fso.FileExists( Server.Mappath( Request("intCodColegio") & ".html" ) ) Then
      
            strInforme = Request("intCodColegio") & ".html"
            
           'Abro el INFORME HTML en modo escritura  
            Set objHTML = fso.OpenTextFile( Server.Mappath( strInforme ), 8, True)
 
            'Abro el INFORME HTML en modo escritura
            'Set objHTMLL = fso.OpenTextFile( Server.Mappath( strInforme ), 1)  
            
            
            objHTML.WriteLine("<style type='text/css'>")
                
            If Not objCSS.AtEndOfStream Then 
                objHTML.WriteLine( objCSS.ReadAll() )
            Else
                objHTML.WriteLine("</style>")       
            End If
          
        End If
    
        objCSS.Close
        objHTML.Close
        set fso = Nothing
 
    End if 
 
%>
 

El tema es el siguiente deseo agregarlo no al final el css sino dentro del header, por favor ayudame con un codigo ejemplificando tal acción

Gracias

P.D: No entiendo porq se me dos veces el informe siendo que leo el css completo y no el informe HTML

[ocarrasco20]

ayuda por favor estimados colegas. gracias

[IsaBelM]

Iniciado por maycolalvarez

lo que veo es que estás usando el XmlHttpRequest pero del lado del servidor, de igual forma del lado del cliente no te tomará en cuenta el CSS, además de que si lo usas del lado del cliente (AJAX real) no podrás acceder a un dominio externo

¿que es lo que tratas de hacer, porque así como lo tienes ni javascript entra en escena?

maycol no es ajax. es la función que usarías en php file_get_content(), creo recordar que es

ocarrasco20, pide que te muevan el tema al foro de asp

[ocarrasco20]

Iniciado por IsaBelM

maycol no es ajax. es la función que usarías en php file_get_content(), creo recordar que es

ocarrasco20, pide que te muevan el tema al foro de asp

¿Como hago para pedir que muevan el tema a asp?

[maycolalvarez]

Iniciado por ocarrasco20

¿Como hago para pedir que muevan el tema a asp?

al lado de cada post, debajo de tu nickname aparece el icono para reportar, ya lo he reportado, saludos y espero que consigas la solución

[ocarrasco20]

Estimados aclaro el post para que me entiendan mejor, necesito editar un informe previamente obtenido con la libreria MSXML2.ServerXMLHTTP, el asunto es que necesito leer un css que está en el informe como:

Código HTML:

<link href="css/estilos_rep34.css" rel="stylesheet" type="text/css" />
 

y en vez de llamarlo así tomar el css que está externo y pegar el código en el informe, para ejemplificación así sería:

Código HTML:

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" /> 
<title>Informe Intermedio eMAT 3-4</title>
<style type='text/css'>
 
body {
    font-family:Verdana, Geneva, sans-serif;
}
 
p {
    margin:3px; 
}
 
.bg_top {
    background-image:url(../img/bg_top.gif);
    background-repeat:repeat-x;
    height: 79px;
    
}
.titulo_top {
    color:#4d4d4d;
    font-size:18px;
    font-weight:bold;
    margin-left:20px;
    width:700px;
    height:20px;
    
}
</style>
 

Gracias.

[ocarrasco20]

Estimados encontré la solución del tema css agradeciendo su ayuda a los que postearon sobre el tema.