Avatar billede sarid Nybegynder
05. september 2002 - 18:18 Der er 4 kommentarer

Upload

Jeg er ved at lave noget fil-upload. Jeg kan godt finde ud af at uploade en fil og lægge den i en bestemt folder. Men jeg skal også have fat i filnavnet, som skal registreres i databasen.

Jeg browser efter filen i denne form:

  <FORM METHOD="POST" ENCTYPE="multipart/form-data" ACTION="upload.asp">
      <INPUT TYPE="FILE" SIZE="51" NAME="FILE1" style="font-size: 11px;"><BR>
      <INPUT TYPE=SUBMIT VALUE="Upload billede" style="font-size: 10px;">
  </FORM>

hvilket modtages i upload.asp, som ser sådan ud:

  Set Upload = Server.CreateObject("Persits.Upload")
  Upload.OverwriteFiles = False
  Count = Upload.Save ("d:/www/kalabassen.dk/www/Billeder")
  Response.Write Count & " file(er) uploaded til serveren"

Jeg har forsøgt med File.Filename, men det kan den ikke forstå. Har du et forslag?
Avatar billede exp-ralle Nybegynder
05. september 2002 - 18:29 #1
File.Name prøv det...
Avatar billede jpj3 Nybegynder
05. september 2002 - 23:37 #2
form.htm

<HTML>


<BODY BGCOLOR="#FFFFFF">

<FORM METHOD="POST" ENCTYPE="multipart/form-data" ACTION="upload.asp">
    <br>
    Navn
    <input type="text" name="Navn">
    <br>
  <p>
    <INPUT TYPE= FILE SIZE= 60 NAME="FILE1">
    <BR>
    <INPUT TYPE="SUBMIT" VALUE="Upload!">
  </p>
</FORM>

</BODY>

</HTML>

**********************************
upload.asp

<html>
<body>

<%
    Set Upload = Server.CreateObject("Persits.Upload.1")   
    Upload.OverwriteFiles = True
    Upload.SetMaxSize 300000, True
    Upload.SaveVirtual("../profil/foto/")
   
'For Each item in Upload.Form   
set     Str_Navn             = Upload.Form("Navn")
   


For Each File in Upload.Files

  Dim FileName
  FileName = File.ExtractFileName

    if Err <> 0 Then

        Response.Write "Der er sket en fejl! : " & Err.Description

    Else
   
        Response.Write "Filen "&FileName&" er uploaded!<br>"
       
   
        dbConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\home\website\db\billed.mdb;"


        strSQL = "SELECT * FROM profil"
        Set rs = Server.CreateObject("ADODB.RecordSet")
        rs.Open strSQL, dbConnection, 1, 3

            rs.AddNew
            rs("Navn")            = Str_Navn
            rs("Billed")          = FileName

            rs.Update   
            rs.Close
        Set rs = Nothing

        Response.Redirect "forside.asp"
       
    End If
Next


%>



</body>

</html>
Avatar billede jpj3 Nybegynder
05. september 2002 - 23:39 #3
Upload.OverwriteFiles = True
Skal selvfølgelig være
Upload.OverwriteFiles = false
Avatar billede exp-ralle Nybegynder
01. oktober 2002 - 17:50 #4
Hallo...
Kan du ikke lukke dette spørgsmål sarid?
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