8 svar · 324 visningar · startad av SimOnline
Jag har en gästbok med paging-system. Alltså, så här ser det ut längst ner:
1 2 3 [4] 5 6 osv.
Nu skulle jag vilja ersätta siffrorna med bilder, hur gör jag det? Det går väl inte med Replace, för det är ju ingen sträng eller variabel. Hoppas någon har en lösning...
red. ska nog fundera lite till...
Kanske så här du menar?
<%For i=1 to Len(SID)%><img src="siffror/<%=Mid(SID,i,1)%>.gif" border="0"><%Next%>
Bilderna ska då heta ex 1.gif, 2.gif o.s.v
Hmmm, Åsa, ditt förslag innebär väl att man måste ha en bild för alla tal, alltså även för 10 11 12 13 osv. Det blir ju hur många bilder som helst, eller har jag missuppfattat det hela?
Det var ju inte så svårt när jag tänkte efter lite :p
Koden innan:
FOR a = 1 to RS.PageCount
IF a <> cINT( nextPage ) THEN
Response.Write "<a href='gb.asp?nextPage="& a &"'>"& a &"</a>"
ELSE
Response.Write a
Det var ju bara att ändra till:
FOR a = 1 to RS.PageCount
IF a <> cINT( nextPage ) THEN
Response.Write "<a href='gb.asp?nextPage="& a &"'><img src='bilder/"& a &"b.gif' border='0'></a>"
ELSE
Response.Write "<img src='bilder/"& a &".gif' border='0'>"
Jo, men nu har du ju själv gjort så du måste ha en gifbild för varje tal, även 10, 11, 12, osv. Men det kanske inte gör någonting?
Och om du inte vill ha en bild för varje tal (10, 11, 12) så kan du göra såhär:
FOR a = 1 to RS.PageCount
IF a <> cINT( nextPage ) THEN
Response.Write "<a href='gb.asp?nextPage="& a &"'>"
For i = 1 To Len(CStr(a))
Response.Write("<img src=""bilder/" & Mid(CStr(a), i, 1) & "b.gif"" border=""0"">")
Next
ELSE
For i = 1 To Len(CStr(a))
Response.Write("<img src=""bilder/" & Mid(CStr(a), i, 1) & ".gif"" border=""0"">")
Next
END IF
NEXT
Jag vet.. jag klantade till det som vanligt, läste inte ordentligt.... Åsa ditt förslag var ju klockrent! Tack så mycket!