ASP Smart Upload - Kun .jpg og max fil størrelse på 300 kb
Min kode ser sådan her ud, nu vil jeg gerne ha at den kun kan uploade .jpg / .jpeg filer og de højst på fylde 300 og hvis de fylder mere eller det ikke er jpg filer, skal den response write det. Nogen der vil hjælpe med det? :)<%
' Variables
' *********
Dim mySmartUpload
Dim file
Dim oConn
Dim oRs
Dim intCount
intCount=0
Session.LCID = 1030
' Object creation
' ***************
Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
' Upload
' ******
mySmartUpload.Upload
mySmartUpload.AllowedFilesList = "jpeg,jpg"
mySmartUpload.MaxFileSize = 30
' Connect to the DB
' 22:33 22-10-2004
Set oConn = Server.CreateObject("ADODB.Connection")
curDir = Server.MapPath("db.mdb")
oConn.Open "DBQ="& curDir &";Driver={Microsoft Access Driver (*.mdb)};"
' Open a recordset
' ****************
' Select each file
' ****************
For each file In mySmartUpload.Files
' Only if the file exist
' **********************
If not file.IsMissing Then
' Add the current file in a DB field
' **********************************
file.SaveAs "c:\data01\profilbilleder\" & session("user") & ".jpg"
filnavn = "http://data01.sykonia.dk/profilbilleder/" & session("user") & ".jpg"
SQL = "UPDATE anv SET bild = '" & filnavn & "' WHERE ID = '" & Session("id") & "'"
oConn.Execute (SQL)
intCount = intCount + 1
End If
Next
If Err Then 'her indsættes din håndtering af fejl
Response.Write("<b>Wrong selection : </b>" & Err.description)
Else
' Display the number of files uploaded
' ************************************
Response.Write ""
End If
' Display the number of files uploaded
' ************************************
response.write "<b>Dit nye profilbillede er nu klar til brug."
' Destruction
' ***********
oConn.Close
Set oConn = Nothing
%>
</BODY>
</HTML>
