Søg
Avatar billede autohh Nybegynder
06. november 2004 - 16:02 Der er 3 kommentarer og
1 løsning

Forbedring af Newssytem

Hejsa så skal admin delen skam lige forbedres en smule :P

Vil gerne have at der kommer en lille dropdown boks hvor der står alle de billed filer jeg har i den mappe og viser dem..

Altser - Bro.Jpg              Dog kun vise Jpg og Gif filer..
        Update.Gif
        Osv.gif                Preview


Her er min admin del som den ser ud nu.

<form method="POST" action="godkend.asp" onsubmit="return validate(this);" name="opretform0submit1">
<p align="center">
  Overskrift:<input type="text" name="overskrift" size="20"></p>
<p align="center">
   
    Af:<input type="text" name="nyhed" size="20"></p>
<p align="center">
Billede:<input type="text" name="af" size="40">
    (link)</p>
<p align="center">
    <td><font size="1" face="Verdana">
    Nyhed:</font></td>
    <td><font size="1" face="Verdana">
    <INPUT TYPE="text" NAME="billede" size="20"></font></td></p>
<p align="center">

  <input type="submit" value="opret" name="B1"></p>
<p align="center">
</p>
 
<p align="center">
</p>
 
  </p>
  </form>
Avatar billede hiks Nybegynder
08. november 2004 - 11:47 #1
hej

lige lidt inspiration som du burde kunne løse dit problem udfra:

<%@ Language=VBScript %>
<HTML>
<HEAD>
</HEAD>
<BODY>

<P>
<%
Path = "images" 'ændre til din foldernavn her!!!

Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set MyFolder = fso.GetFolder(Server.MapPath(path))

    Response.Write "Din folders indhold her i dropdown: <BR>"
   
    Response.Write "<SELECT id=""select1"" name=""select1"">"
    FOR EACH thing in MyFolder.Files
        If thing.type = "Compuserv GIF Image" OR thing.type = "JPEG Image" Then
            Response.Write "<OPTION VALUE='" & path & "\" & thing.Name & "'>" & thing.Name & "</OPTION>"
        End if
    NEXT
    Response.Write "</SELECT><BR>"

    Response.Write "Din folders indhold her som liste: <br>"
    Response.Write "<TABLE WIDTH='500'>"
    Response.Write "<TR><TH>Filnavn</TH><TH>Størrelse</TH><TH>Type</TH><TH>Oprettet</TH></TR>"

    FOR EACH thing in MyFolder.Files
        If thing.type = "Compuserv GIF Image" OR thing.type = "JPEG Image" Then
            Response.Write "<TR><TD><A HREF='" & path & "\" & thing.Name & "'>" & thing.Name & "</A></TD><TD ALIGN=RIGHT><CENTER>" & thing.Size & " bytes</TD><TD><CENTER>" & thing.Type & "</TD><TD><CENTER>" &thing.DateCreated & "</TD><TR>"
        End if
    NEXT

    Response.Write "</TABLE>"

%>

</P>

</BODY>
</HTML>

Spørg endelig hvis der er noget!

/hiks
Avatar billede autohh Nybegynder
25. november 2004 - 21:29 #2
Ka jeg ikke bruge til noget, tid til at lukke vel..
Avatar billede hiks Nybegynder
25. november 2004 - 21:59 #3
Du skriver:

Vil gerne have at der kommer en lille dropdown boks hvor der står alle de billed filer jeg har i den mappe og viser dem..

Hvad er det den kode der gør? Har du prøvet at køre den?

/hiks
Avatar billede autohh Nybegynder
04. april 2005 - 08:17 #4
Hiks. ja har prøvet og køre den, mit webhotel understøtter ikke fso.
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 går 14:53 TV4ever 3.0 Af valby i Diverse
01/0816:21 Installere Ubuntu på Virtuel Maskine Af Uvanga i Andet software
01/0809:38 Microsoft har igen ødelagt mit højreklik Af valby i Windows
30/0714:41 To mails fra YouSee - Jeg tror ikke altid på tilfældigheder Af mort1 i Andet sikkerhed
27/0714:34 Hjælp til at kunne skanne negativer på Plustek 8300i SE Af Mariann i Foto & video
White papers
Flere white papers »