Avatar billede zetn Nybegynder
08. juni 2004 - 14:53 Der er 14 kommentarer og
1 løsning

Liste alle billeder og link?

Hvordan lister jeg alle billedet under hinanden der findes i en mappe?

Det skal nemlig være sådan at når jeg klikker på billedet, skal stien til billedet komme i en form længere oppe. (fx www.x.dk/images/x.gif)

Nogen der kan hjælpe?
Avatar billede eagleeye Praktikant
08. juni 2004 - 19:25 #1
Eks på koden som lister alle billederne, du kan rette linket sådan det passer med din javascxript funktion der ligger navnet ind i text feltet:


  Set fs = CreateObject("Scripting.FileSystemObject")
  Set f = fs.GetFolder(server.mappath("."))

  Set fc = f.Files
  For Each billed in fc
    if inStr(1,"gif,jpg,jpeg,bmp",LCase(fs.GetExtensionName(billed.name))) > 0 then
      Response.Write "<a href=""java script:;"" onClick=""dinfunktion('" & billed.name &"');""><img src=""" & billed.name & """></a>"
    end if
  next
Avatar billede zetn Nybegynder
08. juni 2004 - 20:57 #2
hvordan ville teksten der smed det op i et text felt så se ud?
Avatar billede eagleeye Praktikant
08. juni 2004 - 21:01 #3
Enten skal du lave det via et javascript eller sådan sider loader sig selv med filnavnet?
Avatar billede zetn Nybegynder
08. juni 2004 - 21:03 #4
Vha. javascript - det skal nemlig også være sådan at hvis man lige pludselig klikker på et andet billede, skriver den stien til dette i stedet for.
Avatar billede eagleeye Praktikant
08. juni 2004 - 21:06 #5
Eks på kodne er:

<script>
function addfil(filnavn) {
  document.frm1.fil.value = "www.server.dk/" + filnavn;
}
</script>


<form name="frm1">
<input type="text" name="fil">
</form>
<%
  Set fs = CreateObject("Scripting.FileSystemObject")
  Set f = fs.GetFolder(server.mappath("."))

  Set fc = f.Files
  For Each billed in fc
    if inStr(1,"gif,jpg,jpeg,bmp",LCase(fs.GetExtensionName(billed.name))) > 0 then
      Response.Write "<a href=""java script:;"" onClick=""addfil('" & billed.name &"');""><img src=""" & billed.name & """></a>"
    end if
  next
%>
Avatar billede zetn Nybegynder
08. juni 2004 - 21:09 #6
skal stien skrives som: Set f = fs.GetFolder(server.mappath("images/")) ?
Avatar billede zetn Nybegynder
08. juni 2004 - 21:14 #7
har fundet ud af det :) takker mange gange..
Avatar billede eagleeye Praktikant
08. juni 2004 - 21:15 #8
Ja men det skal vist være sådan her, så kan stien også bruges til selve visningen af billet:


<%
  sti = "images/"
  Set fs = CreateObject("Scripting.FileSystemObject")
  Set f = fs.GetFolder(server.mappath(sti))

  Set fc = f.Files
  For Each billed in fc
    if inStr(1,"gif,jpg,jpeg,bmp",LCase(fs.GetExtensionName(billed.name))) > 0 then
      Response.Write "<a href=""java script:;"" onClick=""addfil('" & sti & billed.name &"');""><img src=""" & sti & billed.name & """></a>"
    end if
  next
%>
Avatar billede eagleeye Praktikant
08. juni 2004 - 21:15 #9
ok :)
Avatar billede zetn Nybegynder
08. juni 2004 - 21:32 #10
Når jeg smider det ind i den side jeg skal bruge melder det fejl pga. det er inde i en form. Er der ikke mulighed for at lave det så du kun definerer navnet på feltet og ikke formen?
Avatar billede eagleeye Praktikant
08. juni 2004 - 21:38 #11
Ja men så skal funktionen også rettes ´sådan den bruger javascript getElementById eller kan man ikke ligge noget ind i value hvis input feltet ikke er på en form. Samt give inputet feltet et id:


Den nye funktion:

function addfil(filnavn) {
  document.getElementById("fil").value = "www.server.dk/" + filnavn;
}
</script>


Sådan skal input feltet være:
<input type="text" name="fil" id="fil">
Avatar billede zetn Nybegynder
08. juni 2004 - 21:44 #12
synes ikke rigtig jeg kan få det til at virke... den åbner bare et nyt vindue med URL: java script:;
Det er til en online html editor... Der hvor man vælger billede og der hvor jeg skal bruge det ser sådan her ud:

<!-- based on insimage.dlg -->

<!DOCTYPE HTML PUBLIC "-//W3C//DTD W3 HTML 3.2//EN">
<HTML  id=dlgImage STYLE="width: 440px; height: 500px; ">
<HEAD>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<meta http-equiv="MSThemeCompatible" content="Yes">
<TITLE>Insert Image</TITLE>
<style>
  html, body, button, div, input, select, fieldset { font-family: MS Shell Dlg; font-size: 8pt; position: absolute; };
</style>
<SCRIPT defer>

function _CloseOnEsc() {
  if (event.keyCode == 27) { window.close(); return; }
}

function _getTextRange(elm) {
  var r = elm.parentTextEdit.createTextRange();
  r.moveToElementText(elm);
  return r;
}

window.onerror = HandleError

function HandleError(message, url, line) {
  var str = "An error has occurred in this dialog." + "\n\n"
  + "Error: " + line + "\n" + message;
  alert(str);
  window.close();
  return true;
}

function Init() {
  var elmSelectedImage;
  var htmlSelectionControl = "Control";
  var globalDoc = window.dialogArguments;
  var grngMaster = globalDoc.selection.createRange();
 
  // event handlers 
  document.body.onkeypress = _CloseOnEsc;
  btnOK.onclick = new Function("btnOKClick()");

  txtFileName.fImageLoaded = false;
  txtFileName.intImageWidth = 0;
  txtFileName.intImageHeight = 0;

  if (globalDoc.selection.type == htmlSelectionControl) {
    if (grngMaster.length == 1) {
      elmSelectedImage = grngMaster.item(0);
      if (elmSelectedImage.tagName == "IMG") {
        txtFileName.fImageLoaded = true;
        if (elmSelectedImage.src) {
          txtFileName.value          = elmSelectedImage.src.replace(/^[^*]*(\*\*\*)/, "$1");  // fix placeholder src values that editor converted to abs paths
          txtFileName.intImageHeight = elmSelectedImage.height;
          txtFileName.intImageWidth  = elmSelectedImage.width;
          txtVertical.value          = elmSelectedImage.vspace;
          txtHorizontal.value        = elmSelectedImage.hspace;
          txtBorder.value            = elmSelectedImage.border;
          txtAltText.value          = elmSelectedImage.alt;
          selAlignment.value        = elmSelectedImage.align;
        }
      }
    }
  }
  txtFileName.value = txtFileName.value || "http://";
  txtFileName.focus();
}

function _isValidNumber(txtBox) {
  var val = parseInt(txtBox);
  if (isNaN(val) || val < 0 || val > 999) { return false; }
  return true;
}

function btnOKClick() {
  var elmImage;
  var intAlignment;
  var htmlSelectionControl = "Control";
  var globalDoc = window.dialogArguments;
  var grngMaster = globalDoc.selection.createRange();
 
  // error checking

  if (!txtFileName.value || txtFileName.value == "http://") {
    alert("Image URL must be specified.");
    txtFileName.focus();
    return;
  }
  if (txtHorizontal.value && !_isValidNumber(txtHorizontal.value)) {
    alert("Horizontal spacing must be a number between 0 and 999.");
    txtHorizontal.focus();
    return;
  }
  if (txtBorder.value && !_isValidNumber(txtBorder.value)) {
    alert("Border thickness must be a number between 0 and 999.");
    txtBorder.focus();
    return;
  }
  if (txtVertical.value && !_isValidNumber(txtVertical.value)) {
    alert("Vertical spacing must be a number between 0 and 999.");
    txtVertical.focus();
    return;
  }

  // delete selected content and replace with image
  if (globalDoc.selection.type == htmlSelectionControl && !txtFileName.fImageLoaded) {
    grngMaster.execCommand('Delete');
    grngMaster = globalDoc.selection.createRange();
  }
   
  idstr = "\" id=\"556e697175657e537472696e67";    // new image creation ID
  if (!txtFileName.fImageLoaded) {
    grngMaster.execCommand("InsertImage", false, idstr);
    elmImage = globalDoc.all['556e697175657e537472696e67'];
    elmImage.removeAttribute("id");
    elmImage.removeAttribute("src");
    grngMaster.moveStart("character", -1);
  } else {
    elmImage = grngMaster.item(0);
    if (elmImage.src != txtFileName.value) {
      grngMaster.execCommand('Delete');
      grngMaster = globalDoc.selection.createRange();
      grngMaster.execCommand("InsertImage", false, idstr);
      elmImage = globalDoc.all['556e697175657e537472696e67'];
      elmImage.removeAttribute("id");
      elmImage.removeAttribute("src");
      grngMaster.moveStart("character", -1);
      txtFileName.fImageLoaded = false;
    }
    grngMaster = _getTextRange(elmImage);
  }

  if (txtFileName.fImageLoaded) {
    elmImage.style.width = txtFileName.intImageWidth;
    elmImage.style.height = txtFileName.intImageHeight;
  }

  if (txtFileName.value.length > 2040) {
    txtFileName.value = txtFileName.value.substring(0,2040);
  }
 
  elmImage.src = txtFileName.value;
 
  if (txtHorizontal.value != "") { elmImage.hspace = parseInt(txtHorizontal.value); }
  else                          { elmImage.hspace = 0; }

  if (txtVertical.value != "") { elmImage.vspace = parseInt(txtVertical.value); }
  else                        { elmImage.vspace = 0; }
 
  elmImage.alt = txtAltText.value;

  if (txtBorder.value != "") { elmImage.border = parseInt(txtBorder.value); }
  else                      { elmImage.border = 0; }

  elmImage.align = selAlignment.value;
  grngMaster.collapse(false);
  grngMaster.select();
  window.close();
}
</SCRIPT>



<script>
function addfil(filnavn) {
  document.getElementById("txtFileName").value = "www.server.dk/" + filnavn;
}
</script>



</HEAD>
<BODY id=bdy onload="Init()" style="background: threedface; color: windowtext;" scroll=yes>

<DIV id=divFileName  style="left: 0.98em; top: 1.2168em; width: 7em; height: 1.2168em; ">Image URL:</DIV>
<INPUT ID='txtFileName' name='fil' type=text style="left: 8.54em; top: 1.0647em; width: 21.5em;height: 2.1294em; " tabIndex=10 onfocus="select()">

<DIV id=divAltText style="left: 0.98em; top: 4.1067em; width: 6.58em; height: 1.2168em; ">Alternate Text:</DIV>
<INPUT type=text ID=txtAltText tabIndex=15 style="left: 8.54em; top: 3.8025em; width: 21.5em; height: 2.1294em; " onfocus="select()">

<FIELDSET id=fldLayout style="left: .9em; top: 7.1em; width: 17.08em; height: 7.6em;">
<LEGEND id=lgdLayout>Layout</LEGEND>
</FIELDSET>

<FIELDSET id=fldSpacing style="left: 18.9em; top: 7.1em; width: 11em; height: 7.6em;">
<LEGEND id=lgdSpacing>Spacing</LEGEND>
</FIELDSET>

<DIV id=divAlign style="left: 1.82em; top: 9.126em; width: 4.76em; height: 1.2168em; ">Alignment:</DIV>
<SELECT size=1 ID=selAlignment tabIndex=20 style="left: 10.36em; top: 8.8218em; width: 6.72em; height: 1.2168em; ">
<OPTION id=optNotSet value=""> Not set </OPTION>
<OPTION id=optLeft value=left> Left </OPTION>
<OPTION id=optRight value=right> Right </OPTION>
<OPTION id=optTexttop value=textTop> Texttop </OPTION>
<OPTION id=optAbsMiddle value=absMiddle> Absmiddle </OPTION>
<OPTION id=optBaseline value=baseline SELECTED> Baseline </OPTION>
<OPTION id=optAbsBottom value=absBottom> Absbottom </OPTION>
<OPTION id=optBottom value=bottom> Bottom </OPTION>
<OPTION id=optMiddle value=middle> Middle </OPTION>
<OPTION id=optTop value=top> Top </OPTION>
</SELECT>

<DIV id=divHoriz style="left: 19.88em; top: 9.126em; width: 4.76em; height: 1.2168em; ">Horizontal:</DIV>
<INPUT ID=txtHorizontal style="left: 24.92em; top: 8.8218em; width: 4.2em; height: 2.1294em; ime-mode: disabled;" type=text size=3 maxlength=3 value="" tabIndex=25 onfocus="select()">

<DIV id=divBorder style="left: 1.82em; top: 12.0159em; width: 8.12em; height: 1.2168em; ">Border Thickness:</DIV>
<INPUT ID=txtBorder style="left: 10.36em; top: 11.5596em; width: 6.72em; height: 2.1294em; ime-mode: disabled;" type=text size=3 maxlength=3 value="" tabIndex=21 onfocus="select()">

<DIV id=divVert style="left: 19.88em; top: 12.0159em; width: 3.64em; height: 1.2168em; ">Vertical:</DIV>
<INPUT ID=txtVertical style="left: 24.92em; top: 11.5596em; width: 4.2em; height: 2.1294em; ime-mode: disabled;" type=text size=3 maxlength=3 value="" tabIndex=30 onfocus="select()">

<BUTTON ID=btnOK style="left: 31.36em; top: 1.0647em; width: 7em; height: 2.2em; " type=submit tabIndex=40>OK</BUTTON>
<BUTTON ID=btnCancel style="left: 31.36em; top: 3.6504em; width: 7em; height: 2.2em; " type=reset tabIndex=45 onClick="window.close();">Cancel</BUTTON>

<%
  Set fs = CreateObject("Scripting.FileSystemObject")
  Set f = fs.GetFolder(server.mappath("images\"))

  Set fc = f.Files
  For Each billed in fc
    if inStr(1,"gif,jpg,jpeg,bmp",LCase(fs.GetExtensionName(billed.name))) > 0 then
      Response.Write "<a href=""java script:;"" onClick=""addfil('" & billed.name &"');""><img border='' src=""images/" & billed.name & """></a><br><br>"
    end if
  next
%>


</BODY>
</HTML>
Avatar billede eagleeye Praktikant
08. juni 2004 - 21:52 #13
Umiddelbart skulle der ikke være noget galt??
Jeg har prøvet at copy/paste din kode og det virker fint.
Avatar billede zetn Nybegynder
08. juni 2004 - 21:53 #14
Det er i en editor, når jeg trykker indsæt billede popper et nyt vindue med det frem - kan det være pga. det er i et pop up vindue?
Avatar billede eagleeye Praktikant
08. juni 2004 - 22:01 #15
Det ved jeg ikke.
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
Kurser inden for grundlæggende programmering

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.

Du kan også logge ind via nedenstående tjenester

Seneste spørgsmål Seneste aktivitet
I dag 10:21 Ny printer, men hvilken Af mort1 i Printere
I går 19:41 USB på Linux Af Uvanga i Linux
12/0818:26 Hvilken type mus Af mort1 i PC
11/0813:21 ms Forms Af leahcim i Andet software
10/0821:30 Blokeret på Snapchat? Af LineP i Chat & Messaging