Att göra Thumbnails av en stor bild enkelt tex av <%=rs("p5")%>. Dessa thumbnails ska sedan öppnas som popup ruta utan navigeringsknappar. Hur gör man detta smidigast. Har ett galleri script redan som är bra men har svårt att anpassa det till min sida. Vill inte ha paging mm bara tumnaglar utan text av stor bild. Bilden ligger dock inte i databasen utan bara en text lagrad i p5 som byter ut text mot bild när den visas.
Hittade ett script här i forumet vid sökning...går det att anpassa till att hämta från databas ocskå? <%=rs("p5")%>
Eller finns det något lättare sätt?
<%
'#######Antal thumbs på rad#######
Antal = 4
'#######Mappen som du vill lista bilder i#######
MappNamn = "/bilder"
'#######Bredd och höjd på thumbbilden#######
height = "100"
width = "100"
%>
<script language="javaScript">
function Show(filename,winTitle)
{
var myImage = new Image();
myImage.src=filename;
properties='height=10,width=10';
var imgWindow = window.open('','',properties);
html = '<html>';
html += '<head>';
html += '<title>'+winTitle+'</title>';
html += '</head>';
html += '<body topmargin="0" marginheight="0" leftmargin="0" marginwidth="0">';
html += '<img src="'+myImage.src+'" onLoad="resizeTo(document.bild.width+10,document.bild.height+29);" name="bild" OnClick="self.close();">';
html += '</body>';
html += '</html>';
imgWindow.document.write(html);
}
</script>
<%Set Mappkoll = Server.CreateObject("Scripting.FileSystemObject")
Set Mapp = Mappkoll.GetFolder(Server.MapPath(MappNamn))%>
<%If Mapp.Files.Count = 0 Then%>
<%Else
x=0
For Each File In Mapp.Files
If x = Antal Then
x = 0
End If%>
<a href="javascript:Show('<%=MappNamn%>/<%=File.Name%>','<%=File.Name%>')"><img src="<%=MappNamn%>/<%=File.Name%>" width="<%=width%>" height="<%=height%>" border="0" alt="<%=File.Name%>"></a>
<%X=X+1
Next
If x Mod Antal <> 0 Then
For i = 1 To Antal - x Mod Antal%>
<%Next
End If
End If%>
<script language="javaScript">
function Show(filename,winTitle)
{
var myImage = new Image();
myImage.src=filename;
properties='height=10,width=10';
var imgWindow = window.open('','',properties);
html = '<html>';
html += '<head>';
html += '<title>'+winTitle+'</title>';
html += '</head>';
html += '<body topmargin="0" marginheight="0" leftmargin="0" marginwidth="0">';
html += '<img src="'+myImage.src+'" onLoad="resizeTo(document.bild.width+10,document.bild.height+29);" name="bild" OnClick="self.close();">';
html += '</body>';
html += '</html>';
imgWindow.document.write(html);
}
</script>
Sedan är det bara att du anropar det från dina länkar på sidan som listar bilderna
<a href="javascript:Show('sökväg till filen, från ditt rs','namn på filen')"><%=projbild(enter(rs("p9")))%></a>
För att skapa tumnaglar, om du inte har separata filer för det...
Skala helt enkelt om bilderna i HTML-koden, med width på img-taggen. Varken snyggt eller effektivt.
Eller....
Skala om bildera på riktigt, med någon bildkomponent på servern. Ditt webbhotell kan säkert ha någon sådan. Skala om bilderna endast en gång, och spara tumnageln.
<a href="javascript:Show('sökväg till filen, från ditt rs','namn på filen')"><%=projbild(enter(rs("p9")))%></a>
Sökväg till filen=samma mapp - då är det väl ./
mitt rs <%=minibild(rs("p2"))%>
namn på filen? vad ska det vara där?
Det funkade inte som jag skrev ialla fall
Enkla svaret:
Vad får du för egenskaper på bilden när du klickar på krysset? Ändra filnamnet tills bilden syns.
Påpekande, som gör att ovanstående är fel:
Varför har du ett komma i <%=byggda%>, <%=bild(rs("p2"))%>, det har inte emission skrivit! Kommat han använder är ett komma i beskrivningstexten.
Kontrollerar du #1, ser du att #2 är fel.
[edit efter din edit]Skriv ut vad den redigering ger för resultat, inte oexekverad kod.[/edit efter din edit]
Hur menar du med sökväg?
Eftersom bilden listas automatiskt för varje sida så kan jag ju inte skriva in varje sökväg....förstår nog inte hur du menar?
Vet vad du menar med sökväg men kan du ge exempel på hur sökvägen måste presenteras i koden för att det skulle funka?
Hela adressen fram till rätt mapp eller? https://www.blabla/mappen/ eller?
Ja precis, men frågan är ju då hur jag får det att bli så?
Har testat alla sätt och vis vad jag kan komma på men får det inte rätt.....tumnageln visas rätt som en bild och då går det inte att klicka upp pop up rutan. Ändrar jag så att rutan kommer upp så är det ett "inte hitta bilden kryss" i pop up rutan.
Måste väl använda mina rs ändå? men hur? Känns galet att ha suttit och testat flera timmar på en sån liten detalj utan resultat
<%
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("../databas/news.mdb")
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open strDSN
%>
<%
if IsNumeric(Request.QueryString("id")) then
sql= "SELECT p1,p2,p3,p4,p5,p6,p7,p8 FROM byggda WHERE id = " & Request.QueryString("id")
else
Fel'felmeddelande om ogiltigt indata
end if
Set Rs = Conn.Execute (sql)
Do While Not rs.EOF %>
<%=minibild(rs("p2"))%>
Ok du menar så. Den aktuella posten "p2" innehåller alltid en text som heter minibild25 tex. Minibild25 byts ut mot 25.jpg med en funktion. Så meningen var att 25.jpg ska visas som en tumnagel och vara klickbar till pop up. Så på en annan sida kommer det att vara minibild26 = 26.jpg osv..
285 ms totalt · 4 externa anrop · v20260731065814-full.2f471f9e
