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
I più letti di oggi
- Utilizzare DPAPI: cifrare dati sensibili
- Recuperare la foto dell'utente nelle Windows Store app
- What's new in Azure Functions and Extensions
- dal tuo PC o smartphone tra poco #aspilive: https://aspit.co/VS2015-live tutto su #vs2015, #windows10, #aspnet5 e altro ancora!
- Creare link alle risorse di DocumentDB con UriFactory
- Ottenere il nome esteso del mese
- Eventi personalizzati per l'HealhMonitoring di ASP.NET 2.0
- Utilizare la libreria subsink per eliminare le sottoscrizioni agli observable in Angular
- Ritardata l'uscita di BizTalk Server 2004
- Creare file di Excel al volo