Søg
Avatar billede cronck Nybegynder
29. april 2004 - 12:26 Der er 29 kommentarer og
1 løsning

Gennemse billedemappe i ASP

Hej eksperter...
Hvor kan jeg finde et script jeg kan få til at gennemse mine jpg billeder i mappen img/items ?
Jeg regner med at loope hver enkelt fil, og så liste dem med et link i en tabel...
Avatar billede and_ Nybegynder
29. april 2004 - 12:30 #1
Du skal selvfølgelig selv lige rette det til :)

            <table border="0" cellpadding="0" cellspacing="0" class="ramme" width="100%">           
           
            <%
            sti = server.mappath("../filarkiv/billeder")
           
            set visfilsystem = server.createobject("Scripting.FileSystemObject")
            set mappe = visfilsystem.getfolder(sti)
           
            baggrundsfarve = "#ffffff"
           
            for each file in mappe.files
               
                if baggrundsfarve = "#ffffff" then baggrundsfarve = "#c6c6c6" else baggrundsfarve = "#ffffff" end if
               
            filnavn = file.name
            %>

                <tr>
                    <td width="3" bgcolor="<%=baggrundsfarve%>"><img src="gfx/pix.gif" width="1" height="1" border="0" alt=""></td>
                    <td bgcolor="<%=baggrundsfarve%>">
                        <a href="java script:valgt('<%=filnavn%>')" class="visfiler"><%=filnavn%></a>
                    </td>
                    <td align="right" width="5" bgcolor="<%=baggrundsfarve%>"><a class="visfiler" href="java script:vispic('<%=filnavn%>');">Se</a>&nbsp;<font class="visfiler">|</font>&nbsp;<a href="java script:sletpic('<%=filnavn%>');" class="visfiler">Slet</a></td>
                    <td width="3" bgcolor="<%=baggrundsfarve%>"><img src="gfx/pix.gif" width="1" height="1" border="0" alt=""></td>
                </tr>

            <%
            next
            set visfilsystem = nothing
            %>

            </table>
Avatar billede hehlers Nybegynder
29. april 2004 - 12:31 #2
I dette eksempel vises alle billeder i en bestemt mappe i en dropdownmenu....
---------------------------
<%                   
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")                   
Set objFolder = objFSO.GetFolder(Server.MapPath("image/profiler/"))

Dim objFS, objBaseFolder, objFiles, f1, subfolder, fe, imageUrl
Redim imageUrl(-1)
myPath = "image/profiler/"
folderspec=Server.MapPath(myPath)


        <SELECT name="billede" size="1" class="inputLogin" id="billede" cols="40">
                            <option value="">Ingen fil</option>
                            <% For Each objFile in objFolder.Files %>
                              <option value="<%=objFile.Name%>"
                             
                            ><%=objFile.Name%>
                              <% next
                                Set objFolder = Nothing
                                Set objFile = Nothing
                                Set objFSO = Nothing
                                %>
                              </option>
                            </select>
------------------------------------------------
Avatar billede mm12010 Nybegynder
29. april 2004 - 12:31 #3
<%@LANGUAGE="JAVASCRIPT" CODEPAGE="1252"%>
<%
var oFSO=Server.CreateObject("Scripting.FileSystemObject");
var sRoot="/exp/html/gfx/";//her erstatter du stien til den pågældende mappe
var oFolder=oFSO.GetFolder(Server.MapPath(sRoot));

function kommaTal(b){
    tal=String(Math.round(b/1024*100)/100);
    tal=((tal.indexOf(".")==-1)?tal+",00":tal);
    tal=((tal.indexOf(".")==tal.length-2)?tal+"0":tal);
    tal=tal.replace(/\./gi,",");
    return (tal);
    }
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<title>Gennemse billedemappe i ASP</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<style type="text/css">
<!--
body, td, a {
    font-family: Geneva, Arial, Helvetica, sans-serif;
    font-size: 11px;
    color: #000066;
}
#files {
    width:400px;
    border:2px solid black;
    margin:15px;
}
-->
</style>
</head>
<body>
<%
Response.Write("Files in Folder: <strong>\""+sRoot+"\"</strong>");
var eFile=new Enumerator(oFolder.Files);
Response.Write('<table cellspacing="0" cellpadding="2" id="files">');
Response.Write('<tr><td><strong><em>Filnavn</em></strong></td><td><strong><em>Strørrelse</em></strong></td><td><strong><em>Filtype</em></strong></td></tr>');
while(!eFile.atEnd()){
    var oFile=eFile.item();
        Response.Write('<tr><td><a href="'+sRoot+oFile.Name+'"><strong>'+oFile.Name+'</strong></a></td><td>'+kommaTal(oFile.Size)+'KB</td><td>'+oFile.Type+'</td></tr>');
    eFile.moveNext();
    }
Response.Write('</table>');
%>
</body>
</html>
Avatar billede cronck Nybegynder
29. april 2004 - 12:35 #4
Wow... Hvad er bedst? :D
Avatar billede and_ Nybegynder
29. april 2004 - 12:36 #5
Selvom jeg var først, må jeg nok desværre hælde over til mm12010, da han også giver dig et lille stylesheet, samt udregning af størrelse....
Avatar billede cronck Nybegynder
29. april 2004 - 12:37 #6
sådan som jeg ser det, er hehlers den smarteste... Hvad synes en meget avanceret og erfaren asp bruger?
Avatar billede cronck Nybegynder
29. april 2004 - 12:38 #7
and, nåja... måske jeg har skiftet mening... :)
Avatar billede mm12010 Nybegynder
29. april 2004 - 12:42 #8
den er dog ikke lavet med specifikke fil typer men det kan nemt tilføjes hvis du smider en liste med de ønkede formater :-)
Avatar billede mm12010 Nybegynder
29. april 2004 - 12:43 #9
eksempel kan ses her: http://uniquem.dk/exp/asp/491249.asp
Avatar billede cronck Nybegynder
29. april 2004 - 12:45 #10
mm12010, kan du fitte den helt til mit behov?
Billeder ligger i mappen /img/items
og fil typerne er "jpg,jpeg"
Hver anden tabel række skal indeholde skal have klassen "light"

Kan du fikse det?
Avatar billede cronck Nybegynder
29. april 2004 - 12:45 #11
gif, må osse gerne være inkluderet... :)
Avatar billede mm12010 Nybegynder
29. april 2004 - 13:11 #12
jepper - værsgo: http://uniquem.dk/exp/asp/494760.asp
Avatar billede cronck Nybegynder
29. april 2004 - 13:16 #13
Kører den server meget langsomt? Kan ikke komme ind på den...?
Avatar billede cronck Nybegynder
29. april 2004 - 13:17 #14
nåh, nu er jeg der igen... :D
Avatar billede cronck Nybegynder
29. april 2004 - 13:20 #15
Kan du fortælle mig hvad der er galt her?
<!-- #include file = "top.asp" -->
<body text="#FFFFFF">

<%@LANGUAGE="JAVASCRIPT" CODEPAGE="1252"%>
<%
var oFSO=Server.CreateObject("Scripting.FileSystemObject");
var sRoot="/img/items/";
var oFolder=oFSO.GetFolder(Server.MapPath(sRoot));
var filetypes="jpg,jpeg,gif";
var inx=1;
var sClass="";
function kommaTal(b){
tal=String(Math.round(b/1024*100)/100);
tal=((tal.indexOf(".")==-1)?tal+",00":tal);
tal=((tal.indexOf(".")==tal.length-2)?tal+"0":tal);
tal=tal.replace(/\./gi,",");
return (tal);
}
%>
<%
Response.Write("Files in Folder: <strong>\""+sRoot+"\"</strong>");
var eFile=new Enumerator(oFolder.Files);
Response.Write('<table cellspacing="0" cellpadding="2" id="files">');
Response.Write('<tr><td><strong><em>Filnavn</em></strong></td><td><strong><em>Strørrelse</em></strong></td><td><strong><em>Filtype</em></strong></td></tr>');
while(!eFile.atEnd()){
var oFile=eFile.item();
if(filetypes.indexOf(oFSO.GetExtensionName(oFile.Name))>-1) Response.Write('<tr><td'+sClass+'><a href="'+sRoot+oFile.Name+'"><strong>'+oFile.Name+'</strong></a></td><td'+sClass+'>'+kommaTal(oFile.Size)+'KB</td><td'+sClass+'>'+oFile.Type+'</td></tr>');
eFile.moveNext();
inx++;
sClass=(inx%2==0)?' class="light"':'';
}
Response.Write('</table>');
%>
<!-- #include file = "bottom.asp" -->
Avatar billede mm12010 Nybegynder
29. april 2004 - 13:23 #16
hvad indeholder top.asp og bottom.asp?

hvilke fejl får du?

linier med language-angivelser(<%@LANGUAGE="JAVASCRIPT" CODEPAGE="1252"%>) må kun forekomme én pr side
Avatar billede cronck Nybegynder
29. april 2004 - 15:14 #17
jeg får fejl med alle mine ting i top.asp og bottom.asp nu...
Den der codepage laver jo alle mine ting om, så serveren ikke forstår dem..?
Avatar billede cronck Nybegynder
29. april 2004 - 15:15 #18
For eks. Response.Buffer = True laver fejl, og det samme med
Response.ExpiresAbsolute = #2000-01-01#
Response.AddHeader "pragma", "no-cache"
Response.AddHeader "cache-control", "no-cache"
Avatar billede cronck Nybegynder
29. april 2004 - 15:17 #19
Men hvis jeg fjerne begge dele virker det fint...
Jeg vil bare gerne have det sidste med...
Avatar billede and_ Nybegynder
29. april 2004 - 15:19 #20
fjern denne

<%@LANGUAGE="JAVASCRIPT" CODEPAGE="1252"%>
Avatar billede and_ Nybegynder
29. april 2004 - 15:20 #21
nu skal jeg passe på med hvad jeg siger.... jeg havde ikke lige kigget ordentligt på den...

glem hvad jeg sagde ;)
Avatar billede cronck Nybegynder
29. april 2004 - 15:29 #22
Ok... ;-)
Prøver lige at sætte den til 1030 lissom min session.LCID
Avatar billede cronck Nybegynder
29. april 2004 - 15:31 #23
Virkede heller ikk... :)
Avatar billede and_ Nybegynder
29. april 2004 - 15:36 #24
Prøv at kopiere hele din kode ind, som serveren vil fortolke den:

top.asp
dette script
bottom.asp

så det står i en lang køre :)
Avatar billede cronck Nybegynder
29. april 2004 - 18:42 #25
Du får lige en kopi af alle 3 filer...
------------------------------------------------------------------
Top.asp
<%
Session.LCID = 1030
strTheme = Request.Cookies("RuneScapers")("Theme") 
Response.Buffer = True
%>

<html>
<head>
<title>RSFever</title>
<LINK href="style<%=strTheme%>.css" type=text/css rel=stylesheet>
<meta name="Title" content="RuneScapers.com - Your official RuneScape Fan Site!">
<meta name="description" content="This is the great place if you need help with quests, items, monsters... We are going for all skill guides and informations!">
<meta name="keywords" content="smart, password, portal, crack, hack, html, form, asp, source, secret, job, forum, project, free, service, earn, money, cash, Computerassistance, discount, add free, mp3, mp3player, dvd, dvdplayer, playstation, CMTECH, cheats, cheat, ProTeco, Force, Force D-Master, Kiss, casino, ps2, x-box, comfort, games, roleplay, mmorpg, online, free online games, autominer, macroing, auto, mouse, mine, miner, herblore, herblaw, attack, strengt, defence, agility, runecrafting, essences, crafting, smithing, user">
<meta http-equiv='expires' content='1/01/2014 1:00:00 AM'>
<meta http-equiv='Cache-Control' content='must-revalidate'>
<meta http-equiv='Cache-Control' content='no-cache'>
<meta name="robots" content="ALL">
<meta name="DC.title" content="RuneScapers.com - Your official RuneScape Fan Site!">
<meta name="DC.description" content="RuneScapers.com - Your official RuneScape Fan Site!">
<meta name="DC.subject" content="Quest Help, Skill guides">
<meta name="DC.creator" content="CroncK">
<meta name="DC.contributor" content="CroncK">
<meta name="DC.publisher" content="CroncK">
<meta name="DC.language" content="eng">
<meta name="DC.Identifier" content="http://www.frip.dk/cronck/">
</head>
<body text="#FFFFFF">
<center>
<a href="default.asp">Home</a> | <a href="monsters.asp">Monster List</a> | <a href="items.asp">Items List</a> | <a href="themes.asp">Themes</a><br>
<img src="img\line.gif">
</center>
------------------------------------------------------------------
image_list.asp
<!-- #include file = "top.asp" -->
<body text="#FFFFFF">
<%
var oFSO=Server.CreateObject("Scripting.FileSystemObject");
var sRoot="/img/items/";
var oFolder=oFSO.GetFolder(Server.MapPath(sRoot));
var filetypes="jpg,jpeg,gif";
var inx=1;
var sClass="";
function kommaTal(b){
tal=String(Math.round(b/1024*100)/100);
tal=((tal.indexOf(".")==-1)?tal+",00":tal);
tal=((tal.indexOf(".")==tal.length-2)?tal+"0":tal);
tal=tal.replace(/\./gi,",");
return (tal);
}
%>
<%
Response.Write("Files in Folder: <strong>\""+sRoot+"\"</strong>");
var eFile=new Enumerator(oFolder.Files);
Response.Write('<table cellspacing="0" cellpadding="2" id="files">');
Response.Write('<tr><td><strong><em>Filnavn</em></strong></td><td><strong><em>Strørrelse</em></strong></td><td><strong><em>Filtype</em></strong></td></tr>');
while(!eFile.atEnd()){
var oFile=eFile.item();
if(filetypes.indexOf(oFSO.GetExtensionName(oFile.Name))>-1) Response.Write('<tr><td'+sClass+'><a href="'+sRoot+oFile.Name+'"><strong>'+oFile.Name+'</strong></a></td><td'+sClass+'>'+kommaTal(oFile.Size)+'KB</td><td'+sClass+'>'+oFile.Type+'</td></tr>');
eFile.moveNext();
inx++;
sClass=(inx%2==0)?' class="light"':'';
}
Response.Write('</table>');
%>
<!-- #include file = "bottom.asp" -->
------------------------------------------------------------------
bottom.asp
<br><br>
<center>
<img src="img\line.gif"><br>
Copyright 2004 CroncK
</center>
</body>
</html>
<%
Response.ExpiresAbsolute = #2000-01-01#
Response.AddHeader "pragma", "no-cache"
Response.AddHeader "cache-control", "no-cache"
%>
Avatar billede and_ Nybegynder
29. april 2004 - 18:48 #26
dette skal fjernes fra din bottom.asp... det har du allerede defineret oppe i top.asp
<%
Response.ExpiresAbsolute = #2000-01-01#
Response.AddHeader "pragma", "no-cache"
Response.AddHeader "cache-control", "no-cache"
%>
Avatar billede and_ Nybegynder
29. april 2004 - 18:48 #27
og husk denne :

<%@LANGUAGE="JAVASCRIPT" CODEPAGE="1252"%>
Avatar billede and_ Nybegynder
29. april 2004 - 18:50 #28
samt kan du ikke skrive hvad det er for en fejl du får...
Det er svært at hjælpe dig, når vi ikke kender fejlen...
Avatar billede cronck Nybegynder
29. april 2004 - 21:10 #29
Har fjernet de 3 linier, og tilføjet <%@LANGUAGE="JAVASCRIPT" CODEPAGE="1252"%>
i toppen af image_list.asp lige før include'en

Fejltype:
Der opstod en Microsoft JScript-kørselsfejl (0x800A1391)
'True' er ikke defineret
/top.asp, line 4
Avatar billede and_ Nybegynder
29. april 2004 - 21:13 #30
udskift denne i top.asp:

Response.Buffer = True

med:

'Response.Buffer = True
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
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP 9 25/06/202622:20 29/06/202621:55
Tjek alle checkbox i form Af bsn i ASP 4 18/05/202601:57 19/05/202613:33
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
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 dag 12:21 Er det svindel eller fra Microsoft Af mort1 i Andet sikkerhed
I går 11:56 Er det muligt at lave sin egen webserver i boligforening? Af Strawberry i Cloudtjenester
14/0810:21 Ny printer, men hvilken Af mort1 i Printere
13/0819:41 USB på Linux Af Uvanga i Linux
12/0818:26 Hvilken type mus Af mort1 i PC
White papers
Flere white papers »