Gestire i link www e mailto dal pannello CMS

[erin]

Ho creato un CMS per la gestione delle news, come faccio a far si che se viene scritto un indirizzo www.pipppo.it o una mail info@pippo.it venga automaticamente linkato, come peraltro succede in questo topic (io non hho messo il codice HTML che crea il link)?
Io pensavo all'utilizzo di un replace , ma non so da che parte iniziare
Grazie per la collaborazione

[yro]

Originariamente inviato da erin
Ho creato un CMS per la gestione delle news, come faccio a far si che se viene scritto un indirizzo www.pipppo.it o una mail info@pippo.it venga automaticamente linkato, come peraltro succede in questo topic (io non hho messo il codice HTML che crea il link)?
Io pensavo all'utilizzo di un replace , ma non so da che parte iniziare
Grazie per la collaborazione

ma hai inserito il link tra [ u r l ] e [ / u r l ] o nenche?

www.ciao.it (per prova)

interessante...

[erin]

Come vedi se provi a scrivere un indirizzo su questo forum www.ciao.it lo scrivi e basa senza inserire URL o quantaltro e ti viene pubblicato linkato, essendo un CMS destinato ad utenti inesperti che spesso fanno un copia incolla da altri documenti, cercavo qualcosa di più automatico

[Roby_72]

Function Link_URL(stringa)
	Dim objRegExp, strTemp
	Set objRegExp = New RegExp
	objRegExp.IgnoreCase = True                   
	objRegExp.Global = True                 
	'objRegExp.Pattern = "(\b(www\.|https?\://)\S+\b}?)"
	objRegExp.Pattern = "(\b(https?\://)\S+\b}?)"
	strTemp = objRegExp.replace(stringa, "$1")
	Link_URL = strTemp
	Set objRegExp = Nothing
End Function

Function Link_email(stringa)
	Dim objRegExp
	Set objRegExp = New RegExp 
	objRegExp.Global = True 
	objRegExp.IgnoreCase = True
	'objRegExp.Pattern = "(\b[a-z._-]+@\S+\.[a-z]{2,3}\b)"
	objRegExp.Pattern = "([\w\-\.]+@([\w\-]+\.)+[a-z]{2,4})"
	Link_email = objRegExp.replace(stringa, "$1")
	Set objRegExp = Nothing
End Function

Roby

[erin]

Grazie mille sei un mago

[yro]

Originariamente inviato da Roby_72

Function Link_URL(stringa)
	Dim objRegExp, strTemp
	Set objRegExp = New RegExp
	objRegExp.IgnoreCase = True                   
	objRegExp.Global = True                 
	'objRegExp.Pattern = "(\b(www\.|https?\://)\S+\b}?)"
	objRegExp.Pattern = "(\b(https?\://)\S+\b}?)"
	strTemp = objRegExp.replace(stringa, "$1")
	Link_URL = strTemp
	Set objRegExp = Nothing
End Function

Function Link_email(stringa)
	Dim objRegExp
	Set objRegExp = New RegExp 
	objRegExp.Global = True 
	objRegExp.IgnoreCase = True
	'objRegExp.Pattern = "(\b[a-z._-]+@\S+\.[a-z]{2,3}\b)"
	objRegExp.Pattern = "([\w\-\.]+@([\w\-]+\.)+[a-z]{2,4})"
	Link_email = objRegExp.replace(stringa, "$1")
	Set objRegExp = Nothing
End Function

Roby

lo stò provando ma non mi funziona la function Link_URL(stringa)

l'altra si!

Function Link_URL(stringa)
	Dim objRegExp, strTemp
	Set objRegExp = New RegExp
	objRegExp.IgnoreCase = True                   
	objRegExp.Global = True                 
	'objRegExp.Pattern = "(\b(www\.|https?\://)\S+\b}?)"
	objRegExp.Pattern = "(\b(https?\://)\S+\b}?)"
	strTemp = objRegExp.replace(stringa, "$1")
	Link_URL = strTemp
	Set objRegExp = Nothing
End Function

Function Link_email(stringa)
	Dim objRegExp
	Set objRegExp = New RegExp 
	objRegExp.Global = True 
	objRegExp.IgnoreCase = True
	'objRegExp.Pattern = "(\b[a-z._-]+@\S+\.[a-z]{2,3}\b)"
	objRegExp.Pattern = "([\w\-\.]+@([\w\-]+\.)+[a-z]{2,4})"
	Link_email = objRegExp.replace(stringa, "$1")
	Set objRegExp = Nothing
End Function
strMessaggio = Link_URL(strMessaggio)
strMessaggio = Link_email(strMessaggio)

[Roby_72]

strMessaggio cosa contiene?

Roby

[yro]

Originariamente inviato da Roby_72
strMessaggio cosa contiene?

Roby

prelevo da un campo un testo.

strMessaggio = request.Form("messaggio")
strMessaggio = Replace(strMessaggio, "'", "''")
strMessaggio = replace(strMessaggio, vbcrlf, "
")

if strMessaggio = "" then
strMessaggio = "Nessun Testo"
end if
strMessaggio = replace(strMessaggio,"","")
strMessaggio = replace(strMessaggio,"","")
strMessaggio = replace(strMessaggio,"","<u>")
strMessaggio = replace(strMessaggio,"","</u>")
strMessaggio = replace(strMessaggio,"","")
strMessaggio = replace(strMessaggio,"","")

strMessaggio = replace(strMessaggio,"[c]","<div align=center>")
strMessaggio = replace(strMessaggio,"[/c]","</div>")
strMessaggio = replace(strMessaggio,"[r]","<div align=right>")
strMessaggio = replace(strMessaggio,"[/r]","</div>")
strMessaggio = replace(strMessaggio,"[l]","<div align=left>")
strMessaggio = replace(strMessaggio,"[/l]","</div>")

strMessaggio = replace(strMessaggio,"[pic]","<font size=1>")
strMessaggio = replace(strMessaggio,"[/pic]","</font>")
strMessaggio = replace(strMessaggio,"[med]","<font size=4>")
strMessaggio = replace(strMessaggio,"[/med]","</font>")
strMessaggio = replace(strMessaggio,"[gra]","<font size=6>")
strMessaggio = replace(strMessaggio,"[/gra]","</font>")

strMessaggio = replace(strMessaggio,"[img]","[img][/img]")

[yro]