高校问答网游之三国无双风云版:ASP.NET多文件上传
来源：百度文库 编辑：高校问答 时间：2024/04/28 16:40:13
版主自己回答,供大家参考,已经测试,可以同时上传多个文件,目标位置:/temp/
版主QQ:190561115
以下是 VB.NET 实现的单个文件,是看别人的C#程序后修改的
<%@ Page Language="VB" ContentType="text/html" ResponseEncoding="gb2312" %>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN" >
<%@ Import Namespace="System" %>
<%@ Import Namespace="System.Collections" %>
<%@ Import NameSpace="System.Web" %>
<script language="VB" runat="server">
sub page_load(Sender As Object, e As EventArgs)
if IsPostBack Then
save_files()
end if
end sub
sub save_files()
dim files as HttpFileCollection =HttpContext.Current.Request.Files
dim strMsg as System.Text.StringBuilder =new System.Text.StringBuilder()
strMsg.Append("上传的文件分别是：<hr color=red>")
dim fileno as integer
try
for fileno=0 to files.count-1
dim postedfile as HttpPostedFile=files(fileno)
dim filename,fileext as string
filename=System.IO.Path.GetFileName(postedFile.FileName)
if filename<>"" then
fileext = System.IO.Path.GetExtension(fileName)
strMsg.Append("上传的文件类型：" + postedFile.ContentType.ToString() + "<br>")
strMsg.Append("客户端文件地址：" + postedFile.FileName + "<br>")
strMsg.Append("上传文件的文件名：" + fileName + "<br>")
strMsg.Append("上传文件的扩展名：" + fileext + "<br><hr>")
postedFile.SaveAs(System.Web.HttpContext.Current.Request.MapPath("/temp2/") + fileName)
end if
next fileno
strStatus.Text = strMsg.ToString()
catch Ex as System.Exception
strStatus.Text = Ex.Message
end try
end sub
</script>
<HTML>
<HEAD>
<title>多文件上传</title>
<script language="JavaScript">
function addFile()
{
var str = '<INPUT type="file" size="50" NAME="File">'
document.getElementById('MyFile').insertAdjacentHTML("beforeEnd",str)
}
</script>
</HEAD>
<body>
<form id="form1" method="post" runat="server" enctype="multipart/form-data">
<div align="center">
<h3>ASP.NET多文件上传,版主QQ:190561115</h3>
<P id="MyFile"><INPUT type="file" size="50" NAME="File"></P>
<P>
<input type="button" value="增加(Add)" onclick="addFile()">
<input onclick="this.form.reset()" type="button" value="重置(ReSet)">
<asp:Button Runat="server" Text="开始上传" ID="UploadButton"></asp:Button>
</P>
<P>
<asp:Label id="strStatus" runat="server" Font-Names="宋体" Font-Bold="True" Font-Size="9pt"
Width="500px" BorderStyle="None" BorderColor="White"></asp:Label>
</P>
</div>
</form>
</body>
</HTML>
版主QQ:190561115
以下是 VB.NET 实现的单个文件,是看别人的C#程序后修改的
<%@ Page Language="VB" ContentType="text/html" ResponseEncoding="gb2312" %>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN" >
<%@ Import Namespace="System" %>
<%@ Import Namespace="System.Collections" %>
<%@ Import NameSpace="System.Web" %>
<script language="VB" runat="server">
sub page_load(Sender As Object, e As EventArgs)
if IsPostBack Then
save_files()
end if
end sub
sub save_files()
dim files as HttpFileCollection =HttpContext.Current.Request.Files
dim strMsg as System.Text.StringBuilder =new System.Text.StringBuilder()
strMsg.Append("上传的文件分别是：<hr color=red>")
dim fileno as integer
try
for fileno=0 to files.count-1
dim postedfile as HttpPostedFile=files(fileno)
dim filename,fileext as string
filename=System.IO.Path.GetFileName(postedFile.FileName)
if filename<>"" then
fileext = System.IO.Path.GetExtension(fileName)
strMsg.Append("上传的文件类型：" + postedFile.ContentType.ToString() + "<br>")
strMsg.Append("客户端文件地址：" + postedFile.FileName + "<br>")
strMsg.Append("上传文件的文件名：" + fileName + "<br>")
strMsg.Append("上传文件的扩展名：" + fileext + "<br><hr>")
postedFile.SaveAs(System.Web.HttpContext.Current.Request.MapPath("/temp2/") + fileName)
end if
next fileno
strStatus.Text = strMsg.ToString()
catch Ex as System.Exception
strStatus.Text = Ex.Message
end try
end sub
</script>
<HTML>
<HEAD>
<title>多文件上传</title>
<script language="JavaScript">
function addFile()
{
var str = '<INPUT type="file" size="50" NAME="File">'
document.getElementById('MyFile').insertAdjacentHTML("beforeEnd",str)
}
</script>
</HEAD>
<body>
<form id="form1" method="post" runat="server" enctype="multipart/form-data">
<div align="center">
<h3>ASP.NET多文件上传,版主QQ:190561115</h3>
<P id="MyFile"><INPUT type="file" size="50" NAME="File"></P>
<P>
<input type="button" value="增加(Add)" onclick="addFile()">
<input onclick="this.form.reset()" type="button" value="重置(ReSet)">
<asp:Button Runat="server" Text="开始上传" ID="UploadButton"></asp:Button>
</P>
<P>
<asp:Label id="strStatus" runat="server" Font-Names="宋体" Font-Bold="True" Font-Size="9pt"
Width="500px" BorderStyle="None" BorderColor="White"></asp:Label>
</P>
</div>
</form>
</body>
</HTML>
我的是 C# 的，要的加群：16449874