Before running this code sample, make sure AspUpload is installed on your server, and use Windows Explorer to give the "Everyone" group full control over the database file aspjpeg.mdb located in the subdirectory \Samples\Db, or a run-time error may occur during uploading.

VB Script:

<% ' Create an instance of AspUpload object Set Upload = Server.CreateObject("Persits.Upload") ' Compute path to save uploaded files to Path = Server.MapPath(".") ' Capture uploaded file. Return the number of files uploaded Count = Upload.Save(Path) If Count = 0 Then   Response.Write "No images selected."   Response.End Else   ' Obtain File object representing uploaded file   Set File = Upload.Files(1)   ' Is this a valid image file?   If File.ImageType <> "UNKNOWN" Then     ' Create instance of AspJpeg object     Set jpeg = Server.CreateObject("Persits.Jpeg")     ' Open uploaded file     jpeg.Open( File.Path )     ' Resize image according to "scale" option.     ' We cannot use Request.Form, so we use Upload.Form instead.     jpeg.Width = jpeg.OriginalWidth * Upload.Form("scale") / 100     jpeg.Height = jpeg.OriginalHeight * Upload.Form("scale") / 100     SavePath = Path & "\small_" & File.ExtractFileName     ' AspJpeg always generates thumbnails in JPEG format.     ' If the original file was not a JPEG, append .JPG ext.     If UCase(Right(SavePath, 3)) <> "JPG" Then       SavePath = SavePath & ".jpg"     End If     jpeg.Save SavePath     ' Save both images in the database along with description.     strConnect = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("../db/aspjpeg.mdb")     Set rs = Server.CreateObject("adodb.recordset")     rs.Open "images", strConnect, 1, 3     rs.AddNew     ' Use File.Binary to access binary data of uploaded file.     rs("original_image").Value = File.Binary     Set ThumbFile = Upload.OpenFile(SavePath)     rs("thumbnail").Value = ThumbFile.Binary     rs("description") = Upload.Form("Description")     rs.Update     rs.Close     Set rs = Nothing     Response.Write "Success!"   Else     Response.Write "This is not a valid image."     Response.End   End If End If %>

C#:

<script runat="server" LANGUAGE="C#"> void Page_Load(Object Source, EventArgs E) { // Create an instance of AspUpload object IUploadManager objUpload; objUpload = new UploadManager(); String strPath = Server.MapPath("."); // Save returns the number of uploaded files int nCount = objUpload.Save(strPath, Missing.Value, Missing.Value); if( nCount == 0 ) {   txtMsg.InnerHtml = "No images selected.";   return; } // Obtain File object representing uploaded file IUploadedFile objFile; objFile = objUpload.Files.Item(1); // Is this a valid image file? if( objFile.ImageType != "UNKNOWN" ) {   // Create instance of AspJpeg object   IASPJpeg objJpeg;   objJpeg = new ASPJpeg();   // Open uploaded file   objJpeg.Open( objFile.Path );   // Resize image according to "scale" option.   // We cannot use Request.Form, so we use Upload.Form instead.   int nScale = int.Parse(objUpload.Form.Item("scale").Value);   objJpeg.Width = objJpeg.OriginalWidth * nScale / 100;   objJpeg.Height = objJpeg.OriginalHeight * nScale / 100;   String strSavePath = strPath + "\\small_" + objFile.ExtractFileName();   // AspJpeg always generates thumbnails in JPEG format.   // If the original file was not a JPEG, append .JPG extension.   if( strSavePath.ToUpper().Substring( strSavePath.Length - 3) != "JPG" )   {     strSavePath += ".jpg";   }   objJpeg.Save( strSavePath );   // Save both images in the database along with description.   String strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + Server.MapPath("../db/aspjpeg.mdb");   OleDbConnection myConnection = new OleDbConnection(strConn);   myConnection.Open();   OleDbDataAdapter myDataAdapter = new OleDbDataAdapter ("select * from images", myConnection);   DataSet myDataSet = new DataSet();   myDataAdapter.Fill( myDataSet, "images" );   DataTable tblImages = myDataSet.Tables["images"];   DataRow rowImage;   // Add a new row   rowImage = tblImages.NewRow();   tblImages.Rows.Add( rowImage );   rowImage.BeginEdit();   // Save original image and thumbnail in the database table.   rowImage["original_image"] = objFile.Binary;   IUploadedFile objThumb = objUpload.OpenFile( strSavePath );   rowImage["thumbnail"] = objThumb.Binary;   rowImage["description"] = objUpload.Form.Item("description").Value;   rowImage.EndEdit();   // Without this line, Update will fail.   OleDbCommandBuilder myCB = new OleDbCommandBuilder(myDataAdapter);   myDataAdapter.Update( myDataSet, "images" );   myConnection.Close();   txtMsg.InnerHtml = "Success!"; } else {   txtMsg.InnerHtml = "This is not a valid image."; } } </script>

Click the links below to run this code sample:

The following code sample is similar to the previous one, except that we use the memory upload feature of AspUpload (the Save method is called without a Path argument), an uploaded image is opened via Jpeg.OpenBinary( File.Binary ), and the resultant thumbnail is saved directly to the recordset via rs("image").Value = Jpeg.Binary:

VB Script:

<% ... Count = Upload.Save ' Open uploaded file from memory jpeg.OpenBinary( File.Binary ) ' For now, Jpeg.Binary contains the original image rs("original_image").Value = Jpeg.Binary ... jpeg.Width = jpeg.OriginalWidth * Upload.Form("scale") / 100 jpeg.Height = jpeg.OriginalHeight * Upload.Form("scale") / 100 ' Now Jpeg contains a resized version of the original file. rs("thumbnail").Value = Jpeg.Binary ... %>

C#:

<%@ Import Namespace="System.Web" %> <%@ Import Namespace="System.Reflection" %> <%@ Import Namespace="ASPJPEGLib" %> <%@ Page aspCompat="True" %> <script runat="server" LANGUAGE="C#"> void Page_Load(Object Source, EventArgs E) { ... // Save to memory, return the number of uploaded files int nCount = objUpload.Save(Missing.Value, Missing.Value, Missing.Value); ... // objJpeg contains original image rowImage["original_image"] = objJpeg.Binary; // Resize image according to "scale" option. // We cannot use Request.Form, so we use Upload.Form instead. int nScale = int.Parse(objUpload.Form.Item("scale").Value); objJpeg.Width = objJpeg.OriginalWidth * nScale / 100; objJpeg.Height = objJpeg.OriginalHeight * nScale / 100; // Now objJpeg contains resized version of original image rowImage["thumbnail"] = objJpeg.Binary; ... } </script>

Click the links below to run this code sample: