Notifikationer

Markér alle som læst Log ud

Slettet bruger

31. juli 2006 - 14:01 Der er 21 kommentarer og
1 løsning

Tilføj filnavn til database

Hej med jer.
Når jeg uploader billeder til min server vil jeg gerne have navnet på billedet tilføjet til min database på serveren.
Nogle der kan hjælpe mig med at rette det til?
Jeg har en dabasefil der ligger i /database/games.mdb

Jeg bruger følgende kode:
(Hvor formen ligger)
<FORM METHOD="POST" ACTION="upload1.asp" ENCTYPE="multipart/form-data">
<INPUT TYPE="FILE" NAME="FILE1" SIZE="50"><BR>
<INPUT TYPE="SUBMIT" VALUE="Upload">
</FORM>

Og derefter er resten af koden her i den fil der hedder "upload1.asp" som formen kalder

<%
Set Upload = Server.CreateObject("Persits.Upload.1")

Upload.OverwriteFiles = False
On Error Resume Next

Upload.SetMaxSize 1048576 ' Limit files to 1MB
Count = Upload.Save(Server.MapPath("/myfiles/upload"))
%>
<HTML>
<BODY BGCOLOR="#FFFFFF">
<CENTER>

<% If Err <> 0 Then %>

<FONT SIZE=3 FACE="Arial" COLOR=#0020A0>
<H3>The following error occured while uploading:</h3>
</FONT>

<FONT SIZE=3 FACE="Arial" COLOR=#FF2020>
<h2>"<% = Err.Description %>"</h2>
</FONT>

<FONT SIZE=2 FACE="Arial" COLOR="#0020A0">
Please <A HREF="aspupload.asp">try again</A>.
</FONT>

<% Else %>
<FONT SIZE=3 FACE="Arial" COLOR=#0020A0>
<h2>Success! <% = Count %> file(s) have been uploaded.</h2>
</FONT>

<FONT SIZE=3 FACE="Arial" COLOR=#0020A0>
<TABLE BORDER=1 CELLPADDING=3 CELLSPACING=0>
<TH BGCOLOR="#FFFF00">Uploaded File</TH><TH BGCOLOR="#FFFF00">Size</TH><TH BGCOLOR="#FFFF00">Original Size</TH><TR>
<% For Each File in Upload.Files
filename = File.FileName %>
<TD><B><% = File.OriginalPath %></B></TD>
<TD ALIGN=RIGHT VALIGN="TOP"><% =File.Size %> bytes</TD>
<TD ALIGN=RIGHT VALIGN="TOP"><% =File.OriginalSize %> bytes</TD><TR>
<% Next %>
</TABLE>
</FONT>
<P>
<FONT SIZE=2 FACE="Arial" COLOR=#0020A0>
Click <A HREF="uploadtest.asp">here</A> to upload more files.
</FONT>
<% End If %>

</CENTER>
</BODY>
</HTML>

Synes godt om

madeindk Nybegynder

31. juli 2006 - 14:04 #1

Ja da - har du oprettet en tabel i din database? :-)

Synes godt om

Slettet bruger

31. juli 2006 - 14:21 #2

yes yes.. det har jeg.. :-)

Synes godt om

Slettet bruger

31. juli 2006 - 14:22 #3

nåja.. navnet.. :-) .. den hedder "billede"

Synes godt om

madeindk Nybegynder

31. juli 2006 - 14:25 #4

Ok - og hvad hedder felet hvor den skal gemme filnavnet?

Synes godt om

Slettet bruger

31. juli 2006 - 14:26 #5

Feltet hedder "navn"

Kan du evt. også hjælpe med at lave så man kan tilføje en kommentar når vi er i gang.. :-)

Har lidt problemer når jeg skal lave noget der skal arbejde sammen, altså flere ting på samme tid der skal tilføjes til en DB. Det skal jeg lige fatte. hehe.

Synes godt om

madeindk Nybegynder

31. juli 2006 - 14:29 #6

Ja, det kan jeg godt.

Men så bliver det nok i et nyt spørgsmål, så andre også kan få gavn af det, men det tager vi til sidst :-)

Men du vil kun have den skal gemme navnet på filen og ikke størrelsen og alt det?

Synes godt om

Slettet bruger

31. juli 2006 - 14:31 #7

okay, helt super.. :-)
Nej bare kun navnet. Skal ikke bruge størrelse til noget.
Det er mere så den kan vise det bagefter. Så jeg kan hive navnet ud af databasen og vise billedet.

Synes godt om

madeindk Nybegynder

31. juli 2006 - 14:35 #8

Ok - fint nok. Ville bare lige høre :-)

<%
Set Upload = Server.CreateObject("Persits.Upload.1")

Upload.OverwriteFiles = False
On Error Resume Next

Upload.SetMaxSize 1048576 ' Limit files to 1MB
Count = Upload.Save(Server.MapPath("/myfiles/upload"))
%>
<HTML>
<BODY BGCOLOR="#FFFFFF">
<CENTER>

<% If Err <> 0 Then %>

<FONT SIZE=3 FACE="Arial" COLOR=#0020A0>
<H3>The following error occured while uploading:</h3>
</FONT>

<FONT SIZE=3 FACE="Arial" COLOR=#FF2020>
<h2>"<% = Err.Description %>"</h2>
</FONT>

<FONT SIZE=2 FACE="Arial" COLOR="#0020A0">
Please <A HREF="aspupload.asp">try again</A>.
</FONT>

<% Else %>
<FONT SIZE=3 FACE="Arial" COLOR=#0020A0>
<h2>Success! <% = Count %> file(s) have been uploaded.</h2>
</FONT>

<FONT SIZE=3 FACE="Arial" COLOR=#0020A0>
<TABLE BORDER=1 CELLPADDING=3 CELLSPACING=0>
<TH BGCOLOR="#FFFF00">Uploaded File</TH><TH BGCOLOR="#FFFF00">Size</TH><TH BGCOLOR="#FFFF00">Original Size</TH><TR>
<% For Each File in Upload.Files
filename = File.FileName %>
<TD><B><% = File.OriginalPath %></B></TD>
<TD ALIGN=RIGHT VALIGN="TOP"><% =File.Size %> bytes</TD>
<TD ALIGN=RIGHT VALIGN="TOP"><% =File.OriginalSize %> bytes</TD><TR>
<% Next %>
</TABLE>
</FONT>
<P>
<FONT SIZE=2 FACE="Arial" COLOR=#0020A0>
Click <A HREF="uploadtest.asp">here</A> to upload more files.
</FONT>

<%
' Tilfojer til databasen

Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath ("/database/games.mdb")
Set rs = Server.CreateObject("ADODB.Recordset")
Addera = "SELECT * FROM billede "
rs.Open Addera, Connect, 3, 3

rs.addnew
rs("navn") = File.FileName
rs.update
rs.close

response.write("Billedet er nu tilføjet til databasen")

end If
%>

</CENTER>
</BODY>
</HTML>

Synes godt om

Slettet bruger

31. juli 2006 - 14:38 #9

Mange tak, jeg prøver lige...

Synes godt om

Slettet bruger

31. juli 2006 - 14:46 #10

Jeg har lige prøvet, den laver et felt i databasen, men der står intet.
Har lavet om så databasen hedder "games.mdb", tabellen "arkade" og feltet "pic" - er dette her så ikke rigtigt?

<%
' Tilfojer til databasen

Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath ("/database/games.mdb")
Set rs = Server.CreateObject("ADODB.Recordset")
Addera = "SELECT * FROM arkade "
rs.Open Addera, Connect, 3, 3

rs.addnew
rs("pic") = File.FileName
rs.update
rs.close

response.write("Billedet er nu tilføjet til databasen")

end If
%>

Synes godt om

madeindk Nybegynder

31. juli 2006 - 14:49 #11

Jo, det er helt rigtigt. Prøv med det jeg har smidt nu, det burde virke :-)

<%
Set Upload = Server.CreateObject("Persits.Upload.1")

Upload.OverwriteFiles = False
On Error Resume Next

Upload.SetMaxSize 1048576 ' Limit files to 1MB
Count = Upload.Save(Server.MapPath("/myfiles/upload"))
%>
<HTML>
<BODY BGCOLOR="#FFFFFF">
<CENTER>

<% If Err <> 0 Then %>

<FONT SIZE=3 FACE="Arial" COLOR=#0020A0>
<H3>The following error occured while uploading:</h3>
</FONT>

<FONT SIZE=3 FACE="Arial" COLOR=#FF2020>
<h2>"<% = Err.Description %>"</h2>
</FONT>

<FONT SIZE=2 FACE="Arial" COLOR="#0020A0">
Please <A HREF="aspupload.asp">try again</A>.
</FONT>

<% Else %>
<FONT SIZE=3 FACE="Arial" COLOR=#0020A0>
<h2>Success! <% = Count %> file(s) have been uploaded.</h2>
</FONT>

<FONT SIZE=3 FACE="Arial" COLOR=#0020A0>
<TABLE BORDER=1 CELLPADDING=3 CELLSPACING=0>
<TH BGCOLOR="#FFFF00">Uploaded File</TH><TH BGCOLOR="#FFFF00">Size</TH><TH BGCOLOR="#FFFF00">Original Size</TH><TR>
<% For Each File in Upload.Files
filename = File.FileName %>
<TD><B><% = File.OriginalPath %></B></TD>
<TD ALIGN=RIGHT VALIGN="TOP"><% =File.Size %> bytes</TD>
<TD ALIGN=RIGHT VALIGN="TOP"><% =File.OriginalSize %> bytes</TD><TR>

<%
' Tilfojer til databasen

Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath ("/database/games.mdb")
Set rs = Server.CreateObject("ADODB.Recordset")
Addera = "SELECT * FROM arkade "
rs.Open Addera, Connect, 3, 3

rs.addnew
rs("pic") = File.FileName
rs.update
rs.close

response.write("Billedet er nu tilføjet til databasen")

end If
%>

<% Next %>
</TABLE>
</FONT>
<P>
<FONT SIZE=2 FACE="Arial" COLOR=#0020A0>
Click <A HREF="uploadtest.asp">here</A> to upload more files.
</FONT>

</CENTER>
</BODY>
</HTML>

Synes godt om

Slettet bruger

31. juli 2006 - 15:01 #12

Det kommer med følgende nu:
Microsoft VBScript compilation error '800a0400'

Expected statement

/upload2.asp, line 58

end If
^

Line 58 er her:
response.write("Billedet er nu tilføjet til databasen")

end If
%>
(Under end)

Synes godt om

Slettet bruger

31. juli 2006 - 15:02 #13

hov fjerner lige next.. den så jeg ikke.. :-)

Synes godt om

madeindk Nybegynder

31. juli 2006 - 15:02 #14

Så fjern den der "End if" :-)

Synes godt om

Slettet bruger

31. juli 2006 - 15:05 #15

hmmm.. stadig vrøvl... Den vil have en statement

Synes godt om

madeindk Nybegynder

31. juli 2006 - 15:06 #16

<%
Set Upload = Server.CreateObject("Persits.Upload.1")

Upload.OverwriteFiles = False
On Error Resume Next

Upload.SetMaxSize 1048576 ' Limit files to 1MB
Count = Upload.Save(Server.MapPath("/myfiles/upload"))
%>
<HTML>
<BODY BGCOLOR="#FFFFFF">
<CENTER>

<% If Err <> 0 Then %>

<FONT SIZE=3 FACE="Arial" COLOR=#0020A0>
<H3>The following error occured while uploading:</h3>
</FONT>

<FONT SIZE=3 FACE="Arial" COLOR=#FF2020>
<h2>"<% = Err.Description %>"</h2>
</FONT>

<FONT SIZE=2 FACE="Arial" COLOR="#0020A0">
Please <A HREF="aspupload.asp">try again</A>.
</FONT>

<% Else %>
<FONT SIZE=3 FACE="Arial" COLOR=#0020A0>
<h2>Success! <% = Count %> file(s) have been uploaded.</h2>
</FONT>

<FONT SIZE=3 FACE="Arial" COLOR=#0020A0>
<TABLE BORDER=1 CELLPADDING=3 CELLSPACING=0>
<TH BGCOLOR="#FFFF00">Uploaded File</TH><TH BGCOLOR="#FFFF00">Size</TH><TH BGCOLOR="#FFFF00">Original Size</TH><TR>
<% For Each File in Upload.Files
filename = File.FileName %>
<TD><B><% = File.OriginalPath %></B></TD>
<TD ALIGN=RIGHT VALIGN="TOP"><% =File.Size %> bytes</TD>
<TD ALIGN=RIGHT VALIGN="TOP"><% =File.OriginalSize %> bytes</TD><TR>

<%
' Tilfojer til databasen

Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath ("/database/games.mdb")
Set rs = Server.CreateObject("ADODB.Recordset")
Addera = "SELECT * FROM arkade "
rs.Open Addera, Connect, 3, 3

rs.addnew
rs("pic") = File.FileName
rs.update
rs.close

response.write("Billedet er nu tilføjet til databasen")

Next

End if
%>

</TABLE>
</FONT>
<P>
<FONT SIZE=2 FACE="Arial" COLOR=#0020A0>
Click <A HREF="uploadtest.asp">here</A> to upload more files.
</FONT>

</CENTER>
</BODY>
</HTML>

Synes godt om

Slettet bruger

31. juli 2006 - 15:09 #17

Sådan.... !! :-)
Mange tak.. Fedt....

Jeg laver lige et ekstra spørgsmål som vi snakkede om først på det med at tilføje en kommentar, så kan du se om du har tid og lyst til at hjælpe med den. Nu får du i hvert fald lige point.

Synes godt om

Slettet bruger

31. juli 2006 - 15:09 #18

Det er forresten www.abehjerne.dk jeg er ved at bøvle med hvis du vil se hvad jeg roder med. :-)

Synes godt om

madeindk Nybegynder

31. juli 2006 - 15:11 #19

Ok - det ser meget fornuftigt ud :-)

Her er mit svar...

Synes godt om

madeindk Nybegynder

31. juli 2006 - 15:11 #20

Nej, det var det så ikke - hehe

Her er det ;-)

Synes godt om

Slettet bruger

31. juli 2006 - 15:12 #21

hehe så skulle der være givet point..

Synes godt om

madeindk Nybegynder

31. juli 2006 - 15:12 #22

Tak for point - kigger på det andet spørgsmål :-)

Synes godt om

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.

Følg dette spørgsmål

Opret Preview

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
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP	9	25/06/202622:20	29/06/202621:55
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
Classic - filer vist med sidste fil først Af bsn i ASP	5	23/05/202409:56	24/05/202400:02

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.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS