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
Frågan#1
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> "
Next
Response.Write "</td></tr></table>"
End If
rs.Close
Set rs = Nothing
%>
