• Programmazione » ASP » Tutorial ASP - Base

Nella lezione di oggi, "sveliamo" un altro trucco che WebMasterPoint.org adotta ormai da molto tempo, e che decine di portali e siti web importanti adottano.

Provate a cliccare qui; come vedrete si aprirà una finestra con la homepage di Virgilio.it e nella parte superiore un frame nel quale è presente il logo di WebMasterPoint.org, dei links e un banner pubblicitario.

Questa tecnica è spesso utilizzata per generare maggiori impressions. E' una tecnica che funziona, in quanto spesso si utilizzano reload di pagina anche molto brevi (30/50 secondi) in quanto il caricamento di questo frame (che contiene semplicemente una pagina web) richiede un tempo quasi pari a zero... visto la sua leggerezza.

Il tutto richiede 2 pagine in Asp:

- link_esterno.asp

- link_esterno_frame.asp 

LINK_ESTERNO.asp

E' la pagina principale che effettua tutte le operazioni necessarie per utilizzare questa tecnica.

Il codice base è:

    "104,*" Framespacing=1 frameborder=1 resize=1> 
 

   "link_esterno_frame.asp?url=<%=Request("url")%>" border=0 frameborder=0 scrolling=no resize=no> 

   "<%=Request("url")%>" border=1 frameborder=0 scrolling=auto resize=no name=sito> 
 

Analizziamo questo codice. Tra i tag TITLE indichiamo il testo che dovrà comparire nella Title Bar. Poi abbiamo un utilizzo di 2 frame:

- uno superiore (piccolo) in cui verrà caricata la pagina web link_esterno_frame.asp 
- un frame inferiore , di maggiori dimensioni, dove apparirà il sito esterno.

Volendo si può anche inserire un contaclick dei siti esterni, questo è possibile aggiungendo qualche riga di codice prima del tag

(anche dopo non presenta problemi).

    <%
url = Request("url") 

da = Request("http_referer") 

ip = Request.ServerVariables("REMOTE_ADDR") 

'Connessione al database 

Set cn = Server.CreateObject("ADODB.Connection") 

cn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath("database/click.mdb") 
' Aggiunta Click 

Set rs = Server.CreateObject("ADODB.Recordset") 

rs.Open "siti" , cn, 3, 3 

rs.AddNew 

rs("sito") = url 

rs("da") = da 

rs("data") = now() 

rs("ip") = ip 

rs.Update 

rs.close 

Set rs = Nothing 

%> 

LINK_ESTERNO_FRAME.asp

Questa pagina contiene tutto ciò che voi vorrete inserire: il logo, links, banners...

Noi consigliamo l'utilizzo del link TOGLI FRAME nel caso l'utente voglia vedere il sito esterno a schermo intero, senza il nostro frame, per fare questo abbiamo già previsto il codice necessario nella pagina principale, e quindi basterà inserire una riga di codice simile a :

    "<%=Request("url")%>" target="_top">TOGLI FRAME 

Dove il codice rosso è necessario per l'obbiettivo che ci siamo prefissati.