asp.net|程式|上傳|原始碼 本檔案用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>
