Anvende upload i nuværende form og insert
Jeg har en side hvor man udfylder en masse data via en form (form.asp). Den sender en videre til sql.asp hvor data indsættes i access database.Nu vil jeg gerne have en upload funktion på form.asp siden, men jeg har nogle problemer med implementering af komponentet. Nogle der ved hvorledes jeg kan få det til at spille sammen (Jeg er ligeglad med bekræftningen af filer som uploades). Jeg ville gerne anvende nedenstående script:
<%@ Language="VBScript" %>
<% Option Explicit %>
<!-- #INCLUDE FILE="fileupload.inc" -->
<HTML>
<HEAD>
<TITLE>Upload uden komponent</TITLE>
</HEAD>
<BODY>
<%
'*************************************
'**** Test af FileUpload funktion ****
'**** ****
'**** Upload .gif eller .jpg ****
'**** billede til mappen /upload ****
'*************************************
'Skal formen vises?
If Request.ServerVariables("REQUEST_METHOD") <> "POST" Then
%>
<FORM ENCTYPE="multipart/form-data" ACTION="uploadgfx.asp" METHOD="POST">
<P>Vælg et billede:<BR>
<INPUT NAME="fileupload" TYPE="file"><BR>
<INPUT NAME="Action" TYPE="submit" VALUE="Upload">
</FORM>
<%
Else
Dim intFileUpload, strContentType, strFilename, intFileTotalBytes
intFileUpload = FileUpload("upload/", 20000, Array("image/gif", "image/jpeg", "image/pjpeg"), Array("gif", "jpg"), strContentType, strFilename, intFileTotalBytes)
If intFileUpload = 0 Then
Response.Write "Filen " & strFilename & " blev uploaded.<BR>"
Response.Write "Det er en fil af typen " & strContentType & " og den fylder " & intFileTotalBytes & " bytes:<BR>"
Response.Write "<IMG SRC=""upload/" & strFilename & """><BR>"
Else
Response.Write "Der opstod en fejl under upload!<BR>"
Response.Write "Fejl nr: " & intFileUpload & "<BR>"
Response.Write "Filnavn: " & strFilename & "<BR>"
Response.Write "Filtype: " & strContentType & "<BR>"
Response.Write "Filstørrelse: " & intFileTotalBytes & "<BR>"
End If
End If
Response.Redirect "sql.asp"
%>
</BODY>
</HTML>
Mit nuværende script i form.asp er herunder som eksempel:
<form onsubmit="return validate(this)" action="sql.asp" method="post" style="display:inline">
Genre:<br />
<input size="76" type="text" name="genre"><br />
Aldersbegrænsning:<br />
<input size="76" type="text" name="alder"><br />
Også kendt som:<br />
<input size="76" type="text" name="kendtsom"><br />
<input type="submit" value="Tilføj film">
</form>
Og sql.asp ser således ud:
<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("/vti_log/film.mdb")
Conn.Open DSN
strSQL = "Insert into film (genre, alder, kendtsom) values('" & Replace(Request.Form("genre"), "'", "''") & "', '" & Replace(Request.Form("alder"), "'", "''") & "', '" & Replace(Request.Form("kendtsom"), "'", "''") & "'"
Conn.Execute(strSQL)
Response.write "Indsat."
Conn.Close
Set Conn = Nothing
%>
