Billede upload

er med på en lytter

mener du bare et almindeligt asp upload system med underliggende acces database?

Hvad ved jeg?...sikkert nok!

30 points er ikke så meget:-) hørte jeg ikke lige 300?

30 points er ikke så meget:-) hørte jeg ikke lige 300?

Det kommer an på scriptet og om det bruger et gratis komponent!

jeg har et upload script uden komponenter...

det uden, er godtnok uden database :-)

Kan det laves med? ...altså jeg kan asp bare ik lige det med upload da det er første forsøg :)

Må hellere sige generelt ASP inden nogen brokker sig..heh

Hvad mener du? den eneste forskel på de to upload systemer er at den ene har database og den anden ikke har, selvfølgelig er der også lidt forskel i scriptet, ellers kan det jo ikke virke
:-) | (-:

Hm..og det er med komponenterne?

ja...

300 it is then, bare send den til korny@worldonline.dk ..sender du begge?

send lige til tpiil@funz.dk også!

300 pr. styk vil du have begge eller?

Så skal du vel selv af med 300? :)

Jeg har en fuldstændig designet billede-database i asp med upload uden komponent.
Man kan oprette kattegorier og underkategorier, vist billeder i preview og klikke på dem for stor størrelse, hvis det er noget du kunne tænke dig at se, kan jeg ligge en på nettet så du kan prøve den.

Vil da gerne se - nok ikke røre (hvis det koster:)

Jow tak :)

Jeg prøver at få tid til at ligge en på i løbet af i morgen......så hold åbent lidt endnu

Jeg venter..

Kommer lige om lidt....

Så er den her

http://www.idebanken.dk/billededb

Du kan oprette kategorier og underkategorier

oprette ny reference med billedeupload
Prøv at kig lidt på den om det ikke er det, så kan du få en zip.

Det kan jo let omskrives til hvad som helst

en chat ville det være svært at om skrive til :-) *GgGgGg*

Nå...ja, ja, ja....sådan en kan du da også få.....;-)

http://www.idebanken.dk/jackson/chat

send lige zip filerne til både det der billedfis og chatten til: Bjorn.B@mail1.stofanet.dk

Værsgo\' ....det må da gi lidt point hva\' ;-)

Mig hvorfor skulle jeg? i følge eksperten.dk\'s politik er jeg ikke beretiget til at give dig et eneste point!!

Det var bare for sjov.....;o|

Hejsa....

Du kan bruge aspSmartUpload den er freeware - og kan det du der ønsker.
du kan hente den her:.
http://www.aspSmart.com

Her er et eksempel hvori jeg selv har brugt det.

<%
\'  Variables
\'  *********
  Dim mySmartUpload
  Dim file
  Dim Conn
\'  Dim Rs
  Dim intCount
  intCount=0
       
\'  Object creation
\'  ***************
  Set mySmartUpload = Server.CreateObject(\"aspSmartUpload.SmartUpload\")

\'  Upload
\'  ******
  mySmartUpload.Upload

\'  Only allow jpg or gif files
\'  ***************************
  mySmartUpload.AllowedFilesList = \"gif,jpg,pjpeg,jpeg\"

\'  Only allow files smaller than 100000 bytes
\'  *****************************************
  mySmartUpload.MaxFileSize = 100000

\'  Connect to the DB
\'  *****************
  Set Conn = Server.CreateObject(\"ADODB.Connection\")
  curDir = Server.MapPath(\"../../profil/profil.mdb\")
  Conn.Open \"DBQ=\"& curDir &\";Driver={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;\"

\'  Open a recordset
\'  ****************
    strSQL = \"SELECT * FROM brugere WHERE brugernavn =\'\" & session(\"bruger\") &\"\'\"
 
    Set Rs = Server.CreateObject(\"ADODB.recordset\")
    Set Rs.ActiveConnection = Conn
    Rs.Source = strSQL
    Rs.LockType = 3
    Rs.Open

\'  Select each file
\'  ****************

  For each file In mySmartUpload.Files
  \'  Only if the file exist
  \'  **********************
      If not file.IsMissing Then

      \'  Add the current file in a DB field
      \'  **********************************
        file.FileToField Rs.Fields(\"FILE\")
          Rs(\"FILENAME\") = file.FileName
\'          Rs(\"newname\") = mySmartUpload.form(\"newname\")
          Rs.Update
        intCount = intCount + 1
      End If
  Next

\'  Save the files with their original names in a virtual path of the web server
\'  ****************************************************************************
\'  intCount = mySmartUpload.Save(\"../profil/images\")
    \' sample with a physical path
    \' intCount = mySmartUpload.Save(\"c:\\temp\\\")

\'  Display the number of files uploaded
\'  ************************************
\'  Response.Write(intCount & \" file(s) uploaded.<BR>\")

\'  Destruction
\'  ***********
  Rs.Close
  Conn.Close
  Set Rs = Nothing
  Set Conn = Nothing
   
  Response.write(\"<meta http-equiv=\'refresh\' content=\'2;URL=bruger.asp\'>\")
%>

Mvh
Jack!!

Ellers tak...jeg har løst det :)