In questo forum ci sono diversi 3D che parlano di questo argomento, ma non sono riuscito a trovarne 1 veramente chiaro.In pratica vorrei che, come in questo forum, si potessero inserire URL e MAIL cliccabili. Non ho capito: serve VB+ASP o basta anche solo ASP? E' meglio usare replace e quindi i vari trim,mid... o una funzione con objRegExp? In pratica ho questo codice
come procedo?codice:mex = request("text")
Vai al sito del mio gruppo http://www.kaosband.it
E' un esempio per l'email... Non l'ho testato...codice:<% str = "La mia email è pippo@pluto.it" arr_str = split(str," ") for word = 0 to UBound(arr_str) if instr(arr_str(word),"@") > 0 then 'email response.write ""& arr_str(word) &" " else response.write response.write &" " end if next%>
Sicuramente non va se l'email termina con un punto o una virgola, alla fine o in mezzo ad una frase.
Roby
www.creamweb.it [v. 3.0]
:: Script ASP!
:: Web directory gratuita!
:: Campioni del mondo!
codice:<% 'Function isUrl , stringa regexp per il riconoscimento url presa da http://www.regexp.org/31,è da testare con l'esempio sotto Function isUrl(strURL) Dim objRegExp Set objRegExp = New RegExp objRegExp.Pattern = "\b((((ht|f)tps?://)|([a-zA-Z0-9_-]+:[a-zA-Z0-9_-]+)?(www|ftp)\.)[a-zA-Z0-9\.\#\@\;\:%&_/\?\=\~\-]+)" objRegExp.IgnoreCase = True isUrl = objRegExp.Test(strURL) End Function %> <html> <body> <form name="form" action=""> <input type="text" name="text" value="<%=Request("text")%>" style="width:70%"> <input type="submit" name="action" value="TESTA"> </form> <% if Request("action") <> "" then mex = request("text") if isUrl(mex) then if Instr(mex,"http://") <> 0 or Instr(mex,"ftp://") <> 0 or Instr(mex,"https://") <> 0 then %> Il testo immesso <%=mex%> è un link<%=mex%>! <% else if Instr(1,mex,"ftp.") <> 0 then %> Il testo immesso <%=mex%> è un link<%=mex%>! <% else %> Il testo immesso <%=mex%> è un linkhttp://<%=mex%>! <% end if end if ' elseif IsEmail(mex) then 'funzione BY weppos la trovi su http://www.weppos.com/asp/script_sho...ipt=374&cat=19 ' Il testo immesso <%=mex% > è un email<%=mex% >! else %> Il testo immesso <%=mex%> non risulta essere ne un URL valido ne un email valida <% end if end if %>
Ma la funzione IsEmail??
Roby
www.creamweb.it [v. 3.0]
:: Script ASP!
:: Web directory gratuita!
:: Campioni del mondo!
ho messo il link diretto per i crediti a weppos se vuoi la incollo che ti devo di'
Permessi di invio
Rispondi quotando