Avatar billede Slettet bruger
31. juli 2006 - 15:14 Der er 6 kommentarer og
1 løsning

Tiltøj kommentar til database sammen med upload af billede

Jeg har uploaded et billede til min database og vil nu gerne have tilføjet en kommentar - nogen der kan hjælpe?

Her er formen:
<FORM METHOD="POST" ACTION="upload2.asp" ENCTYPE="multipart/form-data">
<INPUT TYPE="FILE" NAME="FILE1" SIZE="50"><BR>
<br>
<INPUT TYPE="SUBMIT" VALUE="Upload">
                                    </form>


Og her er den fil den 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("/database/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>
Avatar billede madeindk Nybegynder
31. juli 2006 - 15:16 #1
Hej igen - hvordan er det du vil ha det? Skal det bare være en kommentar til spillet eller hvordan?
Avatar billede Slettet bruger
31. juli 2006 - 15:19 #2
Godt at se dig igen.. hehe.. ;-)
Ja, faktisk både en URL til spillet (Det er jo en spilleside) og en kommentar.
Så når jeg har uploaded billedet af spillet, kan jeg skrive det ud med en URL til, samt en kommentar. Så det skal bare skrives samme sted som man vælger billedet.
Avatar billede madeindk Nybegynder
31. juli 2006 - 15:21 #3
Ok - skal du så bare ha et kommentar felt i din form? Og så bliver der forespurgt på den i din database forbindelse...
Avatar billede Slettet bruger
31. juli 2006 - 15:34 #4
yeps... det må jo være sådan det skal laves.. altså når man skal tilføje billedet (gennemse osv.) så skal der også være et kommentarfelt i formen som bliver tilføjet til samme database, men i et andet felt "kommentar"
Avatar billede madeindk Nybegynder
31. juli 2006 - 15:51 #5
Ok - har sat lidt kode sammen til dig her :-) Kommentaren bliver skrevet i en textarea...

<FORM METHOD="POST" ACTION="upload2.asp" ENCTYPE="multipart/form-data">

Fil:<br><INPUT TYPE="FILE" NAME="FILE1" SIZE="50"><BR><br>
Kommentar:<br><textarea name="kommentar" style="width:300px; height:150px;"></textarea><br><br>

<INPUT TYPE="SUBMIT" VALUE="Upload">

</form>

<%
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("/database/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>

<%
' Formaterer teksten
strKommentar = Replace(Upload.Form("kommentar"),"'","´")
strKommentar = Replace(strKommentar,vbCrLf,"<br />")

' 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("kommentar") = strKommentar
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>
Avatar billede Slettet bruger
31. juli 2006 - 22:53 #6
Det virker bare super fint!! Jeg siger igen mange tak! :-)
Og nu fatter jeg også hvordan jeg laver det med flere tilføjelser til databasen m.v. så det var rart at lære. Tak for det.
Mvh.
Henrik
Avatar billede madeindk Nybegynder
01. august 2006 - 08:24 #7
Ok, det var godt :-)

Her er mit svar
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