.net中文件上載
要求:將上載文件放至一個指定的file server.
謝謝幫忙阿...
要求:將上載文件放至一個指定的file server.
謝謝幫忙阿...
解决方案 »
- asp.net中的类库不太会用
- 求助excel文档导入到sql server
- 如何将Web应用程序和Outlook 2007集成在一起
- CS0143: 类型“System.Data.OracleClient.OracleDataReader”未定义构造函数
- 如何解决“post方式发送表单到服务器,然后接收服务器post方式返回的数据”?
- 请问怎么把datagrid显示数据两个字段之间的边框线去掉,谢谢,在线等
- 一个参数的值不知道怎么传过来的?
- 如果一个网站的ID参数可以SQL注入,可以破坏些什么内容?
- asp.net网站有安全漏洞吗?
- 关于Asp.Net事件的问题
- 怎样获取链接页面的url以及参数字串?
- 问题100分
孟子的“在ASP.NET中实现多文件上传”
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<title>上传文件</title>
<meta name="GENERATOR" content="Microsoft Visual Studio .NET 7.0">
<meta name="CODE_LANGUAGE" content="Visual Basic 7.0">
<meta name="vs_defaultClientScript" content="JavaScript">
<meta name="vs_targetSchema" content="http://schemas.microsoft.com/intellisense/ie5">
</HEAD>
<body>
<form id="Form1" method="post" runat="server" enctype="multipart/form-data">
<P><FONT face="宋体">上传文件</FONT></P>
<P><FONT face="宋体">请选择文件: <INPUT id="File1" type="file" name="File1" runat="server"></FONT></P>
<P><FONT face="宋体">保存文件名:</FONT> <INPUT id="txtName" type="text" name="Text1" runat="server"></P>
<P>
</P>
<DIV id="lblMessage" style="DISPLAY: inline; WIDTH: 450px; HEIGHT: 19px" runat="server" ms_positioning="FlowLayout"><FONT face="宋体"></FONT></DIV>
<P></P>
<P>
<INPUT id="cmdOk" type="button" value="上传" name="Button1" runat="server" style="WIDTH: 84px; HEIGHT: 24px"></P>
</form>
</body>
</HTML>
Public Class Exam2_11
Inherits System.Web.UI.Page
Protected WithEvents cmdOk As System.Web.UI.HtmlControls.HtmlInputButton
Protected WithEvents txtName As System.Web.UI.HtmlControls.HtmlInputText
Protected WithEvents lblMessage As System.Web.UI.HtmlControls.HtmlGenericControl
Protected WithEvents File1 As System.Web.UI.HtmlControls.HtmlInputFile#Region " Web 窗体设计器生成的代码 " '该调用是 Web 窗体设计器所必需的。
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent() End Sub Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
'CODEGEN: 此方法调用是 Web 窗体设计器所必需的
'不要使用代码编辑器修改它。
InitializeComponent()
End Sub#End Region Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'在此处放置初始化页的用户代码
End Sub
Private Sub cmdOk_ServerClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdOk.ServerClick
If txtName.Value = "" Then
lblMessage.InnerHtml = "错误: 你必须输入文件名"
Return
End If
If Not IsNothing(File1.PostedFile) Then
Dim Filepath As String
Filepath = Path.Combine(Path.GetTempPath(), _
Path.GetFileName(txtName.Value))
Try
File1.PostedFile.SaveAs(Filepath)
lblMessage.InnerHtml = "文件上传到服务器 <b>" & _
Filepath & "</b>目录中"
Catch Exc As Exception
lblMessage.InnerHtml = "文件保存错误<b>" & _
Filepath & "</b><br>"
End Try
End If End Sub
End Class
-------
这个不行,一定只能放在本机上.你把它放在你网站之外的目录就可以了.
如果一定要放在其他机器上,你可先上传到本机,然后同时运用webservice,将此文件送到其他机器.不过这样比较消耗资源就是了