- <%@ LANGUAGE = VBScript %>
- <%
- Response.Buffer = True
- Response.Expires = 0
- Response.ExpiresAbsolute=now() - 1
-
- 'Pour des tests changez cet URL
- URL_DE_DEMO = "www.google.fr"
- ' www.votresite.com/votrepage.asp?param1=1¶m2=2... marche aussi !
- ' L'entête http:// n'est pas obligatoire.
-
- function GetHTML_FromURL(votreURL)
- dim mail
- '*************************************
- ' Récupération de page Web en ASP.
- ' Astuce simple nécessitant JMail.
- ' .:| Yannick :: ANNECY :: FRANCE |:.
- '*************************************
-
- Set mail = Server.CreateObject("JMail.SMTPMail") 'Composant de www.duplo.se
- 'Ce composant permet l'envoi d'un mail dont le contenu est une page web !
-
- mail.GetMessageBodyFromURL(votreURL)
- 'On recupère la page que l'on veux, une page ASP ou PHP arrive en HTML (executée) !
-
- GetHTML_FromURL = ""& mail.HTMLBody &""
- 'On renvoi le code HTML contenu maintenant dans la propriété HTMLBody
-
- end function
- %>
- <HTML>
- <TITLE>ASP .:|Yannick|:.</TITLE>
- <BODY bgcolor="#C0C0C0">
- <H1>RECUPERATION DE CODE HTML VIA ASP</H1>
- <HR>
- Le code source de <b><a href="<%if not ""&left(URL_DE_DEMO,7)&""="http://" then%>http://<%end if%><%=URL_DE_DEMO%>" target="_blank"><%=URL_DE_DEMO%></a></b> :<br>
- <TEXTAREA cols="100" rows="25">
- <%response.write GetHTML_FromURL(URL_DE_DEMO)
- ' Affiche le code HTML de l'URL sur votre page.
-
- ' PS :
- ' pour un enregistrement en base de donnée via SQL
- ' n'oubliez pas de faire un replace(CODE_HTML,"'","''")
- ' Car la page récupérée peut contenir des ' qui font foirer les requettes SQL !
- %>
- </TEXTAREA>
- </BODY>
<%@ LANGUAGE = VBScript %>
<%
Response.Buffer = True
Response.Expires = 0
Response.ExpiresAbsolute=now() - 1
'Pour des tests changez cet URL
URL_DE_DEMO = "www.google.fr"
' www.votresite.com/votrepage.asp?param1=1¶m2=2... marche aussi !
' L'entête http:// n'est pas obligatoire.
function GetHTML_FromURL(votreURL)
dim mail
'*************************************
' Récupération de page Web en ASP.
' Astuce simple nécessitant JMail.
' .:| Yannick :: ANNECY :: FRANCE |:.
'*************************************
Set mail = Server.CreateObject("JMail.SMTPMail") 'Composant de www.duplo.se
'Ce composant permet l'envoi d'un mail dont le contenu est une page web !
mail.GetMessageBodyFromURL(votreURL)
'On recupère la page que l'on veux, une page ASP ou PHP arrive en HTML (executée) !
GetHTML_FromURL = ""& mail.HTMLBody &""
'On renvoi le code HTML contenu maintenant dans la propriété HTMLBody
end function
%>
<HTML>
<TITLE>ASP .:|Yannick|:.</TITLE>
<BODY bgcolor="#C0C0C0">
<H1>RECUPERATION DE CODE HTML VIA ASP</H1>
<HR>
Le code source de <b><a href="<%if not ""&left(URL_DE_DEMO,7)&""="http://" then%>http://<%end if%><%=URL_DE_DEMO%>" target="_blank"><%=URL_DE_DEMO%></a></b> :<br>
<TEXTAREA cols="100" rows="25">
<%response.write GetHTML_FromURL(URL_DE_DEMO)
' Affiche le code HTML de l'URL sur votre page.
' PS :
' pour un enregistrement en base de donnée via SQL
' n'oubliez pas de faire un replace(CODE_HTML,"'","''")
' Car la page récupérée peut contenir des ' qui font foirer les requettes SQL !
%>
</TEXTAREA>
</BODY>