Avatar billede sesam Nybegynder
02. marts 2005 - 10:50 Der er 3 kommentarer og
1 løsning

Upload billede til server + gem navn i database

Hej
Jeg sidder lige og rodder med et upload script fra http://www.dandomain.dk/

aspSmartUpload

Jeg vil gerne kunne uploade et billede til serveren og gemme navnet i en databse plus en overskrift + indhold

Er der en der kan hjælpe mig med det:

SQL:

sqlkode = "INSERT INTO nyheder(billede, overskrift, tekst) VALUES('" & File.Filename & "', '" & Upload.Form("overskrift") & "','" & Upload.Form("nyhed") & "')"

aspSmartUpload (fra deres hjemmeside http://www.aspsmart.com/aspSmartUpload/)

<%
'  Variables
'  *********
  Dim mySmartUpload
  Dim file
  Dim oConn
  Dim strSQL
  Dim oRs
  Dim intCount
  intCount=0
       
'  Object creation
'  ***************
  Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")

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

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

'  Open a recordset
'  ****************
  strSQL = "SELECT FILENAME,FILE FROM TFILES"

  Set oRs = Server.CreateObject("ADODB.recordset")
  Set oRs.ActiveConnection = oConn
  oRs.Source = strSQL
  oRs.LockType = 3
  oRs.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
      '  **********************************
        oRs.AddNew
        file.FileToField oRs.Fields("FILE")
        oRs("FILENAME") = file.FileName
        oRs.Update
        intCount = intCount + 1
      End If
  Next

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

'  Destruction
'  ***********
  oRs.Close
  oConn.Close
  Set oRs = Nothing
  Set oConn = Nothing
%>
Avatar billede steffansteffan Nybegynder
02. marts 2005 - 11:26 #1
Hvis det var noget er her et upload system der gør det samme som det du har der, bare uden en Kompoment.
www.pcfreek.dk/hol/uploadsystem.zip

Det uploader et billede, der for filnavn efter dato. Overskrift, Tekst, og sti kommer i en database.
Måske det var noget? ved self ik om du vil bruge ASPSmartUpload?
Avatar billede fennec Nybegynder
02. marts 2005 - 11:33 #2
Du burde bare smide sql'en ind i file loopet:

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
      '  **********************************
        oRs.AddNew
        file.FileToField oRs.Fields("FILE")
        oRs("FILENAME") = file.FileName
        oRs.Update
        oConn.execute("INSERT INTO nyheder(billede, overskrift, tekst) VALUES('" & File.Filename & "', '" & Upload.Form("overskrift") & "','" & Upload.Form("nyhed") & "')")
        intCount = intCount + 1
      End If
  Next
Avatar billede sesam Nybegynder
03. marts 2005 - 11:38 #3
fennec kender du til aspSmartUpload ?
Hvis ja
Jeg kan ikke få det til at fungere, har du et eksempel liggende som jeg må se?
Hvis Nej
ØV!
Avatar billede sesam Nybegynder
07. marts 2005 - 11:08 #4
Jeg har betalt mig til en løsning, ellers tak for hjælpen...
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