Uploader to billeder, men glemmer resten
Hejsa.Jeg har en side hvor man skal skrive årgang, model, pris på en bil ... så kan du også uploade to billeder.
Sådan ser fil1 ud:
<form name="form1" method="post" action="indsat-personbil.asp" ENCTYPE="multipart/form-data">
<table width="48%" border="0" align="center">
<tr>
<td width="33%">Model:</td>
<td width="67%"><input name="model" type="text" id="model" size="40"></td>
<td>Årgang:</td>
<td><input name="aargang" type="text" id="aargang" size="10"></td>
<td>KM:</td>
<td><input name="km" type="text" id="km" size="16"></td>
<td>Pris:</td>
<td><input name="pris" type="text" id="pris" size="16"></td>
<td>Bemærkninger:</td>
<td><textarea name="bem" cols="30" rows="3" id="bem"></textarea></td>
<td>Billede 1</td>
<td><INPUT NAME="billede1" TYPE="FILE" id="billede1" SIZE="50"></td>
<td>Billede 2</td>
<INPUT NAME="billede2" TYPE="FILE" id="billede2" SIZE="50">
<td> </td>
<td><input type="submit" name="Submit" value="Tilføj bil"> <input type="reset" name="Submit2" value="Slet alt"></td>
</form>
Dette virker fint nok - nu kommer filen så hvor den skal gemme det i databasen:
<%
Dim Conn, MyConnection, MySQL, personbilerRS
Set Conn = Server.CreateObject("ADODB.connection")
Set personbilerRS = Server.CreateObject("ADODB.Recordset")
MyConnection = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="& Server.MapPath("db1.mdb")
Conn.Open MyConnection
%>
<%
mappe = "/kamran/images/bil-billeder/"
Response.Write (Server.MapPath(mappe))
' Variables
' *********
On Error Resume Next
Dim mySmartUpload
Dim intCount
Dim mappe
' Object creation
' ***************
Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
' Only allow txt or htm files
' ***************************
mySmartUpload.AllowedFilesList = "jpg,gif,bmp"
' DeniedFilesList can also be used :
' Allow all files except exe, bat and asp
' ***************************************
mySmartUpload.DeniedFilesList = "exe,bat,asp,zip"
' Deny physical path
' *******************
' mySmartUpload.DenyPhysicalPath = True
' Only allow files smaller than 50000 bytes
' *****************************************
' mySmartUpload.MaxFileSize = 50000
' Deny upload if the total fila size is greater than 200000 bytes
' ***************************************************************
' mySmartUpload.TotalMaxFileSize = 200000
' Upload
' ******
mySmartUpload.Upload
' Save the files with their original names in a virtual path of the web server
' ****************************************************************************
intCount = mySmartUpload.Save(Server.MapPath(mappe))
' sample with a physical path
' intCount = mySmartUpload.Save("c:\temp\")
' Display the number of files uploaded
' ************************************
' Trap errors
' ***********
If Err Then
Response.Write("<br><br><b>Fejl : </b>" & Err.description)
Else
' Display the number of files uploaded
' ************************************
Response.Write(intCount & " file(s) uploaded.")
End If
%>
<%
personbilerRS.open "personbiler", Conn, 3,3,2
personbilerRS.addnew
personbilerRS("model") = request.form("model")
personbilerRS("aargang") = request.form("aargang")
personbilerRS("km") = request.form("km")
personbilerRS("pris") = request.form("pris")
personbilerRS("info") = "Klik her"
personbilerRS("bem") = request.form("bem")
personbilerRS("billede1") = "images/bil-billeder/" & request.Form("billede1") & ".jpg"
personbilerRS("billede2") = "images/bil-billeder/" & request.Form("billede2") & ".jpg"
personbilerRS.update%>
<div align="center">
<%
response.Write("Så er bil-tabellen blevet opdateret!!!")
response.Write(("<BR>"))
%>
Men den uploader KUN de to billeder som man har valgt, den gemmer ikke de oplysninger man har skrevet ind :-/
Kan I hjælpe?
PS. Scriptet der uploader to filer er Asp smartUpload komponentet.
Jeg kan også sende de rigtige filer hvis det ønskes.
