5 svar · 166 visningar · startad av magnusfeldth
Jag använder denna kod för att göra om tecknen i en rubrik till bilder
<%
Function Artikel(text)
text = server.HTMLEncode(text)
text = Replace(text,vbCrLf,"<br>")
text = Replace(text,"a","<img src=""images/letter_a.gif"">")
....
Response.Write text
End Function
%>
....
<%=Artikel(RecSet("Rubrik"))%>
problemet är bara att när den vill omforma även till exempel "g" i .gif, så inga bilder går att visa... hur ska jag göra?
Låta bli att spara html i databasen kan vara ett tips.
jag sparar inte htmlkod i databasen - när koden skall omforma till bilder omvandlar den sin egen kod till bilder... förstår du?
Function TextToImage(str)
For i = 1 To Len(str)
strImages = strImages & "<img src=""letter_" & Mid(str, i, 1) & ".gif"">"
Next
TextToImage = strImages
End Function
Function Artikel(str)
str = Server.HTMLEncode(str)
str = Replace(str, vbCrLf, "<br>")
Artikel = str
End Function
...
Response.Write(TextToImage(Artikel(RecSet("rubrik"))))
löste det själv på detta sätt: ändra bara om destora bokstäverna i koden, sätt Ucase() för att fixa stora bokstäver från databasen.
Men nu uppenbarade sig ett annat problem: hur får jag den att radbryta på orden, inte på tecknen som den gör nu. Är detta möjligt?