<script language="VB" runat="server">
sub uploadfile(sender as object, e as eventargs)
dim i as integer
dim fingo as string
for i=0 to request.files.count-1
dim postedfile as httppostedfile= request.files(i)
if postedfile.contentlength>0 thenfinfo = finfl &"文件名称:" & postedfile.filename&"<br>"
dim filesplit() as string =split(postedfile.filename,"\")
dim filename as string =filesplit(filesplit.legth-1)
posteddile.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>Untitled Document</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>
sub uploadfile(sender as object, e as eventargs)
dim i as integer
dim fingo as string
for i=0 to request.files.count-1
dim postedfile as httppostedfile= request.files(i)
if postedfile.contentlength>0 thenfinfo = finfl &"文件名称:" & postedfile.filename&"<br>"
dim filesplit() as string =split(postedfile.filename,"\")
dim filename as string =filesplit(filesplit.legth-1)
posteddile.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>Untitled Document</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>
<script language="C#" runat="server">
...
protected void upload(Object sender, EventArgs e)
{
if(uploadflag==0)
{
try
{
string fn = System.IO.Path.GetFileName(upload_file.PostedFile.FileName);
string SaveLocation = Server.MapPath("files") + "\\" + fn;
upload_file.PostedFile.SaveAs(SaveLocation);
upload_file.Visible=false;
Button1.Visible=false;
Info.InnerHtml="成功上传一个文件点击 <a href=uploadfiles.aspx>这儿</a> 继续上传";
Info.Visible=true;
}
catch
{
upload_file.Visible=false;
Button1.Visible=false;
Info.InnerHtml="对不起!上传失败请点击 <a href=uploadfiles.aspx>这儿</a> 继续上传";
Info.Visible=true;
}
}}
</script>......
<form id="Up" method="post" encType="multipart/form-data" runat="server">
<input id="upload_file" type="file" size="20" name="upload_file" EnableViewState="false" runat="server">
<asp:Button id="Button1" OnClick="upload" runat="server" Text="上传"></asp:Button>
<span id="Info" runat="server"></span>
</form>
......