9 svar · 301 visningar · startad av mackz
Sitter och lurar på det här med att ladda upp bild och vill ha max storlek .. Har kommit så här långt men det jag saknar är även ett fel medelande.
Vill ha max 80kb och tex. filen är för stor.
Save the file to the database
If File.FileSize < 80000 Then
File.SaveToDatabase RecSet("picture")
End if
Ja :) Men när det gäller att ge ett fel medelande pga för stor bild.. går det
ex..
[red]If File.FileSize < 80000 Then
File.SaveToDatabase RecSet("picture")
strMessage = "Din bild är nu uppdaterat!"
Else
strMessage = "Din bild är större än 80kb! Ajjabajja! Gör om - gör rätt!"
End If
Response.Write strMessage[/red]
Detta funkar men det är i det som det skulle vara ett fel mess. Nu fortsätter scriptet utan att ladda upp bilden bara.
RecSet("picture_type")=""
If Uploader.Files.Count > 0 Then
' Loop through the uploaded files
For Each File In Uploader.Files.Items
If File.FileSize < 80000 Then
' Save content-type to database
RecSet("picture_type") = File.ContentType
' Save the file to the database
File.SaveToDatabase RecSet("picture")
End If
Next
End If
[red]RecSet("picture_type") = ""
If Uploader.Files.Count > 0 Then
' Loop through the uploaded files
For Each File In Uploader.Files.Items
If File.FileSize < 80000 Then
' Save content-type to database
RecSet("picture_type") = File.ContentType
' Save the file to the database
File.SaveToDatabase RecSet("picture")
[blue]Else
Response.Write "Filen är för stor! Ajjabajja!"
Exit For[/blue]
End If
Next
End If[/red]
får bara skriptet att köra igenom utan att lägga in en bild.. Här är hela save scriptet.
<%
' Create the FileUploader
Dim Uploader, File
Set Uploader = New FileUploader
' This starts the upload process
Uploader.Upload()
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ="& db
Set RecSet = Server.CreateObject("ADODB.Recordset")
Addera = "Select * From annons"
Recset.Open Addera, Conn, 3, 3
RecSet.AddNew
RecSet("pris") = Uploader.Form("pris")
RecSet("kategori") = Uploader.Form("kategori")
RecSet("namn") = Uploader.Form("namn")
RecSet("rubrik") = Uploader.Form("rubrik")
RecSet("text") = Uploader.Form("text")
RecSet("epost") = Uploader.Form("epost")
RecSet("landskap") = Uploader.Form("landskap")
RecSet("date") = now()
RecSet("adtype") = Uploader.Form("adtype")
RecSet("pwd") = Uploader.Form("pwd")
RecSet("ip") = Request.ServerVariables("REMOTE_ADDR")
RecSet("picture_type") = ""
If Uploader.Files.Count > 0 Then
' Loop through the uploaded files
For Each File In Uploader.Files.Items
If File.FileSize < 80000 Then
' Save content-type to database
RecSet("picture_type") = File.ContentType
' Save the file to the database
File.SaveToDatabase RecSet("picture")
Else
Response.Write "Filen är för stor! Max 80kb"
Exit For
End If
Next
End If
RecSet.Update
RecSet.Close
Conn.Close
'Response.Redirect uploadImage.htm
Response.Redirect "../start.asp"
%>
det sparas i picture i mdb
Löste det så här.
RecSet("picture_type") = ""
If Uploader.Files.Count > 0 Then
' Loop through the uploaded files
For Each File In Uploader.Files.Items
If File.FileSize < 60000 Then
' Save content-type to database
RecSet("picture_type") = File.ContentType
' Save the file to the database
File.SaveToDatabase RecSet("picture")
Else
Response.Write "Bilden är för stor! Max 60kb Tryck på bakåt knappen och försök igen."
set fso = nothing
response.end
End If
Next
End If