2005-03-22 09:37

--------------------------------------------------------------------------------


Bilder i nyhetskript
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:




kod:--------------------------------------------------------------------------------

<%

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 & ""_
& tmpLink & "" & 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>")
txt = Replace(txt,"","</b>")
txt = Replace(txt,"","<i>")
txt = Replace(txt,"","</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.

Har ungefär likadant som du i en komunity, När man skickar meddelanden mellan varandra och vill lägga till en smileys så snvänder jag nedanstående

txt = Replace(txt,":cool:","<img src=""smileys/coo.gif"">")

Skriver man in :cool: i texten så lägger han dit bilden som assosierar till smileysen cool

hoppas du förstår vad jag menar.

//Jocke

Jodå, jag förstår hur du menar. Men det ska vara en bild som en besökare laddar upp. Alltså jag vill skapa en tagg som innehåller <img src=" och att sluttaggen inehåller "> Tyvärr fungerar det inte s bra med replace eftersom den ser sistuationtecknen som något ofullbordat.

Det bästa kanske är att lägga sökvägen till bilderna i en databas när man skickar upp dom, då kan du ju hitta vad bilderna heter och få dom utskrivna. typ de 5 senaste osv.

skriva ut de 5 senaste kan ju se ut så här där <img src="bilden.jpg"> ingår

<%
Dim Connect, Rst

Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("databas.mdb")

sql = "select top 5 * from tblbild order by bildid desc"
Set Rst = connect.Execute(sql)
Do while not Rst.EOF
%>
<IMG width="50" height="75" SRC="images/<%=Rst("bild")%>"alt="<%=Rst("Title")%>">
<%
Rst.MoveNext
'Loopar igenom recordsetet
loop

%>

Hej,
jag använder också bilder på ett liknande sätt. Låter användaren ladda upp bilder till en mapp. Sedan kan man infoga koden [file=minmapp/minbild] som är en länk till bilden. Sedan använder jag RegExp för att ta utt sökvägen minmapp/minbild och infogar den i taggen <img src="minmapp/minbild">. Det funkar perfekt.

Ett tips är att kolla www.gruvsjo.com !
Hon har nyhetsscript där som jag använder på min sida schackpalatset.com !
(ooops lite reklam där:) )

Kan man få ett litet exempel? Annars får jag väl fixa det själv, men jag är lite lat av mig=)

Hehe, jojo gruvsjo har mycket nyttigt men det är lite roligare om man har fixat det själv=)

Inga andra ideér? För jag får inte riktigt ihop det tyvärr.

> Kan man få ett litet exempel? Annars får jag väl fixa det själv, men jag är lite lat av mig=)
> Hehe, jojo gruvsjo har mycket nyttigt men det är lite roligare om man har fixat det själv=)

Varför frågar du här då? Fixa det själv ;)