Søg
Avatar billede gatez Nybegynder
15. februar 2003 - 13:32 Der er 11 kommentarer og
1 løsning

Upload til Access

Hejsa,

Jeg er ved at lave et script som uploader et billede til serveren og samtidlig tilføjer data til databasen.

Her er de 2 asp filer som jeg ikke kan få til at virker de bruger Komponenten ASPSimpleUpload.

--------Example1.asp--------------
<html><head><title>ASP Simple Upload Example #1</title></head></title>
<body>
<form method="POST" action="Example1-gem.Asp" enctype="multipart/form-data">

Select a file to upload: <input type="file" name="File1" size="30"><br>
Tekst: <input TYPE="TEXT" name="Tekst" value="">

<input type="submit" name="submit" value="Upload Now">
</form>
</body>
</html>
-------------------------------
Og næste asp fil:

--------Example1-gem.asp--------------
<%

Dim upl, NewFileName
 
Set upl = Server.CreateObject("ASPSimpleUpload.Upload")
 
If Len(upl.Form("File1")) > 0 Then
    NewFileName = "/Uploads/" & upl.ExtractFileName(upl.Form("File1"))
    If upl.SaveToWeb("File1", NewFileName) Then
        Response.Write("File successfully written to disk.")
    Else
        Response.Write("There was an error saving the file to disk.")
    End If
End If

strConnect = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("bil.mdb")
Set objConn = Server.CreateObject("ADODB.Connection")
call objConn.Open(strConnect)

Tekst = Request.QueryString("Tekst")
File1 = Request.QueryString("File1")

strINSERT = "INSERT INTO biler (Tekst, File1) VALUES ( '"
    strINSERT = strINSERT &  Tekst & "', '" & File1 & "')"
 
    call objConn.execute(strINSERT)
objConn.close()

%>
------------------------------

Nogle der kan se hvad der er galt ?
Avatar billede medions Nybegynder
15. februar 2003 - 13:35 #1
<%

Dim upl, NewFileName
 
Set upl = Server.CreateObject("ASPSimpleUpload.Upload")
 
If Len(upl.Form("File1")) > 0 Then
    NewFileName = "/Uploads/" & upl.ExtractFileName(upl.Form("File1"))
    If upl.SaveToWeb("File1", NewFileName) Then
        Response.Write("File successfully written to disk.")
    Else
        Response.Write("There was an error saving the file to disk.")
    End If
End If

strConnect = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("bil.mdb")
Set objConn = Server.CreateObject("ADODB.Connection")
call objConn.Open(strConnect)

Tekst = Request.QueryString("Tekst")
File1 = upl.Form("File1")

strINSERT = "INSERT INTO biler (Tekst, File1) VALUES ( '"
    strINSERT = strINSERT &  Tekst & "', '" & File1 & "')"
 
    call objConn.execute(strINSERT)
objConn.close()

%>

//>Rune
Avatar billede gatez Nybegynder
15. februar 2003 - 13:35 #2
Når jeg køre scriptet laver den en Fejl "HTTP 500" men den uploader filen rigtigt... Problemmet er bare at den ikke tilføjer dataen i databasen...
Avatar billede medions Nybegynder
15. februar 2003 - 13:35 #3
<%

Dim upl, NewFileName
 
Set upl = Server.CreateObject("ASPSimpleUpload.Upload")
 
If Len(upl.Form("File1")) > 0 Then
    NewFileName = "/Uploads/" & upl.ExtractFileName(upl.Form("File1"))
    If upl.SaveToWeb("File1", NewFileName) Then
        Response.Write("File successfully written to disk.")
    Else
        Response.Write("There was an error saving the file to disk.")
    End If
End If

strConnect = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("bil.mdb")
Set objConn = Server.CreateObject("ADODB.Connection")
call objConn.Open(strConnect)

Tekst = upl.Form("Tekst")
File1 = upl.Form("File1")

strINSERT = "INSERT INTO biler (Tekst, File1) VALUES ( '"
    strINSERT = strINSERT &  Tekst & "', '" & File1 & "')"
 
    call objConn.execute(strINSERT)
objConn.close()

%>

Sådan..

//>Rune
Avatar billede gatez Nybegynder
15. februar 2003 - 13:39 #4
Yep det virker tak!

Næsten, i databasen skriver den den forkerte sti i tabelen "File1" den skriver den sti på den lokale computer... Kan man ikke få den til at skrive filnavnet bare ? Fx. billede.gif

Takker!
Avatar billede medions Nybegynder
15. februar 2003 - 13:41 #5
Fair nok :-)

Hm jeg er ik' sikker men prøv sådan her:


<%

Dim upl, NewFileName
 
Set upl = Server.CreateObject("ASPSimpleUpload.Upload")
 
If Len(upl.Form("File1")) > 0 Then
    NewFileName = "/Uploads/" & upl.ExtractFileName(upl.Form("File1"))
    If upl.SaveToWeb("File1", NewFileName) Then
        Response.Write("File successfully written to disk.")
    Else
        Response.Write("There was an error saving the file to disk.")
    End If
End If

strConnect = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("bil.mdb")
Set objConn = Server.CreateObject("ADODB.Connection")
call objConn.Open(strConnect)

Tekst = upl.Form("Tekst")
File1 = upl.FileName

strINSERT = "INSERT INTO biler (Tekst, File1) VALUES ( '"
    strINSERT = strINSERT &  Tekst & "', '" & File1 & "')"
 
    call objConn.execute(strINSERT)
objConn.close()

%>

Thx 4 Poinz

//>Rune
Avatar billede kourosh Nybegynder
15. februar 2003 - 13:41 #6
Hej gatez, hvad nu?
Avatar billede gatez Nybegynder
15. februar 2003 - 13:45 #7
kourosh--> Jeg prøver bare med en ande komponent den anden kunne jeg slet ikke få til at virke på min server...
Avatar billede gatez Nybegynder
15. februar 2003 - 13:45 #8
medions -->  Det virker ikke desværre...
Avatar billede medions Nybegynder
15. februar 2003 - 13:47 #9
<%

Dim upl, NewFileName
 
Set upl = Server.CreateObject("ASPSimpleUpload.Upload")
 
If Len(upl.Form("File1")) > 0 Then
    NewFileName = "/Uploads/" & upl.ExtractFileName(upl.Form("File1"))
    If upl.SaveToWeb("File1", NewFileName) Then
        Response.Write("File successfully written to disk.")
    Else
        Response.Write("There was an error saving the file to disk.")
    End If
End If

strConnect = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("bil.mdb")
Set objConn = Server.CreateObject("ADODB.Connection")
call objConn.Open(strConnect)

Tekst = upl.Form("Tekst")
File1 = upl.ExtractFileName(upl.Form("File1"))


strINSERT = "INSERT INTO biler (Tekst, File1) VALUES ( '"
    strINSERT = strINSERT &  Tekst & "', '" & File1 & "')"
 
    call objConn.execute(strINSERT)
objConn.close()

%>

//>Rune
Avatar billede kourosh Nybegynder
15. februar 2003 - 13:47 #10
hvorfor ikke, har du installeret komponenten? er du sikker om det er installeret. det virker meget fint hos mig.
Avatar billede gatez Nybegynder
15. februar 2003 - 13:48 #11
Yep cool det virker tak !!!
Avatar billede gatez Nybegynder
15. februar 2003 - 13:51 #12
kourosh<-- Jeg har prøvet at installere kompnenten flere gange men når jeg prøver ASP scriptet virker det ikke, ikke engang de "Example" filer der følger med virker på min server.... Jeg forstår det faktis ikke...
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
Persits.Upload Af bsn i ASP 9 17/09/202611:37 21/09/202615:15
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP 10 25/06/202622:20 04/09/202602:30
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
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 dag 16:43 Nomad Tracking Car Af fleknes i Apps til Android
25/0916:15 Internet forsvinder hele tiden Af TTA i Internetforbindelser
23/0920:49 Fejl på Tv2 Play Af Bukse i Browsere
23/0918:11 VB, Lægge 2 celler sammen og skrive den i cellen ved side af Af MC3390 i Excel
21/0910:39 DBA er ikke hvad det tidligere var - desværre! Af ErikHg i Fri debat
White papers
Flere white papers »