Dall'archivio script > Classic ASP

Rendere cliccabili indirizzi web ed e-mail in un testo

di Pasquale MarcocciaPasquale Marcoccia, in Classic ASP, Tips, Coding,

Questo semplice script permette di rendere cliccabili indirizzi web o e-mail.
Lo script si commenta da solo.

<%

messaggio = "Testo normale " & VbCrLf &_
     "visita www.aspitalia.com" & VbCrLf &_
     "usag@aspitalia.com " & VbCrLf &_
     "http://store.aspitalia.com"


messaggio = SPLIT(messaggio,VbCrLf)
FOR m=0 TO ubound(messaggio)
 parola = SPLIT(messaggio(m)," ")

 FOR i=0 TO ubound(parola)
  IF Mid (parola(i),1,7) = "http://" THEN
   parola(i)="<a href="""&parola(i)&""">"&parola(i)&"</a>"
  END IF

  IF Mid (parola(i),1,4) = "www." THEN
   parola(i)="<a href=""http://"&parola(i)&""">"&parola(i)&"</a>"
  END IF

  IF (InStr(parola(i),"@") <> 0) AND (InStr(parola(i),".") <> 0) THEN
   parola(i)="<a href=""mailto:"&parola(i)&""">"&parola(i)&"</a>"
  END IF

 NEXT

 messaggio(m)=JOIN(parola," ")

NEXT

messaggio = JOIN(messaggio,VbCrLf)
messaggio = REPLACE (messaggio, VbCrLf, "<BR>")

response.write messaggio

%>

Commenti

Visualizza/aggiungi commenti

| Condividi su: Twitter, Facebook, LinkedIn
Aggiorna

Per inserire un commento, devi avere un account.

Fai il login e torna a questa pagina, oppure registrati alla nostra community.

Approfondimenti

Nessuna risorsa collegata

I più letti di oggi