Søg
Avatar billede hopir Novice
20. juni 2007 - 14:32 Der er 9 kommentarer og
2 løsninger

tilføje paging

hey er det muligt der er nogle der ved hvordan jeg får tilføjet paging til det her gallery ? jeg har prøvet at sidde og søge og "klippe klistre" men det virker ikk rigtig. på forhånd tak :)

ps: undskyld den langt kode men jeg ved ikke hvad der sker når jeg sætter koden herind :(

<!-- Visit studio7designs.com and opensourcetemplates.org for more website templates ::  This template was created by studio7designs.com for public use under the creative commons licence 2.5 -->
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "DTD/xhtml1-transitional.dtd">
<html>

<head>

<title>Nautica08</title>

<meta http-equiv="content-type" content="application/xhtml+xml; charset=UTF-8" />
<meta name="description" content="studio7designs" />
<meta name="keywords" content="#" />
<meta name="googlebot" content="index, follow" />
<meta name="language" content="en-us, english" />
<meta name="classification" content="#" />
<meta name="author" content="www.studio7designs.com" />
<meta name="copyright" content="#" />
<meta name="location" content="#" />
<meta name="zipcode" content="#" />


<link rel="stylesheet" type="text/css" href="stylesheet.css" media="screen, projection, tv " />

</head>

<body>

<!-- start top menu and blog title-->

<div id="blogtitle">
        <div id="small"><a href="#">Your Blog news</a> or current info and links
            ::</div>
        <div id="small2">  <a href="#">News</a>  |  <a href="#">Services</a>  |  <a href="#">
            Projects</a> | <a href="#">Supplies</a> | <a href="#">Information</a></div>
</div>
       
        <div id="topmenu">
       
       
        <ul class="BLUE">
        <li><a href="#" title="Downloads"><span>Home</span></a></li>
        <li><a href="#" title="Gallery"><span>Gallery</span></a></li>
        <li><a href="#" title="Links"><span>Arrangementer</span></a></li>
        <li><a href="#" title="Links"><span>Profiler</span></a></li>
        <li><a href="#" title="Links"><span>Regler</span></a></li>
        <li><a href="#" title="Links"><span>Kontakt</span></a></li>
        </ul>
</div>
<!-- end top menu and blog title-->

<!-- start left box-->

<!-- Begin FloatMail Code //-->

<script>
/* Floating Mail-This-Link Script C.2004 by CodeLifter.com */

// Insert the entire script just before the </body> tag.
// Set the following two position parameters
// Negative numbers are relative to right (hX) or bottom (vY)
// Positive numbers are relative to left (hX) or (vY) top
// Experiment with values to get positioning exact, and allow
// for the dimensions of the image & form in the positioning

var hX = 2;
var vY = -645;

</script>

<!-- Edit the HTML between the div tags to suit your design //-->

<div id="FloatMail" style="position: absolute;
                          width: 180px;
                          border-width: 0;
                          padding:5px">

<div id="leftcontent">
    <img style="margin-top:-9px; margin-left:-12px;" src="/images/top2.jpg" alt="" />
   
    <h3 align="left">Main Menu</h3>
   
   
    <div align="left">
        <ul class="BLUE">
            <li><a href="#">Sample Link</a></li>
            <li><a href="#">Sample Link</a></li>
            <li><a href="#">Sample Link</a></li>
            <li><a href="#">Sample Link</a></li>
            <li><a href="#">Sample Link</a></li>
        </ul>
    </div>
   
    <h3 align="left">Sub menu</h3>
    <div align="left">
        <ul class="BLUE">
      <%
qfolder = request.querystring("f")
'if qfolder = "" then
    folderspec = server.mappath(".")
    Set filesys = CreateObject("Scripting.FileSystemObject")
    Set demofolder = filesys.GetFolder(folderspec)
    Set folcoll = demofolder.SubFolders
    For Each subfol in folcoll
    if subfol.Name <> "images" then
            folsize = left((subfol.size/1000000), 3)
            folist = folist & "<a href='?f=" & subfol.name & "'><strong title='view'>&#187;</strong> " & subfol.Name & " </a><br>"
            folist = folist & " "
    end if
    Next
    set filesys = nothing
Response.Write folist


%>

        </ul>
       
   
<%
if request("f") <> "" then
%>
   
    <p>Nullam non metus. Duis in metus vitae elit luctus convallis. Ut sagittis.
    Nam tempor. Nam vehicula adipiscing augue. Vestibulum pretium lacinia erat.
    Duis ut enim. In hendrerit vulputate lectus. Donec ipsum magna, tempor
    ornare, fringilla sit amet, placerat</p>
   
    </div>
   
    <!-- You have to modify the "padding-top: when you change the content of this div to keep the footer image looking aligned -->
   
    <img style="padding-top:2px; margin-left:-12px; margin-bottom:-4px;" src="/images/specs_bottom.jpg" alt="" />
   
   

</div>
</div>


<!-- End of editable HTML //-->

<script>
/* Floating Mail-This-Link Script C.2004 by CodeLifter.com */
/* Caution! Do not allow linebreaks other than where shown */
var good;function checkEmailAddress(field){
var goodEmail=field.value.match(/\b(^(\S+@).+((\.com)|(\.net)|(\.edu)|(\.mil)|(\.gov)|(\.org)|(\..{2,2}))$)\b/gi);
if (goodEmail){good = true}else{alert('Please enter a valid e-mail address.');
field.focus();field.select();good=false;}}
u=window.location;m="I thought this might interest you...";
function mailThisUrl(){good=false;
checkEmailAddress(document.eMailer.address);
if (good){window.location="mailto:"+document.eMailer.address.value+"?subject="+m+"&body="+document.title+" "+u;}}
var nn=(navigator.appName.indexOf("Netscape")!=-1);
var dD=document,dH=dD.html,dB=dD.body,px=dD.layers?'':'px';
function floatMail(iX,iY,id){
var L=dD.getElementById?dD.getElementById(id):dD.all?dD.all[id]:dD.layers[id];       
this[id+'O']=L;if(dD.layers)L.style=L;L.nX=L.iX=iX;L.nY=L.iY=iY;
L.P=function(x,y){this.style.left=x+px;this.style.top=y+px;};L.Fm=function(){var pX, pY;   
pX=(this.iX >=0)?0:nn?innerWidth:nn&&dH.clientWidth?dH.clientWidth:dB.clientWidth;   
pY=nn?pageYOffset:nn&&dH.scrollTop?dH.scrollTop:dB.scrollTop;   
if(this.iY<0)pY+=nn?innerHeight:nn&&dH.clientHeight?dH.clientHeight:dB.clientHeight;   
this.nX+=.1*(pX+this.iX-this.nX);this.nY+=.1*(pY+this.iY-this.nY);this.P(this.nX,this.nY);
setTimeout(this.id+'O.Fm()',33);};
return L;}
floatMail(hX,vY,'FloatMail').Fm();
</script>

<!-- End FloatMail Code //-->

<!-- end left box-->

<!-- start content -->

<div id="centercontent">

   
    <div style="position: absolute; width: 100px; height: 100px; z-index: 1; left: 251px; top: 143px" id="lag1">

   
    <h1>Gallery</h1></div>
    <h1>&nbsp;</h1>
    <p><br /></p>
    <br>
    <br>
    <br>
    <br>
    <br>
    <br>
    <br>
    <div class="centercontentleft" style="width: 470px; height: 200px"><%
qfolder = request.querystring("f")


filepath = server.mappath(".") & "/" & qfolder
captionfile = filepath & "\captions.txt"
Set filesys = CreateObject("Scripting.FileSystemObject")
Dim SomeArray()
'caption part
    If filesys.FileExists(captionfile) then
        set file = filesys.GetFile(captionfile)
        Set TextStream = file.OpenAsTextStream(ForReading,TristateUseDefault)
        captioncount = 0
        Do While Not TextStream.AtEndOfStream
            Line = TextStream.readline
            ReDim Preserve SomeArray(captioncount)
            SomeArray(captioncount) = line
            'response.write captioncount & " " & somearray(captioncount) & "<br>"
            captioncount = captioncount + 1
            'Response.write Line
        Loop
        textStream.close
    end if

'folder part
    Set demofolder = filesys.GetFolder(filepath)
    Set filecoll = demofolder.Files
    filecount = 0
  For Each file in filecoll
        Ext = UCase(Right(File.Path, 3))
        If Ext = "JPG" OR Ext = "GIF" Then
        on error resume next
        data = SomeArray(filecount)
        on error goto 0
        hrefpath = qfolder & "/" & file.name
b = b + 1 'dette er din tæller
if b = 1 then 'når tælleren står i 1 starter den tabellen

        imagepath = "<table width=""161%"" border=""1"">  <tr><td align=""center"" width=""25%""><strong>" & data & "</strong><br><a href='" & hrefpath & "' title='free image gallery' border=0><img src='" & hrefpath & "' width=""100"" height=""100"" border='" & border_size & "' title=""" & data & """ style='border-color: " & border_color & ";'></a><br>"
        filist = filist & imagepath
        filist = filist & "</td><td>"
        filecount = filecount + 1
        data = ""
end if
if b = 2 then 'nÃÂÂÂÂÃÆâ€
Avatar billede thesurfer Nybegynder
20. juni 2007 - 15:01 #1
Paging: http://activedeveloper.dk/artikler/default.asp?articleid=31
Avatar billede hopir Novice
20. juni 2007 - 15:37 #2
desværre den paging kører på database det gør min hjemmeside ikke :(
Avatar billede thesurfer Nybegynder
20. juni 2007 - 16:15 #3
Nå, ja.. det er da rigtigt..

Jeg har faktisk lavet et paging-gallery i ASP..

Jeg har ikke mulighed for at søge efter det, før engang i aften.. jeg er ret sikker på, at jeg har det liggende et eller andet sted..
Avatar billede thesurfer Nybegynder
20. juni 2007 - 16:16 #4
Hmm.. Det var faktisk til et spørgsmål her på eksperten.dk..

Ser lige om jeg kan finde løsningen i mine besvarede spørgsmål..
Avatar billede thesurfer Nybegynder
20. juni 2007 - 16:36 #5
Jeg har lige kigget alle 58 sider igennem, og kigget på titlerne der var i ASP kategorien..

Det gik lidt hurtigt..

Synes ikke at jeg har fundet spørsgmålet..

Her er dog et andet galleri i ASP: http://www.eksperten.dk/spm/743110

Hvis jeg ikke finder det rigtige spørgsmål, ser jeg om jeg kan lave det igen..
Avatar billede thesurfer Nybegynder
20. juni 2007 - 22:19 #6
Områderne hvor der står "RET HER:", er områder hvor du kan lave rettelser..


Eksempel:

<%
option explicit


dim antal_billeder_per_side
antal_billeder_per_side = 10 ' RET HER: antallet af billeder der skal vises per side:





dim ex
ex = ",asp,inc," ' RET HER: filer der ikke må vises

dim prevpage, nextpage

dim side, start
side = request.querystring("side")
if side = "" then
    start = 0
else
    start = CInt(side)
end if

dim fso,f,folder,file, ext
set fso = server.createobject("Scripting.FileSystemObject")
set folder = fso.getFolder(server.mappath(".")) ' RET HER: nuværende mappe.. ret evt så det passer med billede-mappen

dim antal_filer
antal_filer = 0
for each file in folder.files
    antal_filer = antal_filer + 1
next

prevpage = start - antal_billeder_per_side
if prevpage < 0 then prevpage = 0

nextpage = start + antal_billeder_per_side
if nextpage >= antal_filer - 1then
    start = antal_filer - antal_billeder_per_side - 1
    nextpage = start
end if

dim c, fx
c = 0 ' tæller antallet af viste billeder
fx = 0 ' antallet af talte filer

%>
<a href="?side=<%= prevpage %>">prev</a>
&nbsp;
<a href="?side=<%= nextpage %>">next</a><hr>
<%

for each file in folder.files
   
    ext = mid(file.name, instrrev(file.name, ".") + 1)
    if instr(ex, "," & ext & ",") = 0 then ' check om der skal linkes til filen

        if c < antal_billeder_per_side then
            if fx >= start then ' se om gruppen af billeder skal vises


            ' RET HER: vis og link til billedet (jeg har sat en max højde på 50 pixels):
            response.write "<a href=""" & file.name & """><img src=""" & file.name & """ height=""50""></a><br>"
       
            c = c + 1
            end if
        end if
   
    fx = fx + 1
    end if
next
%>
Avatar billede hopir Novice
21. juni 2007 - 02:28 #7
det ser godt ud leger lige lidt med det eksempel du kom frem med der :) det var ikke hensigten at score ekstra point med det andet spørgsmål men koden kunne simpelthen ikk stå der og kunne ikke finde nogle steder hvor der står hvordan man deaktiverer et spørgsmål :)
Avatar billede hopir Novice
29. juni 2007 - 15:08 #8
hey har kigget på det og ka godt bruge dit eksempel kan du ikke fortælle mig hvordan jeg får dem til at stå fx. 4 ved siden af hinanden istedet for bare én rækken nedad. jeg har nemlig ikke lige kunne gennemskue det :P
Avatar billede thesurfer Nybegynder
29. juni 2007 - 16:14 #9
Jeg kunne ikke helt få modulus til at virke, så jeg lavede bare en tæller, for at se om der skulle skiftes række..

Der er nu mulighed for at bestemme:

- Hvor mange billeder der skal vises, per side
- Hvor mange billeder der skal vises, per række
- Højden og bredde på billederne


<%
option explicit


dim antal_billeder_per_side
antal_billeder_per_side = 10 ' RET HER: antallet af billeder der skal vises per side:

dim antal_billeder_per_raekke
antal_billeder_per_raekke = 4 ' RET HER: antallet af billeder der skal vises per række:

dim hoejde, bredde
hoejde = 100 ' RET HER: højden på billedet
bredde = 100 ' RET HER: bredden på billedet

dim ex
ex = ",asp,inc," ' RET HER: filtyper der ikke må vises


dim prevpage, nextpage

dim side, start
side = request.querystring("side")
if side = "" then
    start = 0
else
    start = CInt(side)
end if

dim fso,f,folder,file, ext
set fso = server.createobject("Scripting.FileSystemObject")
set folder = fso.getFolder(server.mappath(".")) ' RET HER: nuværende mappe.. ret evt så det passer med billede-mappen

dim antal_filer
antal_filer = 0
for each file in folder.files
    antal_filer = antal_filer + 1
next

prevpage = start - antal_billeder_per_side
if prevpage < 0 then prevpage = 0

nextpage = start + antal_billeder_per_side
if nextpage >= antal_filer - 1then
    start = antal_filer - antal_billeder_per_side - 1
    nextpage = start
end if

dim c, fx
c = 0 ' tæller antallet af viste billeder
fx = 0 ' antallet af talte filer

%>
<a href="?side=<%= prevpage %>">prev</a>
&nbsp;
<a href="?side=<%= nextpage %>">next</a><hr>
<table border="1">
<tr>
<%

dim html, raekke
raekke = 0
for each file in folder.files
   
    ext = mid(file.name, instrrev(file.name, ".") + 1)
    if instr(ex, "," & ext & ",") = 0 then ' check om der skal linkes til filen

        if c <= antal_billeder_per_side - 1then
            if fx >= start then ' se om gruppen af billeder skal vises

                response.write "<td><a href=""" & file.name & """><img src=""" & file.name & """ height=""" & hoejde & """ width=""" & bredde & """></a></td>" & vbCrLf
                'response.write "<td width=""100"">" & c & "<img src=""" & file.name & """ height=""50""></td>"
                raekke = raekke + 1

                if raekke = 4 then
                    response.write "</tr><tr>" & vbCrLf
                    raekke = 0
                end if

                c = c + 1
            end if
        end if
   
    fx = fx + 1
    end if
next
%>
</tr>
</table>
Avatar billede thesurfer Nybegynder
29. juni 2007 - 16:17 #10
Rettelse:


Jeg kunne ikke helt få modulus til at virke, så jeg lavede bare en tæller, for at se om der skulle skiftes række..

Der er nu mulighed for at bestemme:

- Hvor mange billeder der skal vises, per side
- Hvor mange billeder der skal vises, per række
- Højden og bredde på billederne


<%
option explicit

dim antal_billeder_per_side
antal_billeder_per_side = 10 ' RET HER: antallet af billeder der skal vises per side:

dim antal_billeder_per_raekke
antal_billeder_per_raekke = 4 ' RET HER: antallet af billeder der skal vises per række:

dim hoejde, bredde
hoejde = 100 ' RET HER: højden på billedet
bredde = 100 ' RET HER: bredden på billedet

dim ex
ex = ",asp,inc," ' RET HER: filtyper der ikke må vises


dim prevpage, nextpage

dim side, start
side = request.querystring("side")
if side = "" then
    start = 0
else
    start = CInt(side)
end if

dim fso,f,folder,file, ext
set fso = server.createobject("Scripting.FileSystemObject")
set folder = fso.getFolder(server.mappath(".")) ' RET HER: nuværende mappe.. ret evt så det passer med billede-mappen

dim antal_filer
antal_filer = 0
for each file in folder.files
    antal_filer = antal_filer + 1
next

prevpage = start - antal_billeder_per_side
if prevpage < 0 then prevpage = 0

nextpage = start + antal_billeder_per_side
if nextpage >= antal_filer - 1then
    start = antal_filer - antal_billeder_per_side - 1
    nextpage = start
end if

dim c, fc
c = 0 ' tæller antallet af viste billeder
fc = 0 ' antallet af talte filer

%>
<a href="?side=<%= prevpage %>">prev</a>
&nbsp;
<a href="?side=<%= nextpage %>">next</a><hr>
<table border="1">
<tr>
<%

dim html, raekke
raekke = 0
for each file in folder.files
   
    ext = mid(file.name, instrrev(file.name, ".") + 1)
    if instr(ex, "," & ext & ",") = 0 then ' check om der skal linkes til filen

        if c <= antal_billeder_per_side - 1then
            if fc >= start then ' se om gruppen af billeder skal vises

                response.write "<td><a href=""" & file.name & """><img src=""" & file.name & """ height=""" & hoejde & """ width=""" & bredde & """></a></td>" & vbCrLf

                raekke = raekke + 1
                if raekke = 4 then
                    response.write "</tr><tr>" & vbCrLf
                    raekke = 0
                end if

                c = c + 1
            end if
        end if
   
    fc = fc + 1
    end if
next
%>
</tr>
</table>
Avatar billede hopir Novice
01. juli 2007 - 12:07 #11
Tak for hjælpen thesurfer :) så ka jeg komme videre
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Programmeringssprog kurser
Kurser inden for grundlæggende programmering
Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel Indlæg Oprettet Seneste aktivitet
Lost focus Af bsn i ASP 1 07/11/202415:34 01/01/202514:58
ASP classic Af bsn i ASP 8 28/10/202423:11 30/10/202422:51
Classic - filer vist med sidste fil først Af bsn i ASP 5 23/05/202409:56 24/05/202400:02
Optimer MySql table med ASP Af poulmadsen i ASP 4 26/04/202417:16 26/04/202418:37
JSON Af ingeman i ASP 3 07/04/202417:53 08/04/202412:09
Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I går 21:11 Hvordan får jeg reCAPTCHA på min hjemmeside? Af Strawberry i PHP
I går 16:10 Tomt felt i Start Af ErikHg i Windows
19/0123:00 Hyperlink til tekst Af Nanarsi i Excel
18/0121:03 Forlænge ringetid Af 1Dorte i Apps til Android
17/0117:38 Video ikoner Af Malm i Windows
White papers
Flere white papers »