Flash 8上传，用C#.net或VB.net做后台程序

Flash 8的code，你可以从 C:/Program Files/Macromedia/Flash 8/Samples and Tutorials/Samples/ActionScript/FileUpload 获得

将 selectedFile.upload("http://www.helpexamples.com/flash/file_io/uploadFile.php");改成
     selectedFile.upload("upload.aspx");

以下是用C#写的 upload.aspx

<% @ Page Language = " c# "   ResponseEncoding = " utf-8 "   %>
<% @ Import Namespace = " System.IO "   %>

< script language = " c# "  runat = " server " >
     string  saveToFolder  =   " images " ;
     private   void  Page_Load( object  sender, System.EventArgs e)
     ... {
      HttpFileCollection uploadedFiles =  Request.Files;
      string Path = Server.MapPath(saveToFolder);
      for(int i = 0 ; i < uploadedFiles.Count ; i++)
      ...{
        HttpPostedFile F = uploadedFiles[i];
        if(uploadedFiles[i] != null && F.ContentLength > 0)
        ...{   
          string newName = F.FileName.Substring(F.FileName.LastIndexOf("/") + 1);
          F.SaveAs(Path + "/" + newName);
         }
       }
    }
</ script >

以下是用VB写的 upload.aspx

< %@ Page Language = " VB "  ResponseEncoding = " utf-8 "  % >
< %@ Import  Namespace = Namespace="System.IO" %>

<script language="VB" runat="server">
    Dim saveToFolder As String = "images"

    Protected Sub Page_Load()Sub Page_Load(Src As object, E As EventArgs)
        Dim uploadedFiles As HttpFileCollection = Request.Files
        Dim Path As String = Server.MapPath(saveToFolder)
        Dim i As integer
        For i=0 To uploadedFiles.Count-1
            Dim F As HttpPostedFile = uploadedFiles(i)
            If ( (Not IsDBNull(uploadedFiles(i))) And (F.ContentLength > 0) ) Then
                Dim newName As String = F.FileName.Substring(F.FileName.LastIndexOf("/") + 1)
                F.SaveAs(Path + "/" + newName)
            End If
        Next
    End Sub

</script>