link automatici..

[nikasil]

Ciao a tutti.
Ho i soliti problemi nel riuscire a fare con net quello che con asp era ormai consuetudine.......

Cerco di spiegarmi:

In asp con una bella funzione si poteva far linkare automaticamente un indirizzo internet o una email presente in un testo estratto dinamicamente da un database.

Ma come si può fare la stessa cosa con net?

Anche sul mio libro Apogeo non trovo niente che mi aiuti....

CIAO!

[sms]

Response.Redirect("pagina.aspx?valore=testo")
utilizza querystring (presente pure in asp3)..
x l'email è un po' + complesso e ti conviene fare una ricerca in questo forum

[nikasil]

Non mi sono spiegato bene:

ho nel database un campo memo con un bel testo. Questo testo può contenere anche dei link a siti http://www.XXXX.it o email. quello che voglio è che i link presenti nel testo vengano effettivamente linkati al sito in caso di indirizzo internet e con il mailto: davanti in caso i posta elettronica. Solo i link presenti nel testo dinamico, non tutto il testo naturalmente.

Con asp non ho problemi ma non riesco per mia incapacità con net a riprodurre lo stesso effetto.

[riccardone]

Originariamente inviato da nikasil
Con asp non ho problemi ma non riesco per mia incapacità con net a riprodurre lo stesso effetto.

quale e' la funzione che usavi in asp?

[nikasil]

Function IsEmail(tempEmail)

If Len(tempEmail) < 8 Then
IsEmail = False
Else
At = 0
For x = 1 To Len(tempEmail)
If Mid(tempEmail,x,1) = "@" Then
At = At + 1
End If
Next
If Len(Mid(tempEmail,(InStrRev(tempEmail,".") + 1),Len(tempEmail))) < 2 Then
At = 0
End If
If At <> 1 Then
IsEmail = False
Else
IsEmail = True
End If
End If

End Function


Sub MakeLinks(tempString)

arrTempString = Split(tempString)

For Each Word In arrTempString


If Left(Word,7) = "http://" Then
tempOutput = tempOutput & "<a href=""" & Word & """ target=""_blank"">" &_
Word & "</a> "
ElseIf Left(Word,4) = "www." Then
tempOutput = tempOutput & "" & Word & " "
ElseIf IsEmail(Word) Then
tempOutput = tempOutput & "<a href=""mailto:" & Word & """>" & Word &_
"</a> "
Else
tempOutput = tempOutput & Word & " "
End If

Next

tempString = tempOutput

End Sub

messaggio = rs("testo")
Call MakeLinks(messaggio)

[nikasil]

uppino...