ciao
vi spiego il mio problema.
Io ho una pagina asp che contiene un editor html. In questo editor posso caricare delle immagini che al momento della creazione avranno come SRC il percorso da cui me le sono andate a pescare <IMG src="c:\Immagini\ekgc.jpeg"> (un percorso mio locale). Dato che le immagini nel momento in cui sono inserite nell'editor vengono uploadate sul server, al momento del salvataggio del contenuto html dell'editor sarà necessario modificare il contenuto della SRC dell'immagine con il nuovo percorso sul server in modo che tutti possano poi vedere allo stesso modo il contenuto dell'editor.
Come posso fare per modificare nel contenuto html la stringa che identifica il sorgente dell'immagine con la stringa che identifica il nuovo percorso sul server.
Inserisco il codice che ho provato io ma non funzione correttamente:
percorso2=Request.ServerVariables ("HTTP_REFERER")
percorso2=Left(percorso2, InStrRev(percorso2, "/"))
percorso2=percorso2&"IMMAGINISITO2/"
Response.Write (percorso2)
content=(codificastringa(Uploader.form("txt_contenuto")))
S=codificastringa(Uploader.form("txt_contenuto"))
i=1
lunghezza=len(content)
While i <= Len(S)
Response.Write "contenuto:"&S
inizio = InStr(i, UCase(S), "IM")
Response.Write "immagine inizio:"&inizio
If inizio <> 0 Then
fine = InStr(inizio, S, ">", vbTextCompare)
Response.Write "immagine fine:"&fine &vbcrlf
stringaimg = Mid(S, inizio - 1, fine - inizio + 1)
sorgente = InStr(1, UCase(stringaimg), "SRC", vbTextCompare)
If sorgente <> 0 Then
sorgente2 = InStr(sorgente, stringaimg, "''", vbTextCompare)
sorgente3 = InStr(sorgente2 + 1, stringaimg, "''", vbTextCompare)
iniziomid=sorgente2+1
lungmid=Sorgente3-(sorgente2+1)
path = Mid(stringaimg,iniziomid+1,lungmid)
fileScelto = path
path = Left(path, InStrRev(path, "\"))
If path <> "" Then
NomeModello = Right(fileScelto, Len(fileScelto) - InStrRev(fileScelto, "\"))
NomeAllegato=percorso2& NomeModello
Response.Write ("file scelto:"&fileScelto &vbcrlf)
Response.Write("nomeallegato:"&NomeAllegato &vbcrlf)
content = Replace(content, fileScelto,NomeAllegato)
'********************
i = fine
Else
i = fine
End If
Else
i = Len(S) + 1
End If
Else
i = Len(S) + 1
end if
WendQualcuno che mi può aiutare???
Grazie,
Silvia
