ASP.NET文件上传程序的源代码
日期：2014-01-11 浏览次数：20611 次
本文件用VB.NET编辑,在WIN2000+IIS(安装有.NET支持)中调试通过,可以上传许多常用的文件类型.如
RAR、ZIP、DOC、TXT、JPG、GIF等等!
直接下载保存为ASPX格式就可以
------------------------------------------------------------
<html>
<title>文件上传</title>
<body>
<form enctype="multipart/form-data" runat=server>
<Input type=file id=fileup runat=server size="20"><p>
<asp:button id=upload_button onclick=uploadfile text="上传" runat=server/>
</form>
<p>
<asp:label id=uptype runat=server/>
</body>
</html>
<script language=VB runat=server>
Sub uploadfile(sender as object,e as eventargs)
If fileup.postedfile.contentlength=0 Then
uptype.text="你还没有选择需要上传的文件！"
Else
Dim filesplit() as string=split(fileup.postedfile.filename,"\")
Dim filename as string=filesplit(filesplit.length-1)
fileup.postedfile.saveas(server.mappath(".")&"\"&filename)
uptype.text="文件名称："&fileup.postedfile.filename &"<br>"& _
"文件大小："&fileup.postedfile.contenttype &"<br>"& _
"文件类型："&fileup.postedfile.contentlength
End If
End Sub
</script>
RAR、ZIP、DOC、TXT、JPG、GIF等等!
直接下载保存为ASPX格式就可以
------------------------------------------------------------
<html>
<title>文件上传</title>
<body>
<form enctype="multipart/form-data" runat=server>
<Input type=file id=fileup runat=server size="20"><p>
<asp:button id=upload_button onclick=uploadfile text="上传" runat=server/>
</form>
<p>
<asp:label id=uptype runat=server/>
</body>
</html>
<script language=VB runat=server>
Sub uploadfile(sender as object,e as eventargs)
If fileup.postedfile.contentlength=0 Then
uptype.text="你还没有选择需要上传的文件！"
Else
Dim filesplit() as string=split(fileup.postedfile.filename,"\")
Dim filename as string=filesplit(filesplit.length-1)
fileup.postedfile.saveas(server.mappath(".")&"\"&filename)
uptype.text="文件名称："&fileup.postedfile.filename &"<br>"& _
"文件大小："&fileup.postedfile.contenttype &"<br>"& _
"文件类型："&fileup.postedfile.contentlength
End If
End Sub
</script>
免责声明： 本文仅代表作者个人观点，与爱易网无关。其原创性以及文中陈述文字和内容未经本站证实，对本文以及其中全部或者部分内容、文字的真实性、完整性、及时性本站不作任何保证或承诺，请读者仅作参考，并请自行核实相关内容。
