Lorenzo Pascucci
a- a+

Scaricare e inserire il codice HTML di una pagina web nella propria pagina asp

Può risultare utile prelevare il codice html di unapagina web, che si può trovare in qualsiasi sito, einserirlo nella propria pagina asp. Prima di tuttoconsigliamo di richiedere il permesso per fare tale azione inquanto potrebbe essere non gradita dal webmaster del sito.

Per esempio può risultare utile prelevare le news diun sito web di informazione o dei grafici eo tabelle.

Il codice da utilizzare è poco e semplice:

<% Option Explicit %><%Dim url 'La URL da scaricareDim inet'Oggetto per il Controllo InetDim sHTML     'Codice HTML della pagina scaricataDim rText     'variabile della regular expressionDim objCols   Dim sTextDim objMatch  'Da modificare l'url o acquisirla col metodo POST o GETurl = "http://www.nomesito.it/pagina.asp"'Creazione Istanza Controllo InetSet inet = Server.CreateObject("InetCtls.Inet")'Timeoutinet.RequestTimeOut = 20inet.Url = url'Download della pagina websHTML = inet.OpenURL()'Regular expression (è un esempio)Set rText = New regexprText.Pattern = "<H1>(.*)</H1>"rText.Global = FalserText.IgnoreCase = True'Esecuzione della regular expression nel codice HTMLSet objCols = rText.Execute( sHTML )For Each objMatch in objCols sText = sText & objMatch.ValueNext'Pulisce tuttoSet rText = NothingSet objCols = Nothing'E' un esempiosText = Replace(Replace(sText, "<H1>" , ""), "</H1>" , "")%><HTML><HEAD><TITLE>Pagina prelevata</TITLE></HEAD><BODY><P>La pagina è <%=sText %></P></BODY></HTML>

Il seguente codice è da personalizzare nel caso sivoglia comunque togliere alcune parti della pagina, come peresempio l'intestazione del sito o il footer, in ogni casoconsigliamo sempre di specificare la fonte originale.

Infine, lo script, permette di prelevare il codice HTML dellapagina e non Asp, PHP o altro... Quindi quando scarichiamo lapagina, verrà prima interpretata e solo dopoverrà inviato il codice HTML generato.



Ti potrebbe interessare anche

commenta la notizia