十万火急：如何实现不用控件将文件（如文本文件）上传到数据库

Question

小弟刚参加工作正在做一个项目。以前用VS2005做过文件上传。现在公司是用VS2003，请问：如何不用VS2003中的控件实现文件上传，一般上传到数据库的都是文本文件！希望有代码解释！
谢谢！

Answer 1

下面的好象是孟大哥的代码。你参照下吧。Partial Class _Default
    Inherits System.Web.UI.Page    Protected Sub btnUpload_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnUpload.Click
        If (FileUpload1.PostedFile.InputStream.Length < 1) Then
            Msg.Text = "请选择"
            Return
        End If        Dim FileName As String = FileUpload1.FileName        If (FileName.ToLower().IndexOf(".csv") = -1) Then
            Msg.Text = "请选择"
            Return
        End If        Dim FileLen As Integer = FileUpload1.PostedFile.ContentLength        Dim input As Byte() = New Byte(FileLen - 1) {}        Dim UpLoadStream As System.IO.Stream = FileUpload1.PostedFile.InputStream
        UpLoadStream.Read(input, 0, FileLen)
        UpLoadStream.Position = 0        Dim sr As System.IO.StreamReader = New System.IO.StreamReader(UpLoadStream, System.Text.Encoding.Default)
        Msg.Text = "内容：<br/><br/>" + sr.ReadToEnd()
        sr.Close()
        UpLoadStream.Close()
        UpLoadStream = Nothing
        sr = Nothing    End Sub    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        FileUpload1.Attributes.Add("style", "display:none")
        Button1.Attributes.Add("onclick", "FileUpload1.click();TextBox1.value = FileUpload1.value;")
    End Sub    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        If (FileUpload1.PostedFile.InputStream.Length < 1) Then
            Msg.Text = "请选择"
            Return
        End If        Dim FileName As String = FileUpload1.FileName        If (FileName.ToLower().IndexOf(".csv") = -1) Then
            Msg.Text = "你读取的是csv?"
            Return
        End If        Dim FileLen As Integer = FileUpload1.PostedFile.ContentLength        Dim input As Byte() = New Byte(FileLen - 1) {}        Dim UpLoadStream As System.IO.Stream = FileUpload1.PostedFile.InputStream
        UpLoadStream.Read(input, 0, FileLen)
        UpLoadStream.Position = 0        Dim sr As System.IO.StreamReader = New System.IO.StreamReader(UpLoadStream, System.Text.Encoding.Default)
        Msg.Text = "内容：<br/><br/>" + sr.ReadToEnd()
        sr.Close()
        UpLoadStream.Close()
        UpLoadStream = Nothing
        sr = Nothing
    End Sub
End Class

Answer 2

不用控件？那就是不用FileUpload了吧。