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