Hej
Håller på med ett nyhetskript som ska innehålla bilder.
Men har nu kommit till problemt till hur jag ska utforma koden för att lägga in en bild. Jg använder ett HTML.Encode skript som följer:
<%
Function make_link(txt)
' Initiering i början
txt = Replace(server.HTMLEncode(txt),vbCrlf,"<br>")
sPos = inStr(lCase(txt),"http://") ' Hämtar positionen för första länken
' Fyll denna array med tecken som avslutar en länk << HÄR KAN DU ÄNDRA OM DU VILL >>
stoppa = Array(";",","," ","!","<",">")
Do While sPos <> 0 AND sPos < len(txt)
' Initiering av grejer i lopen
startLink = sPos ' Länkens startpos
tmpChar = "" ' Nollställ
tmpLink = "" ' Nollställ
stop_it = "FALSE"
' Plocka ut namnet på länken
Do Until sPos > len(txt)+1 OR stop_it = "TRUE"
tmpLink = tmpLink & tmpChar
tmpChar = Mid(txt,sPos,1)
endLink = sPos - 1
sPos = sPos + 1
For X = 0 To Ubound(stoppa) ' Kollar om tmpChar är ogiltig
If tmpChar = stoppa(X) Then stop_it = "TRUE"
Next
Loop
vanster = Left(txt,startLink-1) ' Texten till vänster om länken
hoger = Right(txt,len(txt)-endLink) ' Texten till höger om länken
' Sätt ihop den nya texten, med länk!
txt = vanster & "<a href='" & tmpLink & "' target = '_blank'>"_
& tmpLink & "</a>" & hoger
' Leta fram nästa länk
jumpTo = endLink + 33 + len(tmpLink)
sPos = inStr(jumpTo,lCase(txt),"http://")
Loop
' Tillåten HTML kod
txt = Replace(txt,"[c]","<font color='red'>")
txt = Replace(txt,"[/c]","</font>")
txt = Replace(txt,"[b]","<b>")
txt = Replace(txt,"[/b]","</b>")
txt = Replace(txt,"[i]","<i>")
txt = Replace(txt,"[/i]","</i>")
make_link = txt
End Function
%>
Det jag är ute efter är en liknande funktion nsom finns på detta forum. Alltså bestämmma att img taggar ska användas.
Men jag vet inte vilket som är enklast att göra.