---
title: "Förladda bilder"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/117806-förladda-bilder"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "WebbisNet"
published: "2004-12-11T14:40:05.000Z"
updated: "2004-12-14T11:08:27.000Z"
replies: 3
views: 228
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/117806-förladda-bilder"
---

# Förladda bilder

## #1 — WebbisNet, 2004-12-11T14:40Z

Jag har det här scriptet för att visa slumpvisa bilder på användare, går det att modifiera så att bilderna förladdas eller förminskas innan de visas och hur gör man?

```
<%
Dim oConn ,strSQL ,bilder ,i, j ,Count ,post ,antalBilder ,Found 
     
    Set oConn = server.CreateObject("ADODB.Connection") 
    oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source= " & server.MapPath("/db/Inloggning.mdb") & ";" 

    strSQL = "SELECT userID, picture, username, visaBild" & vbCrLf & _ 
             "FROM tblUsers" & vbCrLf & _ 
             "WHERE not picture='nopic.jpg' and visaBild=true" 

    Set rs = oConn.Execute(strSQL) 
    If rs.EOF Then 
        Response.Write "Det finns inga bilder..." 
    Else 
        Response.Write "<table width=""95%""><tr><td align=""left"">" 
        bilder = rs.GetRows() 
        antalBilder = UBound(bilder, 2) 

        Count = 8 
        If Count > antalBilder Then 
            Count = antalBilder 
        End If 
        ReDim Shown(Count) 

        Randomize 

        For i = 1 To Count 
            Do 
                Found = False 
                post = Int(Rnd * antalBilder) +1

                For j = 1 To i - 1 
                    If Shown(j) = post Then 
                        Found = True 
                        Exit For 
                    End If 
                Next 
            Loop While Found 
            Shown(i) = post 

            Response.Write "<a href=""view-preview.asp?userID="&bilder(0, post)&"""><img border=""1"" height=""100"" width=""80"" src=""/images/users/" & bilder(1, post) & """ alt=""" & bilder(2, post) & """></a>&nbsp;" 
        Next 
        Response.Write "</td></tr></table>" 
    End If 
    rs.Close 
    Set rs = Nothing 
%>
```

Permalänk: https://www.webforum.nu/p/117806

## #2 — WebbisNet, 2004-12-13T19:50Z

Nån som har ett svar på hur man kan förladda bilderna eller få dem att visas snabbare så att modemanvändare slipper vänta en evighet på att de laddas klart

Permalänk: https://www.webforum.nu/p/1506608

## #3 — oskob, 2004-12-13T21:58Z

Man kan ju lägga in alla bilder längst ner på sidan och göra dem 0x0 pixlar. Då laddar den fram hela bilden men den syns inte. Lite knöligt sätt kanske. (=

Permalänk: https://www.webforum.nu/p/1506717

## #4 — J.N., 2004-12-14T11:08Z

HEJ!

Att förladda bilder brukar handla om javascript-laddning, finns säkert på wF.

Det som är ännu bättre är få användarna att inte lägga upp för stora bilder; då förstör det alla dina ambitioner med förladdning ändå. x(

Permalänk: https://www.webforum.nu/p/1506899

---

Tråden på webben: https://www.webforum.nu/amne/asp/117806-förladda-bilder