请教asp.net下的文件上传组件

a791223 2004-04-05 06:25:45
可以上传多个文件，可以修改文件名称。
...全文
49 8 打赏 收藏 转发到动态 举报
写回复
用AI写文章
8 条回复
切换为时间正序
请发表友善的回复…
发表回复
dshj 2004-04-06
  • 打赏
  • 举报
 回复
<script language="vb" runat="server">
sub Button_Click(Source As Object, e As EventArgs)
dim shti as short
dim files as httpfilecollection
files=request.files
for shti=0 to files.count-1
if files.item(shti).contentlength>0 then
dim tmp()=split(files.item(shti).filename,"\")
dim fname=tmp(tmp.length-1)
files.item(shti).saveas(server.mappath(".") & "\" & fname)
end if
next
end sub
</script>

<body>
<form enctype="multipart/form-data" runat="server" ID="Form1">
<TABLE height=88 cellSpacing=0 cellPadding=0 width=238 border=0
ms_2d_layout="TRUE">
<TR vAlign=top>
<TD width=10 height=15></TD>
<TD width=228></TD></TR>
<TR vAlign=top>
<TD height=1></TD>
<TD rowSpan=2><br></TD></TR>
<TR vAlign=top>
<TD height=23></TD>
<input id="File1" type="file" maxlength="30" runat="server" NAME="File1"></TR>
<TR vAlign=top>
<TD height=1></TD>
<TD rowSpan=2><br></TD></TR>
<TR vAlign=top>
<TD height=23></TD>
<input id="file2" type="file" runat="server" ></TR>
<TR vAlign=top>
<TD height=25></TD>
<TD>
<input type="button" id="but2" value="test" onserverclick="but2_click" runat="server"></TD></TR>
</TABLE>
</form>
</body>
steventone 2004-04-06
  • 打赏
  • 举报
 回复
up
tigase 2004-04-06
  • 打赏
  • 举报
 回复
我把原代码放上来，需要的拿去
http://www.aspsir.com/download/muliUploadWebApp.rar

演示地址：
http://www.aspsir.com/multifilesupload/index.aspx

athossmth 2004-04-05
  • 打赏
  • 举报
 回复
ASP实例:6行代码实现无组件上传
来源： CSDN 作者： stimson
目前有很多无组件上传类，我大概看了一下，大多写的相当复杂，有的居然还只能传文本
最关键的是没有10行代码以下的 ：）
我花了一个晚上时间研究了一下ADODB.Stream，并且用了6行代码实现了无组件上传：

strFileName = Request.QueryString("file1")
Set objStream = Server.CreateObject("ADODB.Stream")
objStream.Type = 1 ' adTypeBinary
objStream.Open
objStream.LoadFromFile strFileName
objStream.SaveToFile Server."123_onweb.gif",2

使用方法：

把上面的代码写成upload.asp
在浏览器里面输入：
http://XXX/upload.asp?file1=c:\上传文件\123.gif
XXX为你的主机地址
执行完后你会看到你的目录下面多了一个123_onweb.gif
他就是你要文件拉！！！！

根据原理我们可以扩展以下代码：
upload.asp文件
<%
Function GetFileName(ByVal strFile)
If strFile <> "" Then
GetFileName = mid(strFile,InStrRev(strFile, "\")+1)
Else
GetFileName = ""
End If
End function

strFileName = Request.Form("file1")
Set objStream = Server.CreateObject("ADODB.Stream")
objStream.Type = 1 ' adTypeBinary
objStream.Open
objStream.LoadFromFile strFileName
objStream.SaveToFile Server.MapPath(GetFileName(strFileName)),2
objStream.Close
%>

upload.htm文件
<form name="FORM" action="upload.asp" method="post">
　　<input type="submit" name="submit" value="OK">
<input type="file" name="file1" style="width:400" value="">
</form>



a791223 2004-04-05
  • 打赏
  • 举报
 回复
好的，谢谢，有没有VB的
tigase 2004-04-05
  • 打赏
  • 举报
 回复
uploadFile.aspx.cs

SORRY，明天我发上来
tigase 2004-04-05
  • 打赏
  • 举报
 回复
给你看看我写的上传程序
uploadFile.aspx

<%@ Page language="c#" Codebehind="uploadFile.aspx.cs" AutoEventWireup="false" Inherits="OneForm.uploadFile" %>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN" >
<HTML>
<HEAD>
<title>uploadFile</title>
<meta content="Microsoft Visual Studio 7.0" name="GENERATOR">
<meta content="C#" name="CODE_LANGUAGE">
<meta content="JavaScript" name="vs_defaultClientScript">
<meta content="http://schemas.microsoft.com/intellisense/ie5" name="vs_targetSchema">
<LINK href="css/css.css" type="text/css" rel="stylesheet">
<script language="JavaScript">
function addFile()
{
var str = '   <INPUT type="file" size="50" NAME="File" class="box_m"><br>'
document.getElementById('MyFile').insertAdjacentHTML("beforeEnd",str)
}
</script>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</HEAD>
<body bgColor="#939ba2" leftMargin="4" topMargin="0">
<table width="600" align="center">
<tr>
<td height="18"></td>
</tr>
<tr>
<td>
<form id="FileUp" method="post" encType="multipart/form-data" runat="server">
<table class="3dup" height="87" cellSpacing="0" cellPadding="0" width="460" align="center"
border="0">

<tr>
<td align="center" colSpan="3" height="20">
<hr>
<input class="mybutton" onclick="addFile()" type="button" value="增加上传文件">  
<input class="mybutton" id="reset" type="reset" value="重新设置" runat="server">  
<asp:button id="Button1" runat="server" CssClass="mybutton" Text="立即上传"></asp:button> 
<input class="mybutton" onclick="history.back();" type="button" value=" 返 回 " name="Button">
<br>
<hr>
<P id="MyFile">   <INPUT class="box_m" type="file" size="50" name="File">
<br>
</P>
</td>
</tr>
<tr>
<td colSpan="3"> 
</td>
</tr>
<tr>
<td colSpan="3"></td>
</tr>
</table>
</form>
</td>
</tr>
</table>
</body>
</HTML>
DFlyingchen 2004-04-05
  • 打赏
  • 举报
 回复
自己写一个吧,用几个HTML控件组合起来不就行了？
asp.net知识库
深入剖析ASP.NET组件设计]一书第三章关于ASP.NET运行原理讲述的补白 asp.net 运行机制初探(httpModule加载) 利用反射来查看对象中的私有变量 关于反射中创建类型实例的两种方法 ASP.Net应用程序的多进程模型 NET委托...
Nslove速递交友系统 v5.0
　组件要求：FSO读写权限，Adobe.Stream组件，邮件组件（如：Jmail），上传组件，水印组件 　运行环境：ASP+Js+Ajax+XML 　软件大小：22.6M 　软件类别：国产软件｜交友会员 　软件语言：简体中文 　软件授权：免费...
ASP.NET Core 基础 部署至Linux
第一讲什么是ASP.NET Core 第二讲 ASP.NET Core 基本架构 第三讲 ASP.NET Core OWIN 第四讲 创建ASP.NET Core第一个程序 第五讲 ASP.NET Core 运行静态文件1 第六章 ASP.NET Core运行默认文件 第七讲 ASP.NET Core ...
翻唱网站源码天空翻唱网
1.上传组件部分:因为该部分直接牵涉到网站的安全,如修改错误,删除或添加代码反导致被不法份子有机可乘(上传木马文件) 2.程序核心部分:因为该程序使用了大量的数据统计(其中不少都是统计会员分配空间容量的代码),如...
庖丁解牛-Asp.net 3.5控件和组件开发技术一常见问题及书中问题纠正贴
各位好! 庖丁解牛一书已经成功出版. 为方便读者阅读，专门建立一个贴，您可以把：本书是否... 目前网友遇到的常见问题及解答：http://topic.csdn.net/u/20090415/09/a210cadd-0984-43ac-a035-0f7a974c55e1.html?seed
.NET社区

62,073

社区成员

669,028

社区内容

发帖
与我相关
我的任务
社区描述
.NET技术交流专区
javascript云原生 企业社区
社区管理员
  • ASP.NET
  • .Net开发者社区
  • R小R
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告

.NET 社区是一个围绕开源 .NET 的开放、热情、创新、包容的技术社区。社区致力于为广大 .NET 爱好者提供一个良好的知识共享、协同互助的 .NET 技术交流环境。我们尊重不同意见，支持健康理性的辩论和互动，反对歧视和攻击。

希望和大家一起共同营造一个活跃、友好的社区氛围。

试试用AI创作助手写篇文章吧

+ 用AI写文章