Bonjour,
J'espère que quelqu'un pourra m'aider, j'ai parcouru le Web pendant 3 heures ce matin, mais sans rien trouver, hélas.
Voilà le petit souci.
1) A l'aide d'un script, j'extrais le contenu d'un autre site (avec l'accord de son Webmaster), je vous mets d'ailleurs le code un peu plus bas, il n'est pas de moi, mais il peut servir à certains.
2) Le problème est que le chemin des urls du code source de la page "aspirée" n'est pas complet. Donc, les fichiers appelés ne sont pas exécutés, car ils ne sont pas présents sur mon site.
3) Pour vous donner un exemple, il faudrait que ce qui apparaisse dans le code source, ce soit :
Code Javascript : Sélectionner tout - Visualiser dans une fenêtre à part <script src="http://www.votre-site-ici.com/Chemin/Complet/Calculs.js" type="text/javascript"></script>
mais, malheureusement, ce qui apparaît dans le code source, c'est :
Code Javascript : Sélectionner tout - Visualiser dans une fenêtre à part <script src="/Chemin/Complet/Calculs.js" type="text/javascript"></script>
4) Je cherche donc une fonction qui me permettrait de remplacer automatiquement tout ce qui commence par
src="/
par
src="http://www.votre-site-ici.com/
Je suis sûr que c'est possible, et certainement pas si complexe que ça... Comment faire ?
Merci pour vos réponses.
Antoine
PS : J'en profite pour vous donner le code pour afficher une page d'un autre site (vous devez avoir l'autorisation du Webmaster de l'autre site pour faire cela, bien entendu).
Code asp : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20 <% ' Adresse de la page que nous voulons récupérer thisURL = "http://www.votre-site-ici.com" ' Création de l'objet XML Set GetConnection = CreateObject("Microsoft.XMLHTTP") ' Connection à l'url spécifiée GetConnection.Open "get", thisURL, False GetConnection.Send ' ResponsePage contient la réponse du serveur ResponsePage = GetConnection.responseText ' Nous écrivons alors le contenu de la variable ' afin d'afficher le contenu récupéré Response.write (ResponsePage) Set GetConnection = Nothing %>
-------------
Pense à la balise code la prochaine fois merci
kaiser59
Partager