Upload mere end en fil
Jeg har følgende kode der uploader en fil til min server og tilføjer filnavnet og en beskrivelse til databasen, jeg vilgerne have den til at tilføje 2 forskellige filer, nogle der
kan hjælpe mig med at få scriptet ændret så det er muligt?
(Jeg har ikke smidt formen i da det hele virker fint nu og man jo kan se hvad formen bruger af navne herunder, men er der nogen der kan hitte ud af det så skriv blot hvad navnet skal være som formen henviser til.
<%
Server.ScriptTimeout = 2220
Set Upload = Server.CreateObject("Persits.Upload.1")
Upload.OverwriteFiles = False
On Error Resume Next
Upload.SetMaxSize 900048576 ' Limit files to 1MB
Count = Upload.Save(Server.MapPath("/file"))
%>
<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="aspupload11.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>
<%
strbeskrivelse = Replace(Upload.Form("beskrivelse"),"'","´")
strbeskrivelse = Replace(strbeskrivelse,vbCrLf,"<br />")
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath ("/datadb/db.mdb")
Set rs = Server.CreateObject("ADODB.Recordset")
Addera = "SELECT * FROM db "
rs.Open Addera, Connect, 3, 3
rs.addnew
rs("filnavn") = File.FileName
rs("beskrivelse") = strbeskrivelse
rs("visnyhed") = Upload.form("visnyhed")
rs("flash") = Upload.form("flash")
rs("target") = strTarget
rs("moviekategori") = Upload.form("moviekategori")
response.write("Filen er nu tilføjet til databasen")
Next
End if
%>
</TABLE>
</FONT>
<P>
<FONT SIZE=2 FACE="Arial" COLOR=#0020A0>
<%
rs.update
rs.close
%>
</FONT>
</CENTER>
</BODY>
</HTML>
