求上传文件的控件！马上结贴！

Question

求上传文件的控件！马上结贴！

Answer 1

if(File1.PostedFile!=null)
{

this.File1.Accept="image/*";
string nam = File1.PostedFile.FileName ;
string fType=File1.PostedFile.ContentType; 
string FileSize=File1.PostedFile.ContentLength.ToString(); 
//取得文件名(抱括路径)里最后一个"."的索引
int i= nam.LastIndexOf(".");
//取得文件扩展名
string newext =nam.Substring(i);
if (newext==".jpg" || newext==".gif") 
{
//这里我自动根据日期和文件大小不同为文件命名,确保文件名不重复
DateTime now = DateTime.Now; 
string newname=now.DayOfYear.ToString()+File1.PostedFile.ContentLength.ToString(); 
//保存文件到你所要的目录,这里是IIS根目录下的upload目录.你可以改变.
//注意: 我这里用Server.MapPath()取当前文件的绝对目录.在asp.net里""必须用""代替
string Path=Server.MapPath("upload").ToString();
//判断此文件夹是否存在，不存在重新建此文件夹。 
if (Directory.Exists(Path)==false) 
{    
//重新创建文件夹(Photo） 
Directory.CreateDirectory(Path); 
}  File1.PostedFile.SaveAs(Path+"\\"+newname+newext);
ImgUpload.ImageUrl=Path+"\\"+newname+newext;
}
else
{
Response.Write("error");
}


}

Answer 2

在PAGE_LOAD里调用下面的函数，不要加ISPOSTBACK，还有INPUT type="file"一定要作为服务器控件才行。    Private Function saveimage()
        Dim files As System.Web.HttpFileCollection = System.Web.HttpContext.Current.Request.Files
        Dim filename, fileextension As String
        Dim message As New System.Text.StringBuilder("")
        Try
            Dim i As Int16
            For i = 0 To files.Count - 1
                Dim postedfile As System.Web.HttpPostedFile = files(i)
                filename = System.IO.Path.GetFileName(postedfile.FileName)
                fileextension = System.IO.Path.GetExtension(filename)
                If UCase(fileextension) = ".XML" Then
                    If Not System.IO.File.Exists(FilePath + Format(Today(), "yyyy-MM-dd") + " " + filename) And Not System.IO.File.Exists(HandlePath + Format(Today(), "yyyy-MM-dd") + " " + filename) Then
                        postedfile.SaveAs(FilePath + Format(Today(), "yyyy-MM-dd") + " " + filename)
                        message.Append("文件 " + filename + " 成功上传！<br>")
                    Else
                        message.Append("文件 " + filename + "今天已经上传！<br>")
                    End If
                Else
                    If filename <> "" Then
                        message.Append("文件 " + filename + " 格式不对，上传失败！<br>")
                    End If
                End If
            Next
            Me.Label1.Text = message.ToString()
        Catch ex As Exception
        End Try
    End Function