Collegamento

[jesusmano]

vorrei che nel mio forum : http://www.sancesario.com/cantiere_s...gi.asp?id=5277
quando inserisco un link ad es:http://www.youtube.com/watch?v=QCyB28tBT_k fosse cliccabile.

come faccio? che script devo aggiungere?

grazie

[ilgiovo]

sai a priori che quel campo contiene un link o stai chiedendo uno script che riconosce un link in una stringa ?

[jesusmano]

Mi servirebbe uno script che riconosce un link in un messaggio.

[michele.santoro]

Prova a vedere qui

[jesusmano]

mi da un errore di compilazione

[ilgiovo]

te l'ho fatta un po' rozza ma così capisci i vari passaggi commentati


'messaggio
strMessaggio = "http://www.html.it questo è un messaggio con dentro l'indirizzo http://www.html.it inserito di nuovo http://www.html.it"
'posizione iniziale
posizione = 1

'inizia il loop, cicla finchè trova nella stringa un http://
do while posizione < strMessaggio AND instr(posizione, strMessaggio, "http://") > 0

'trova la posizione dell'http:// nel testo
posizione = instr(posizione, strMessaggio, "http://")

'trova la posizione del prossimo spazio nella stringa (visto che un url non può contenere spazi, quando ne trovi uno vuol dire che l'indirizzo è finito)
prossimospazio = instr(posizione, strMessaggio, " ")
if prossimospazio = 0 then
prossimospazio = len(strMessaggio) + 1
end if

'ricavo la stringa dell'url
strUrl = mid(strMessaggio, posizione, prossimospazio - posizione)

'costruisco la stringa completa di link html
strUrlConlink = "" & strUrl & ""

'ricavo la parte di stringa PRIMA dell'url
if posizione > 1 then
strPrima = left(strMessaggio, posizione - 1)
else
strPrima = ""
end if

'ricavo la parte di stringa dopo l'url
strDopo = mid(strMessaggio, posizione + len(strUrl), len(strMessaggio))

'ricompongo il tutto, sostituendo l'url con la stringa del link html
strMessaggio = strPrima & " " & strUrlConLink & strDopo

'aumento la posizione in modo da passare all'occorrenza successiva di http:// nella stringa
posizione = posizione + len(strUrlConLink)

loop

'output della nuova stringa
response.Write strMessaggio

[michele.santoro]

Serve anche per le email:

<%
Session.LCID=1040

'================== Riconoscimento mail e url =======================
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
%>
<%
Dim messaggio
messaggio=("questo è il messaggio: http://www.prova.it e riconosce anche l'email prova@email.it")
strText = messaggio
strText = Server.HTMLEncode(strText) 
strText = Replace (strText, vbCrLf, " 
 ") 
strText = Replace (strText,"  ","")
Call MakeLinks(strText)

Response.write strText
%>

[jesusmano]

Dice così:

Errore di compilazione di Microsoft JScript error '800a03f7'

Costante String senza terminazione

/cantiere_sf-1/forum/leggi.asp, line 90

'================== Riconoscimento mail e url =======================
---------------------------------------------------------------------^


la pagina è qui http://www.sancesario.com/cantiere_s...gi.asp?id=5288

[michele.santoro]

Originariamente inviato da jesusmano
Dice così:

Errore di compilazione di Microsoft JScript error '800a03f7'

Costante String senza terminazione

/cantiere_sf-1/forum/leggi.asp, line 90

'================== Riconoscimento mail e url =======================
---------------------------------------------------------------------^


la pagina è qui http://www.sancesario.com/cantiere_s...gi.asp?id=5288

cerca di non mischiare i linguaggi asp quello che ti è stato postato è in vbscript

[jesusmano]

Non ci riesco, vi posso mandare il forum compresso?