利用VB.NET向服务器上传文件
创新互联长期为千余家客户提供的网站建设服务，团队从业经验10年，关注不同地域、不同群体，并针对不同对象提供差异化的产品和服务；打造开放共赢平台，与合作伙伴共同营造健康的互联网生态环境。为东兰企业提供专业的网站设计、成都网站制作，东兰网站改版等技术服务。拥有10年丰富建站经验和众多成功案例,为您定制开发。
文件上传技术是一个很实用的技术，有着很广泛的应用，在ASP.NET自身的前一个版本ASP里实现这个功能，就必须使用第三方的组件或者自己开发组件了，现在，用ASP.NET实现起来就简单得多了，不需要使用任何组件就可以实现上传的功能了。
为了方便理解，可以把文件上传分成两种类型：单一文件上传和多文件上传。
单一文件上传
首先单一文件上传的方法，单一文件上传就比较简单了，
下面是实现单一文件上传的完整代码：
%@ Import Namespace="System" %
%@ Import Namespace="System.Web.HttpPostedFile" %
%@ Import Namespace="System.Web.UI.HtmlControls.HtmlInputFile" %
script language="VB" runat="server"
Sub UpLoad(Src As Object, E As EventArgs)
If UploadFile.PostedFile.ContentLength=0 then
ShowUpLoadFile.innerText="上传失败或文件不存在！"
Else
''''获取文件名
dim Temp() as String=Split(UploadFile.PostedFile.FileName,"\")
dim FileName as String=Temp(Temp.Length-1)
''''保存文件
UploadFile.PostedFile.SaveAs(Server.MapPath(".") "\Files\" FileName)
''''显示上传结果
ShowUpLoadFile.InnerHtml="文件上传成功！br上传文件名：" FileName
End If
End Sub
/script
html
body
form runat="server" enctype="multipart/form-data"
input type="file" id="UploadFile" runat="server" size="50"br
asp:button runat="server" Text="立即上传" onClick="Upload" /
/form
hrbr
span id="ShowUpLoadFile" runat="server"/span
/body
/html
把上面的代码保存成.aspx文件，然后在该文件所在目录下创建一个存放文件的新目录Files，运行，先感受一下效果，然后再继续看下面的讲解
使用ASP.NET上传文件，需要用到.NET框架的两个类：HttpPostedFile和HtmlInputFile，这两个类所在的命名空间分别是System.Web.HttpPostedFile和System.Web.UI.HtmlControls.HtmlInputFile，所以我们要在文件开头先导入这两个命名空间，
其中的PostedFile表示上传到服务器的文件，它包含几个常用的属性：
ContentLength:文件大小；
FileName :上传文件的详细路径及文件名；
ContentType :上传文件的文件类型。
字符分割函数Split是用来取得文件名的，因为通过PostedFile.FileName获得的是详细的路径及文件名。
多文件上传
所谓的多文件上传就是同时上传多个文件，这个跟单一文件上传大多是相同的，不同的是多文件上传是把所有文件作为一个文件集合一起上传到服务器的，我们需要的是把这个文件集合分解成一个个单一的文件，剩下的处理方法就跟单一文件上传一样了。
首先要知道要最多同时上传多少个文件，然后就在form之间放多少个如下的HtmlInput控件：
input type="file" runat="server" size="50"
注意：这里的HtmlInput控件控件是不需要设置ID的
那如何在上传到服务器的文件集合中取出一个个的文件？看下面的代码：
dim i as integer
For i=0 to Request.Files.Count-1
‘使用Request.Files()来逐个获取上传的文件
dim myFile as HttpPostedFile=Request.Files(i)
''''这里的myFile就相当于上例中的PostedFile，可以用myFile.FileName获得文件名，etc
''''这里的处理代码就跟单一文件上传的一样了
Next
现在掌握了ASP.NET文件上传技术了
Imports System.Data.OleDb
'Imports System.Data.OracleClient
Imports System.Data.SqlClient
'链接Oracle
'cn = New SqlConnection(""Data Source=TNS名称;Persist Security Info=True;User ID=用户名;Password=密码;" ")
'Imports System.Data.OracleClient
'Dim oOracleConn As OracleConnection = New OracleConnection()
'oOracleConn.ConnectionString = ""Data Source=MyOracleDB; User Id=username; Password=passwd; Integrated Security=no; "
'oOracleConn.Open()
'链接SQL Server
'cn = New SqlConnection("Data Source=.;Initial Catalog=Sales;Integrated Security=False;User ID=sa;Password=;")
'链接Access
'cn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" db_path ";Persist Security Info=False")
Public Class Fun_DataBase
Dim cn As OleDbConnection
Dim cm As OleDbCommand
Dim da As OleDbDataAdapter
Dim ds As DataSet
Dim db_path As String = "D:\Documents\Visual Studio 2013\Projects\VBnet1\VBnet1\Resources\Database1.mdb"
Function Fun_sql1(Str_sql As String, V_调用来源 As String) '按指定sql，反馈1个查询值
Try
'Dim cn As New OleDbConnection("Data Source=.;Initial Catalog=Sales;Integrated Security=False;User ID=sa;Password=123456;")
'链接Access
cn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" db_path ";Persist Security Info=False")
cn.Open() 'sql语句执行前，必须打开连接
cm = New OleDbCommand(Str_sql, cn)
cm.ExecuteNonQuery()
Dim strValue As String = cm.ExecuteScalar.ToString
'MessageBox.Show(strValue)
Fun_sql1 = strValue
cn.Close()
Fun_sql1 = True
Catch ex As Exception
MessageBox.Show(V_调用来源 ":执行sql语句失败！" Str_sql)
Fun_sql1 = False
End Try
End Function
Function Fun_sqln(Str_sql As String, V_调用来源 As String) '按指定sql，反馈1行n列查询值
Try
'链接Access
cn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" db_path ";Persist Security Info=False")
cn.Open() 'sql语句执行前，必须打开连接
Dim cmd As New OleDbCommand("select * from grade", cn)
'Dim dr As SqlDataReader
Dim dr As OleDbDataReader
dr = cmd.ExecuteReader()
Dim strDisplay As String = ""
While dr.Read()
Fun_sqln = dr(0).ToString "|"
End While
cn.Close()
Fun_sqln = True
Catch ex As Exception
MessageBox.Show(V_调用来源 ":执行sql语句失败！" Str_sql)
Fun_sqln = False
End Try
'Dim s = Split(F.Fun_sqln("ef"), "|")
'Dim i As Integer
'i = UBound(s)
'For i = 0 To UBound(s)
' MessageBox.Show(s(i))
'Next
End Function
Public Function Fun_sql_exec(Str_sql As String, V_调用来源 As String) '执行指定sql，反馈T|F
Try
'链接Access
cn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" db_path ";Persist Security Info=False")
cn.Open() 'sql语句执行前，必须打开连接
cm = New OleDbCommand(Str_sql, cn)
cm.ExecuteNonQuery()
cn.Close()
Fun_sql_exec = True
Catch ex As Exception
MessageBox.Show(V_调用来源 ":执行sql语句失败！" Str_sql)
Fun_sql_exec = False
End Try
End Function
1 生成txt文件。
DimSaveFileDialog1AsNewSaveFileDialog() '创建一个保存对话框
SaveFileDialog1.Filter ="txt files (*.txt)|*.txt" '设置扩展名
IfSaveFileDialog1.ShowDialog() = System.Windows.Forms.DialogResult.OKThen '如果确定保存
My.Computer.FileSystem.WriteAllText(SaveFileDialog1.Filename, Textbox1.Text,False) '保存文本,False表示不追加文本，直接覆盖其内容
EndIf
原文链接：
