Begrænsning på tilladt upload !

Du kan godt sætte en begrænsning på.

Du kan også godt sætte en cookie når en har uploadet.

Prøv at paste scriptet her, så retter vi det lige til...!

How ??
Skal der da flere point af til det ?

Nej det er ikke nødvendigt...

ok :)))


------------------Sample1.htm-----------------
<HTML>
<BODY BGCOLOR=\"white\">
<H1>aspSmartUpload : Sample 1</H1>
<HR>
<FORM METHOD=\"POST\" ACTION=\"Sample1.asp\" ENCTYPE=\"multipart/form-data\">
  <INPUT TYPE=\"FILE\" NAME=\"FILE1\" SIZE=\"50\"><BR>
  <INPUT TYPE=\"SUBMIT\" VALUE=\"Upload\">
</FORM>
</BODY>
</HTML>
------------------------

-----------------------Sample1.asp-------------
<HTML>
<BODY BGCOLOR=\"white\">

<H1>aspSmartUpload : Sample 1</H1>
<HR>

<%
\'  Variables
\'  *********
  Dim mySmartUpload
  Dim intCount
       
\'  Object creation
\'  ***************
  Set mySmartUpload = Server.CreateObject(\"aspSmartUpload.SmartUpload\")

\'  Upload
\'  ******
  mySmartUpload.Upload

\'  Save the files with their original names in a virtual path of the web server
\'  ****************************************************************************
  intCount = mySmartUpload.Save(\"Upload\")
  \' sample with a physical path
  \' intCount = mySmartUpload.Save(\"c:\\temp\\\")

\'  Display the number of files uploaded
\'  ************************************
  Response.Write(intCount & \" file(s) uploaded.\")
%>
</BODY>
</HTML>
-------------

<HTML>
<BODY BGCOLOR=\"white\">

<H1>aspSmartUpload : Sample 1</H1>
<HR>

<%
\'  Variables
\'  *********
  Dim mySmartUpload
  Dim intCount
       
\'  Object creation
\'  ***************
  Set mySmartUpload = Server.CreateObject(\"aspSmartUpload.SmartUpload\")
if MySmartUpLoad.TotalBytes > 20000 then
response.write (\"filen er for stoR\")
else
\'  Upload
\'  ******
  mySmartUpload.Upload

\'  Save the files with their original names in a virtual path of the web server
\'  ****************************************************************************
  intCount = mySmartUpload.Save(\"Upload\")
  \' sample with a physical path
  \' intCount = mySmartUpload.Save(\"c:\\temp\\\")

\'  Display the number of files uploaded
\'  ************************************
  Response.Write(intCount & \" file(s) uploaded.\")
end if
%>
</BODY>
</HTML>
-------------

netsrac ->

Jeg kan stadig uploade fier, der er størrer :(

Prøv med:

<HTML>
<BODY BGCOLOR=\"white\">

<H1>aspSmartUpload : Sample 1</H1>
<HR>

<%
\'  Variables
\'  *********
  Dim mySmartUpload
  Dim intCount
       
\'  Object creation
\'  ***************
  Set mySmartUpload = Server.CreateObject(\"aspSmartUpload.SmartUpload\")
MySmartUpLoad.TotalMaxFileSize = 20000
if MySmartUpLoad.TotalBytes > 20000 then
response.write (\"filen er for stoR\")
else
\'  Upload
\'  ******
  mySmartUpload.Upload

\'  Save the files with their original names in a virtual path of the web server
\'  ****************************************************************************
  intCount = mySmartUpload.Save(\"Upload\")
  \' sample with a physical path
  \' intCount = mySmartUpload.Save(\"c:\\temp\\\")

\'  Display the number of files uploaded
\'  ************************************
  Response.Write(intCount & \" file(s) uploaded.\")
end if
%>
</BODY>
</HTML>

Nu virker det (næsten)
Hvis filen er for stor, så før jeg denne fejlmeddelelse:
Total File Size exceeded (Error 1110)
/upload/aspSmartUpload/Sample1.asp, line 22

Husk lige den cookie :)

Jeg tror vi bliver nød til at smide brugeren over på en anden side hvis de prøver at uploade en for stor fil:

<% response.buffer = true %>
<HTML>
<BODY BGCOLOR=\"white\">

<H1>aspSmartUpload : Sample 1</H1>
<HR>

<%
\'  Variables
\'  *********
  Dim mySmartUpload
  Dim intCount
       
\'  Object creation
\'  ***************
  Set mySmartUpload = Server.CreateObject(\"aspSmartUpload.SmartUpload\")
MySmartUpLoad.TotalMaxFileSize = 20000
if MySmartUpLoad.TotalBytes > 20000 then
response.redirect(\"filforstor.asp\")
end if
\'  Upload
\'  ******
  mySmartUpload.Upload

\'  Save the files with their original names in a virtual path of the web server
\'  ****************************************************************************
  intCount = mySmartUpload.Save(\"Upload\")
  \' sample with a physical path
  \' intCount = mySmartUpload.Save(\"c:\\temp\\\")

\'  Display the number of files uploaded
\'  ************************************
  Response.Write(intCount & \" file(s) uploaded.\")

%>
</BODY>
</HTML>

Med cookie:

<% response.buffer = true %>
<HTML>
<BODY BGCOLOR=\"white\">

<H1>aspSmartUpload : Sample 1</H1>
<HR>

<%
\'  Variables
\'  *********
  Dim mySmartUpload
  Dim intCount
       
\'  Object creation
\'  ***************
  Set mySmartUpload = Server.CreateObject(\"aspSmartUpload.SmartUpload\")
MySmartUpLoad.TotalMaxFileSize = 20000
if MySmartUpLoad.TotalBytes > 20000 then
response.redirect(\"filforstor.asp\")
end if
if request.cookies(\"haruploadet\") = \"1\" then
response.redirect(\"haruploadet.asp\")
end if
\'  Upload
\'  ******
  mySmartUpload.Upload

\'  Save the files with their original names in a virtual path of the web server
\'  ****************************************************************************
  intCount = mySmartUpload.Save(\"Upload\")
  \' sample with a physical path
  \' intCount = mySmartUpload.Save(\"c:\\temp\\\")

\'  Display the number of files uploaded
\'  ************************************
  Response.Write(intCount & \" file(s) uploaded.\")
Response.Cookies(\"haruploadet\").Expires = #July 4, 2010#
Repsonse.Cookies(\"haruploadet\") = \"1\"

%>
</BODY>
</HTML>

Fejlmeddelelsen i cookie :
Et objekt er obligatorisk: \'\'

Den redirecter ikke hvis filen er for stor ?

Prøv lige at sætte den til at udskrive:
MySmartUpLoad.TotalBytes

Er det bare sådan:
<%
MySmartUpLoad.TotalBytes
%>
Hvis ja, så kommer denne fejlmeddelelse:

Der opstod en Microsoft VBScript-kørselsfejl (0x800A01A8)
Et objekt er obligatorisk: \'MySmartUpLoad\'
/upload/aspSmartUpload/udskriv.asp, line 2

Nej sådan her:
<%
Set mySmartUpload = Server.CreateObject(\"aspSmartUpload.SmartUpload\")

response.write MySmartUpLoad.TotalBytes
%>

ok, så skriver den bare 0 :)

Også hvis du oploader en noget til filen ?

Nu er jeg helt væk....
Hvordan uploader til filen ?

Du sætter de to linier i en fil, så sender du fra en anden fil et felt hvor du har valgt at uploade en fil, hvad skriver den så?

Den eneste fejl der er lige nu, er altså kun cookie\'en :)
Men jeg prøver lige...

men den skriver stadig 0...

Sagde du ikke også at den ikke redirectede hvis filen var for stor ?

Den der fejl meddelse på cookien er det en asp fejl ?

Vælger du en fil i fil feltet også skriver den 0 ?

Sorry :((((
Jo :(((((((

ja den gør...

Hm..mystisk prøv med:
<% response.buffer = true %>
<HTML>
<BODY BGCOLOR=\"white\">

<H1>aspSmartUpload : Sample 1</H1>
<HR>

<%
\'  Variables
\'  *********
  Dim mySmartUpload
  Dim intCount
       
\'  Object creation
\'  ***************
  Set mySmartUpload = Server.CreateObject(\"aspSmartUpload.SmartUpload\")
MySmartUpLoad.TotalMaxFileSize = 20000
if request.TotalBytes > 20000 then
response.redirect(\"filforstor.asp\")
end if
if request.cookies(\"haruploadet\") = \"1\" then
response.redirect(\"haruploadet.asp\")
end if
\'  Upload
\'  ******
  mySmartUpload.Upload

\'  Save the files with their original names in a virtual path of the web server
\'  ****************************************************************************
  intCount = mySmartUpload.Save(\"Upload\")
  \' sample with a physical path
  \' intCount = mySmartUpload.Save(\"c:\\temp\\\")

\'  Display the number of files uploaded
\'  ************************************
  Response.Write(intCount & \" file(s) uploaded.\")
Response.Cookies(\"haruploadet\").Expires = #July 4, 2010#
Repsonse.Cookies(\"haruploadet\") = \"1\"

%>
</BODY>
</HTML>

Nu redirecter den til en fil hvis den er for stor :))))
Men det er stadig problemer med cookien...

Hvad melder den af fejl ved cookien ?

Der opstod en Microsoft VBScript-kørselsfejl (0x800A01A8)
Et objekt er obligatorisk: \'\'
/upload/aspSmartUpload/sample1.asp, line 38

Hvilken linie er det ?

Bare glem det...det er mig der er lidt meget dum :)
Fordi jeg har ikke rigtig kigget på linien, men det gjrode jeg og opdagede at der stor repsonse, men der skla stå response :)

Har fundet fejlen:

<% response.buffer = true %>
<HTML>
<BODY BGCOLOR=\"white\">

<H1>aspSmartUpload : Sample 1</H1>
<HR>

<%
\'  Variables
\'  *********
  Dim mySmartUpload
  Dim intCount
       
\'  Object creation
\'  ***************
  Set mySmartUpload = Server.CreateObject(\"aspSmartUpload.SmartUpload\")
MySmartUpLoad.TotalMaxFileSize = 20000
if request.TotalBytes > 20000 then
response.redirect(\"filforstor.asp\")
end if
if request.cookies(\"haruploadet\") = \"1\" then
response.redirect(\"haruploadet.asp\")
end if
\'  Upload
\'  ******
  mySmartUpload.Upload

\'  Save the files with their original names in a virtual path of the web server
\'  ****************************************************************************
  intCount = mySmartUpload.Save(\"Upload\")
  \' sample with a physical path
  \' intCount = mySmartUpload.Save(\"c:\\temp\\\")

\'  Display the number of files uploaded
\'  ************************************
  Response.Write(intCount & \" file(s) uploaded.\")
Response.Cookies(\"haruploadet\").Expires = #July 4, 2010#
Response.Cookies(\"haruploadet\") = \"1\"

%>
</BODY>
</HTML>

Tror ligeså meget det er mig *G*
Det var jo mig der startede med at skrive det :-)
Det er ikke sådan med de skide tastefejl..

Nå men skidt med et nu...
Du får du points nu :)

Takker :-)