Salve a tutti e grazie a quanti contribuiranno ad aiutarmi.
Utilizzando questa funzione prelevo il contenuto di una pagina:
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
ma quando la stampo a video con
response.write geturl("http://www.miosito.it/pagina.asp")
se nella pagina ci sono degli apostrofi mi diventano ?
come mai e come posso evitarlo?
Grazie
nessuno sa dirmi niente?
ho provato anche a fare un replace "?" con " ' " ma niente
Potrebbe essere un problema di codifica html? o bo non so aiutatemi....
non è nemmeno possibile fare una ricerca?!!
la ricerca è sempre possibile, basta che in google scrivi PAROLA_DI_RICERCA site:forum.html.itOriginariamente inviato da studioerrico
nessuno sa dirmi niente?
ho provato anche a fare un replace "?" con " ' " ma niente
Potrebbe essere un problema di codifica html? o bo non so aiutatemi....
non è nemmeno possibile fare una ricerca?!!
per la prima cosa... :master: strano io non ne ho di questi problemi...ma che tipo di testo ti restituisce? una pagina html o solo una porzione di essa?
E' sicuramente un problema di codifica . . .
Io ho avuto un problema simile in un altro caso , praticamente scrivevo
pagine ASP usando VS2005 che utilizzava un tipo di codifica apposita UTF8 compatibile . . .
Non riesci a settare la codifica dell'output trammite quell'oggetto ???
piu che nell'oggetto xml la codifica la devi settare bene nella pagina che stampa...
oppure, mi sembra una cacchiata, prova a fare response.write server.htmlEncode(geturl(""))
Dubito che funzioni . . .
Cmq secondo me è proprio un problema della codifica che ha dato
l'editor di testo che hai usato durante la creazione della pagina . . .
Prova a spulciare le opzioni / metodi dell'oggetto XMLHTT...
Grazie innanzitutto per avermi risposto....
per quanto riguarda la ricerca tramite google ... sinceramente non mi piace... preferisco il motore di ricerca del forum anche perchè parecchie pagine che google rileva in realtà non esistono!
Per quanto riguarda il mio problema, io utilizzo quella funzione per recuperare il contenuto di una pagina asp (che estrae news da un db) e generare una pagina fisica html per migliorare l'indicizzazione... posto il codice intero della pagina genera.asp anche perchè potrebbe servire a qualcuno (tranne quel problema funziona alla perfezione)
<!--METADATA TYPE="typelib"
UUID="00000205-0000-0010-8000-00AA006D2EA4"
NAME="ADODB Type Library"
-->
<%@ language = vbscript %>
<% option explicit %>
<%
dim idgen
idgen=request.querystring("id")
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
Function SaveFile(PathFile,Content)
dim ostream
Set oStream = Server.CreateObject("ADODB.Stream")
oStream.Open
oStream.Charset = "ascii"
oStream.Type = adTypeText
oStream.WriteText content
oStream.SaveToFile Server.MapPath(PathFile), adSaveCreateOverWrite
oStream.Close
set oStream = Nothing
End Function
call SaveFile("/public/"&idgen&".html",geturl("http://www.sito.it/LeggiNews.asp?id="&idgen))
response.write geturl("http://www.sito.it/LeggiNews.asp?id="&idgen)
%>
----
l'inizio della pagina legginews.asp....
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=ISO-8859-1" />
</head>
ho provato anche a variare il charset da iso a UFT-8 ma niente...
Guarda quà :
oStream.Charset = "ascii"
Metti Iso o UTF-8 se puoi
a proposito facendo server.htmlEncode(geturl... mi mostra la pagina con tutti i tag e mi salva la pagina con < a inizio riga e > alla fine cercando comunque all'interno del file la parola " L'atletica " mi scrive L’Atletica<
Prova a commentare l'istruzione :
oStream.Charset = "ascii"
Così prende di default l'Unicode . . .
Permessi di invio
Rispondi quotando