Rendere cliccabili indirizzi web ed e-mail in un testo
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
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
