Simple File Upload Script
in [ASP]
|
From: SU_Oran on 17 Feb 2005 11:52 I found this when searching. I need to have a simple script that will upload a single file. It is giving me an error on Set upl = Server.CreateObject("ASPSimpleUpload.Upload") It is saying : Server object, ASP 0177 (0x800401F3) Invalid class string Am I missing something? A DLL perhaps? ---------------------------------------------------------------------------- Option Explicit Dim upl, NewFileName Set upl = Server.CreateObject("ASPSimpleUpload.Upload") If Len(upl.Form("File1")) > 0 Then NewFileName = "/Upload/" & upl.ExtractFileName(upl.Form("File1")) If upl.SaveToWeb("File1", NewFileName) Then Response.Write("File successfully written to disk.") Else Response.Write("There was an error saving the file to disk.") End If End If %> <html><head><title>ASP Simple Upload Example #1</title></head></title> <body> <form method="POST" action="test.Asp" enctype="multipart/form-data"> Select a file to upload: <input type="file" name="File1" size="30"> <input type="submit" name="submit" value="Upload Now"> </form> </body> </html>
From: "Ray Costanzo [MVP]" <my first name at lane 34 dot on 17 Feb 2005 12:04 Yes, you are missing the ASP Simple UPload component. You must get that (purchase it? Maybe it's free? Not sure) and install it on the server before you can use it. Okay, as it turns out, this is the component from a company that's gone. You'll have to go with a different component that still exists. You can find some upload options here: http://www.aspfaq.com/show.asp?id=2189 Ray at work "SU_Oran" <dthmtlgod(a)hotmail.com> wrote in message news:e8lZfERFFHA.3312(a)TK2MSFTNGP15.phx.gbl... > I found this when searching. I need to have a simple script that will > upload a single file. > It is giving me an error on Set upl = > Server.CreateObject("ASPSimpleUpload.Upload") > It is saying : > > Server object, ASP 0177 (0x800401F3) > Invalid class string > > Am I missing something? A DLL perhaps? > > -------------------------------------------------------------------------- -- > > Option Explicit > > Dim upl, NewFileName > > Set upl = Server.CreateObject("ASPSimpleUpload.Upload") > > If Len(upl.Form("File1")) > 0 Then > NewFileName = "/Upload/" & upl.ExtractFileName(upl.Form("File1")) > If upl.SaveToWeb("File1", NewFileName) Then > Response.Write("File successfully written to disk.") > Else > Response.Write("There was an error saving the file to disk.") > End If > End If > %> > > <html><head><title>ASP Simple Upload Example #1</title></head></title> > <body> > <form method="POST" action="test.Asp" enctype="multipart/form-data"> > Select a file to upload: <input type="file" name="File1" size="30"> > <input type="submit" name="submit" value="Upload Now"> > </form> > </body> > </html> > >
From: SU_Oran on 17 Feb 2005 12:45 Thank you sir. "Ray Costanzo [MVP]" <my first name at lane 34 dot commercial> wrote in message news:uKIsKLRFFHA.2540(a)TK2MSFTNGP09.phx.gbl... > Yes, you are missing the ASP Simple UPload component. You must get that > (purchase it? Maybe it's free? Not sure) and install it on the server > before you can use it. > > Okay, as it turns out, this is the component from a company that's gone. > You'll have to go with a different component that still exists. You can > find some upload options here: http://www.aspfaq.com/show.asp?id=2189 > > Ray at work > > > "SU_Oran" <dthmtlgod(a)hotmail.com> wrote in message > news:e8lZfERFFHA.3312(a)TK2MSFTNGP15.phx.gbl... > > I found this when searching. I need to have a simple script that will > > upload a single file. > > It is giving me an error on Set upl = > > Server.CreateObject("ASPSimpleUpload.Upload") > > It is saying : > > > > Server object, ASP 0177 (0x800401F3) > > Invalid class string > > > > Am I missing something? A DLL perhaps? > > > > -------------------------------------------------------------------------- > -- > > > > Option Explicit > > > > Dim upl, NewFileName > > > > Set upl = Server.CreateObject("ASPSimpleUpload.Upload") > > > > If Len(upl.Form("File1")) > 0 Then > > NewFileName = "/Upload/" & upl.ExtractFileName(upl.Form("File1")) > > If upl.SaveToWeb("File1", NewFileName) Then > > Response.Write("File successfully written to disk.") > > Else > > Response.Write("There was an error saving the file to disk.") > > End If > > End If > > %> > > > > <html><head><title>ASP Simple Upload Example #1</title></head></title> > > <body> > > <form method="POST" action="test.Asp" enctype="multipart/form-data"> > > Select a file to upload: <input type="file" name="File1" size="30"> > > <input type="submit" name="submit" value="Upload Now"> > > </form> > > </body> > > </html> > > > > > >
|
Pages: 1 Prev: Out of string space Next: Intermittent errors occurs and hangs the ASP-session |