Discussion :

[kadabram]

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

[gderenne]

Salut,

Pour la solution, il faut utiliser REPLACE :

Code :

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 = Replace("src=""/", "src=""http://www.votre-site-ici.com/", GetConnection.responseText)
 
' Nous écrivons alors le contenu de la variable
' afin d'afficher le contenu récupéré
 Response.write (ResponsePage)
 
 Set GetConnection = Nothing
 %>

Tout simplement.

[biirkoff]

je vais poser une question bete,et j'aimerais bien avoir une reponse:
comment peut on utiliser ce script?où le placer?


merci

[gderenne]

comment peut on utiliser ce script?où le placer?

En fait, ce script est un script ASP développé en VBScript.

Ce script est traité par un serveur IIS (Internet Information Server) de Microsoft.

Si le script est dans le fichier "toto.asp", pour l'utiliser, il faudra pointer un navigateur vers :
http://tonserveurIIS/toto.asp

[kadabram]

Salut,

Et d'abord, un gros merci pour votre aide, c'est super de se sentir épaulé !

Mais ça ne fonctionne pas, malheureusement.

La seule chose qui s'affiche sur la page, c'est :


src="/



Que peut-on faire ?

[gderenne]

Oops,

MeaCoolPa, j'ai inversé les valeurs...

Donc, il fallait ecrire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Replace(GetConnection.responseText, "src=""/", "src=""http://www.votre-site-ici.com/")