<script language="VB" runat="server">sub uploadfile(sender as object, e as eventargs)
dim i as integer
dim finfo as string
for i=0 to request.files.count-1
dim postedfile as httppostedfile= request.files(i)
if postedfile.contentlength>0 thenfinfo=finfo+"文件名称:  "+postedfile.filename+"<br>"
finfo=finfo+"文件大小:  "+cstr(postedfile.contentlength/1024)+"  kb <BR>"
finfo=finfo+"文件名称:  "+postedfile.contenttype+"<p>"
dim filesplit() as string =split(postedfile.filename,"\")
dim filename as string =filesplit(filesplit.length-1)
postedfile.saveas (server.mappath(".")&"\"& filename)
end if 
next
fileinfo.innerhtml=finfo
end sub
</script>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>上传文件</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head><body>
<h3>上传文件</h3>
<form  enctype="multipart/form-data" runat="server">
选择上传文件:<br>
<input type="file" 
 id ="fileup1"
 runat="server"><BR>
 
 <input type="file" 
 id ="fileup2"
 runat="server"><BR>
 
<input type="file" 
 id ="fileup3"
 runat="server"><BR>
 
<asp:button id="upload"
onclick="uploadfile"
text="上传"
runat="server"/>
</form>
<hr>
<div id ="fileinfo" runat="server"/>
</body>
</html>