Ciao a tutti. Volevo chiedere un aiuto: io dovrei visualizzare delle immagini divise per album in base ai vari avvenimenti.
Per fare questo utilizzo un database con diverse tabelle ognuna contenente le foto dei vari album: una tabella corrisponde ad un album.
Il mio problema è come fare a leggere proprio la tabella che mi serve.
Ecco un pezzo dello script:
codice:<%@ language = "VBSCRIPT" %> <% 'Image Gallery Script with Access database 'By Steinthor Kristinsson 'You may change this code as mutch as 'you want all I ask is that you leave this 'comment whith the script and dont take 'credit for it. 'If any Comments or suggestions please 'e-mail me @ 'vip21@binet.is %> <% Dim iPageSize 'How big our pages are Dim iPageCount 'The number of pages we get back Dim iPageCurrent 'The page we want to show Dim strOrderBy 'A fake parameter used to illustrate passing them Dim SQL 'SQL command to execute Dim iRecordsShown 'Loop controller for displaying just iPageSize records Dim I 'Standard looping var %> <html> <head> <title>Image Gallery with Access DB</title> <meta http-equiv="Content-Type" content="text/html; chaObjRecet=iso-8859-1"> </head> <body bgcolor="#FFFFFF" text="#000000"> <% smallF = "<Font face=""arial"" size=""1"" color=""#000000"">" BlackF = "<Font face=""arial"" size=""4"" color=""#000000"">[b]" NormalF = "<Font face=""arial"" size=""2"" >" iPageSize =8 'number of images shown on each page ' Retrieve page to show or default to 1 If Request.QueryString("page") = "" Then iPageCurrent = 1 Else iPageCurrent = CInt(Request.QueryString("page")) End If If Request.QueryString("order") = "" Then strOrderBy = "id" Else strOrderBy = Request.QueryString("order") End If Response.write ""& BlackF &"<p align=center>Image Gallery " SQL = "SELECT * FROM gallery ORDER BY " & strOrderBy & " DESC ;" Set objCon = Server.CreateObject ("ADODB.Connection") objcon.Open dbcon Set objRec = Server.CreateObject ("ADODB.Recordset") Objrec.PageSize = iPageSize objrec.CacheSize = iPageSize objRec.Open SQL, objcon, adOpenStatic, adLockReadOnly, adCmdText iPageCount = objrec.PageCount iPageCount = objrec.PageCount If iPageCurrent > iPageCount Then iPageCurrent = iPageCount If iPageCurrent < 1 Then iPageCurrent = 1 ' Check page count to prevent bombing when zero results are returned! If iPageCount = 0 Then Response.Write "No records found!" Else ' Move to the selected page objrec.AbsolutePage = iPageCurrent Response.Write "" & normalF & "There are " & objRec.RecordCount & " pictures in the gallery" end if %> <table width="50%" border="0" bordercolor="#000000" cellspacing="0" cellpadding="0" height="40" align=center> <tr> <% iRecordsShown = 0 Do While iRecordsShown < iPageSize And Not objrec.EOF If NOT ObjRec.BOF Then Response.write ""&showimage&"" imagenr = imagenr + 1 iRecordsShown = iRecordsShown + 1 objRec.MoveNext end if loop ObjRec.close set Objrec = Nothing function showimage() dim HTML html = "" if imagenr = 4 then 'change this if you want more than 4 images in a row html = "<tr></tr>" imagenr = 0 end if html = html & "<td valign=""top"" height=""67"" width=""25%"" border=1>"& SmallF & " " html = html & "<p align=center><a href=dispimage.asp?id=" & ObjRec("ID") & ">[img] & ObjRec([/img]</a> " html = html & " View in 800x600 " html = html & " View in 1024x768 " html = html & " View Orginal </td>" showimage = html end function %> </tr> </table> <% Response.write " "& SmallF& "" If iPageCurrent > 1 Then %> [<< Prev] <% End If 'Showing PageNumbers For I = 1 To iPageCount If I = iPageCurrent Then %> <%= I %> <% Else %> <%= I %> <% End If Next 'I If iPageCurrent < iPageCount Then %> [Next >>] <% End If Response.write " "& SmallF& " "& infcop &"" %> </body> </html>
Rispondi quotando
