[ASP] Trasformare in htm

paocavo

...
Se qui interrompo il tutto e faccio una response.write di strHtml và tutto bene, a parte alcuni caratteri che mi interpreta male ma che risolvero' dopo, il problema nasce quando tento di salvare la pagina con FSO come sotto:...

Il problema sta proprio nei "caratteri che mi interpreta male...", quei caratteri "sballati" quando passano all'oggetto FSO generano un errore perchè non sono ammessi nei nomi di file.

Prova a usare la seguente funzione di decodifica dell'URL:


    Function URLDecode(str) 
        str = Replace(str, "+", " ") 
        For i = 1 To Len(str) 
            sT = Mid(str, i, 1) 
            If sT = "%" Then 
                If i+2 < Len(str) Then 
                    sR = sR & _ 
                        Chr(CLng("&H" & Mid(str, i+1, 2))) 
                    i = i+2 
                End If 
            Else 
                sR = sR & sT 
            End If 
        Next 
        URLDecode = sR 
    End Function

boss83

Ragazzi non esiste uno script tipo mod rewrite con c'è per questo sito in php?

o.wk

Ho risolto in pratica ho dovuto mettere:

<%
Response.Buffer = True
Dim pagina, NomeFile
Pagina = Session("IndirizzoCompleto")
NomeFile = Session("Classe")
Dim objXMLHTTP, xml
Set xml = Server.CreateObject("MSXML2.ServerXMLHTTP.4.0")
xml.Open "GET", pagina, False
xml.Send
strHtml = xml.responseText
Set FSO = CreateObject("Scripting.FileSystemObject")
sPath = Server.MapPath(NomeFile)
Set f = FSO.CreateTextFile(sPath, True)
f.WriteLine(strHtml)
f.Close
Set f = Nothing
Set FSO = Nothing
set xml = Nothing
%>

Ora pero' se io richiamo questo script (che ho inserito dentro la pagina trasforma.asp) mediante un link dalla pagina asp che voglio trasformare fila tutto liscio, ma vorrei che si trasformasse in automatico, alla sola apertura della pagina stessa, quindi non appena apro la pagina http://www.miosito.it/home.asp mi si deve creare http://www.miosito.it/home.htm in automatico, ho provato a mettere in fondo ad ogni pagina

Ma dà errore, esattamente questo:

msxml4.dll error 'c00c023f'

This method cannot be called until the send method has been called.

/trasforma.asp, line 11

Alla linea 11 ho:

xml.Send

o.wk

@Boss83 said:

Ragazzi non esiste uno script tipo mod rewrite con c'è per questo sito in php?

Esistono due soluzioni, o usi dei componenti tipo ISAPI_Rewrite, se l'host che hai te lo consente, o fai tutto a mano .... io con tutto che posso usare ISAPI_Rewrite ho optato per farlo a mano, e lo script in questione mi servo proprio a trasformare le asp in html .....

paocavo

ciao parto per il raduno del GT FORUM ,
ci risentiamo Lunedì !!

boss83

Quindi prendo sto script e poi che devo fa?

frafa

Function GetUrl(Url)
Dim Http
Set Http = Server.CreateObject("MSXML2.ServerXMLHTTP.4.0")
Http.open "GET",Url,False
Http.Send()
GetUrl = Http.ResponseText
Set Http=Nothing
End Function

paocavo


Function GetUrl(Url) 
 Dim Http 
 Set Http = Server.CreateObject("MSXML2.ServerXMLHTTP.4.0")
 Http.open "GET",**Server.UrlDecode(Url)**,False 
 Http.Send()
 GetUrl = Http.ResponseText 
 Set Http=Nothing 
End Function

frafa

Mi da il seguente errore:

Tipo di errore:
Errore di run-time di Microsoft VBScript (0x800A01B6)
Proprietà o metodo non supportati dall'oggetto: 'Server.URLDecode'

madai

@O-WK said: