Web page and code behind page below:
page is uploadtest.aspx
code is uploadtest.aspx.vb
It also has my own server sided extension checker.
<%@ Page Language="VB" AutoEventWireup="false" CodeFile="uploadtest.aspx.vb" Inherits="uploadtest" %>
<%@ Register Assembly="EO.Web" Namespace="EO.Web" TagPrefix="eo" %>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" >
<head runat="server">
<title>Untitled Page</title>
</head>
<body>
<form id="form1" runat="server">
<div>
<eo:AJAXUploader ID="AJAXUploader1" runat="server" TempFileLocation="~/portal/reports/temp/"
Width="250px" AllowedExtension=".doc">
</eo:AJAXUploader>
</div>
</form>
</body>
</html>
Imports System.IO
Partial Class uploadtest
Inherits System.Web.UI.Page
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
End Sub
Protected Sub AJAXUploader1_FileUploaded(ByVal sender As Object, ByVal e As System.EventArgs) Handles AJAXUploader1.FileUploaded
Dim tempFilename As String = ""
Dim clientFilename As String = ""
Dim file As EO.Web.AJAXPostedFile
Dim allowedExtensions = "rpt,pdf,doc,rtf,txt,csv,xls"
Dim extType As String = ""
' get the file names of the uploaded file
For Each file In AJAXUploader1.PostedFiles
tempFilename = file.TempFileName
clientFilename = file.ClientFileName
Next
' only do the next part if a file was uploaded to grab the file extension
If tempFilename <> "" Then
tempFilename = Mid(tempFilename, InStrRev(tempFilename, "\") + 1, tempFilename.Length() - InStrRev(tempFilename, "\"))
clientFilename = Mid(clientFilename, InStrRev(clientFilename, "\") + 1, clientFilename.Length() - InStrRev(clientFilename, "\"))
extType = common.getFileExtension(clientFilename)
' is this an allowed file
If InStr(allowedExtensions, extType) > 0 Then
' copy the uploaded file from temp to new location and rename
copyUploadedFile(tempFilename, clientFilename)
' now we insert the record into the database
'Dim reportAdapter As New reportsTableAdapters.tblReportsTableAdapter()
'reportAdapter.Insert(txtID.Text, txtTitle.Text, txtSummary.Text, txtDescription.Text, clientFilename, extType + ".gif", True)
Response.Redirect("addreportthankyou.aspx")
End If
End If
End Sub
Protected Sub copyUploadedFile(ByVal tempFilename As String, ByVal clientFilename As String)
File.Copy(Server.MapPath("~/portal/reports/temp/") + tempFilename, Server.MapPath("~/portal/reports/files/") + clientFilename)
End Sub
End Class