文件上传技术是一个很实用的技术，有着很广泛的应用，在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>
<hr><br>
<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文件上传技术了
1..Dim Words, Chars, MyString
For Words = 10 To 1 Step -1' 建立 10 次循环。
For Chars = 0 To 9 ' 建立 10 次循环。
MyString = MyString &Chars ' 将数字添加到字符串中。
Next Chars ' Increment counter
MyString = MyString &" " ' 添加一个空格。
Next Words
2.
Do...Loop 语句示例
本示例示范如何使用 Do...Loop 语句。内层的 Do...Loop 语句循环到第 10 次时将标志值设置为 False，并用 Exit Do 语句强制退出内层循环。外层循环则在检查到标志值为 False 时，马上退出。
Dim Check, Counter
Check = True: Counter = 0 ' 设置变量初始值。
Do ' 外层循环。
Do While Counter <20 ' 内层循环。
Counter = Counter + 1 ' 计数器加一。
If Counter = 10 Then ' 如果条件成立。
Check = False ' 将标志值设成 False。
Exit Do ' 退出内层循环。
End If
Loop
Loop Until Check = False ' 退出外层循环。
3.
While...Wend 语句示例
本示例使用 While...Wend 语句来增加计数变量的值。如果条件判断值为 True，则循环内的语句将一直执行下去。
Dim Counter
Counter = 0 ' 设置变量初值。
While Counter <20 ' 测试计数器的值。
Counter = Counter + 1 ' 将计数器的值加一。
Wend ' 当 Counter >19 时则循环终止。
Debug.Print Counter ' 在“立即”窗口中显示数字 20。
Select Case 语句示例
本示例使用 Select Case 语句来判断变量的值。示例中第二个 Case 子句包含了变量值，故只有此区块内的语句会被完成到。
Dim Number
Number = 8 ' 设置变量初值。
Select Case Number ' 判断 Number 的值。
Case 1 To 5 ' Number 的值在 1 到 5 之间，包含1 和 5 。
Debug.Print "Between 1 and 5"
' 下一个 Case 子句是本示例中唯一判断值为 True 的子句。
Case 6, 7, 8 ' Number 的值在 6 到 8 之间。
Debug.Print "Between 6 and 8"
Case 9 到 10 ' Number 的值为 9 或 10。
Debug.Print "Greater than 8"
Case Else ' 其他数值。
Debug.Print "Not between 1 and 10"
End Select
欢迎分享，转载请注明来源：内存溢出
微信扫一扫
支付宝扫一扫
评论列表（0条）