怎样上传文件?

Public Sub SavePhoto(ByVal sender As Object, ByVal e As EventArgs)        '取得所上传文件的长度
        Dim LenStr As Int32
        LenStr = photo.PostedFile.ContentLength        '取得上传图片的数据
        Dim streamStr As Stream
        streamStr = photo.PostedFile.InputStream        '设置缓冲区大小
        Dim imageBytes(LenStr) As Byte        '写入文件数据
        If photo.PostedFile.FileName = "" Then
            'alert("请选择一个文件名")            streamStr.Read(imageBytes, 0, LenStr)            Dim conn As New OleDb.OleDbConnection("server=127.0.0.1;database=zdsw1;password=111111;user id=zdsw")            Dim cmd As New OleDb.OleDbCommand("insert into Upload (image) values (@image)", conn)            cmd.Parameters.Add("@title", title.Value)
            cmd.Parameters.Add("@imageFile", imageBytes)            conn.Open()
            cmd.ExecuteNonQuery()
            Response.Write("成功")
            conn.Close()
            Response.End()
        End If
    End Sub

a examplehttp://www.codeproject.com/aspnet/fileupload.asp?target=upload

[Visual Basic]
<html>
<head>

    <script language="VB" runat="server">
    Sub Button1_Click(Source As Object, e As EventArgs)

        If Text1.Value = "" Then
            Span1.InnerHtml = "Error: you must enter a file name"
            Return
        End If

        If Not (File1.PostedFile Is Nothing) Then
            Try
                File1.PostedFile.SaveAs(("c:\temp\" + Text1.Value))
                Span1.InnerHtml = "File uploaded successfully to <b>c:\\temp\\" & _
                                      Text1.Value & "</b> on the Web server"
            Catch exc As Exception
                Span1.InnerHtml = "Error saving file <b>c:\\temp\\" & _
                                      Text1.Value & "</b><br>" & exc.ToString()
            End Try
        End If
    End Sub 'Button1_Click

  </script>

</head>
<body>

    <h3>HtmlInputFile Sample</h3>

    <form enctype="multipart/form-data" runat="server">

       Select File to Upload:
       <input id="File1"
              type="file"
              maxlength="30"
              runat="server"/>

       <p>
       Save as filename (no path):
       <input id="Text1"
              type="text"
              runat="server"/>

       <p>
       <span id="Span1"
             style="font: 8pt verdana;"
             runat="server" />

       <p>
       <input type="button"
              id="Button1"
              value="Upload"
              OnServerClick="Button1_Click"
              runat="server">

    </form>

</body>
</html>

路径该怎样写这样写行吗ftp://域名?

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim i As Integer
        For i = 0 To Request.Files.Count - 1
            Dim postedfile As HttpPostedFile = Request.Files(i)
            If postedfile.ContentLength > 0 Then
                '存储上传文件
                Dim filesplit() As String = Split(postedfile.FileName, "\")
                Dim filename As String = filesplit(filesplit.Length - 1)
                postedfile.SaveAs(Server.MapPath("\") & filename)
            End If
        Next
        Dim a As String = "aa"
        Dim b As String = "bb"        Dim c As String = a & b
        Response.Write(c)
    End Sub

转贴
————————————————<HTML>
<HEAD>
<title>上传多个文件</title>
<Script Language="c#" Runat="Server">
public void DoUpload (Object src,EventArgs e)
{
int FileCount=Request.Files.Count;
String Uploadfilename;
String[] AFilename;
char[] de={'\\'};
for (int i=0;i<FileCount ;i++ )
{
HttpPostedFile hpf=Request.Files[i];
if(hpf.FileName!="")
{
AFilename=hpf.FileName.Split(de);
Uploadfilename=AFilename[AFilename.Length-1];
hpf.SaveAs(Server.MapPath(".")+"\\"+Uploadfilename);
AddPanelControls(Uploadfilename);
}

}
}
public void AddPanelControls(String filename)
{
Label lblShow=new Label();
lblShow.Text=filename+"已经上传的文件<br/>";
Panel1.Controls.Add(lblShow);
}
</Script>
</HEAD>
<body>
<b>上传多个文件</b>
<hr>
<form Enctype="multipart/form-data" runat="Server" ID="Form1">
文件1:<input type="file" size="30" id="UploadFile1" runat="Server" NAME="UploadFile1">
<br>
文件2:<input type="file" size="30" id="UploadFile2" runat="server" NAME="UploadFile2">
<br>
文件3:<input type="file" size="30" id="UploadFile3" runat="server" NAME="UploadFile3">
<br>
文件4:<input type="file" size="30" id="UploadFile4" runat="server" NAME="UploadFile4">
<br>
文件5:<input type="file" size="30" id="UploadFile5" runat="server" NAME="UploadFile5">
<br>
<input type="submit" value="上传" onServerClick="DoUpload" runat="server" ID="Submit1" NAME="Submit1">
<br>
</form>
<hr>
<asp:Panel id="Panel1" runat="server" />
</body>
</HTML>

用System.Web.UI.HtmlControls.HtmlInputFile
HttpPostedFile UpFile=FileUp.PostedFile;
//判断文件是否大于120K
long asq=122988;
if(Convert.ToInt64(FileUp.PostedFile.ContentLength) > asq)
{
Label3.Visible =true;
Label3.Text="[上传的文件太大,最大支持120K!]";
}
//判断文件是否为空
else if(Convert.ToInt64(FileUp.PostedFile.ContentLength)==0)
{
Label3.Visible =true;
Label3.Text="[不能上传空文件!]";
}
else
{
//得到上传文件的后缀名
string fileExt = (System.IO.Path.GetExtension(UpFile.FileName)).ToString().ToLower();
if(fileExt == ".jpg"||fileExt == ".gif" )
{
保存
}

调试易

怎样上传文件?

解决方案 »