flex上传文件(flex+asp.net)

废话不说，直接代码部分代码摘抄自网上，在此想原作者表示感谢
1、服务端 uploadFile.ashx
<%@ WebHandler Language="VB" Class="UploadFile" %>
Imports System
Imports System.Web
Imports System.Web.HttpServerUtility
Imports System.IO
Imports System.Web.HttpRequest
Public Class UploadFile : Implements IHttpHandler
   
    Private m_UploadPath As String = "~\Files\"
   
    Public Sub ProcessRequest(ByVal context As HttpContext) Implements IHttpHandler.ProcessRequest
        context.Response.ContentType = "text/plain"
    
        Dim responses As String = ""
        Dim files As HttpFileCollection = context.Request.Files
        If files.Count = 0 Then
            'Response.Write("请勿直接访问本文件")
            context.Response.End()
        Else
            ' 只取第 1 个文件
            Dim file As HttpPostedFile = files.Item(0)
            If (file IsNot Nothing AndAlso file.ContentLength > 0) Then
                Dim path_1 As String = context.Server.MapPath(m_UploadPath)
                Dim today As DateTime = DateTime.Today
                Dim dirname As String = String.Format("/Files/{0}/{1}/{2}/", today.Year, today.Month, today.Day)
         &n