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?
Annonceindlæg tema
Cloud & AI
I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
05. september 2002 - 18:29
#1
File.Name prøv det...
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>
05. september 2002 - 23:39
#3
Upload.OverwriteFiles = True Skal selvfølgelig være Upload.OverwriteFiles = false
01. oktober 2002 - 17:50
#4
Hallo... Kan du ikke lukke dette spørgsmål sarid?
Kurser inden for grundlæggende programmering