| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1027 人关注过本帖
标题:如何实现本地文件上传服务器?
只看楼主 加入收藏
xwwbc
Rank: 1
等 级:新手上路
帖 子:7
专家分:0
注 册:2007-5-23
收藏
 问题点数:0 回复次数:1 
如何实现本地文件上传服务器?
我想做成能够打开本地文件,浏览上传的那种,请问各位如何?
如果有源代码更好啊!
搜索更多相关主题的帖子: 服务器 文件 
2007-06-08 09:08
川流不息
Rank: 6Rank: 6
等 级:贵宾
威 望:27
帖 子:2000
专家分:47
注 册:2006-11-8
收藏
得分:0 

這是我曾經做過的一種方法,你做過去參考一下吧:


Private Function UploadFile(ByVal InputFile As HtmlInputFile, ByVal UpLoadPath As String) As Boolean '上傳文件
Dim boolReturnValue As Boolean = False
Try
Dim postedFile As System.Web.HttpPostedFile
Dim strFileName As String
Dim strFileExtendName As String
Dim strServerPath As String
postedFile = InputFile.PostedFile
If postedFile.ContentLength > 0 Then '判斷是否點選了要上傳的文件


strFileName = System.IO.Path.GetFileNameWithoutExtension(postedFile.FileName) '得到沒有擴展名的文件名


strFileExtendName = System.IO.Path.GetExtension(postedFile.FileName) '得到該文件的擴展名


If System.IO.Directory.Exists(UpLoadPath) = False Then '如果該文件目錄不存在,測創建
System.IO.Directory.CreateDirectory(UpLoadPath)
End If
'映射到服務器端的文件路徑
strServerPath = UpLoadPath & strFileName & Now.Date.ToString("yyyyMMdd") & Now.Hour & Now.Minute & Now.Second & strFileExtendName '文件名由年月日時分秒組成
Session("Path") = strServerPath
postedFile.SaveAs(strServerPath) '上傳
boolReturnValue = True
End If
Catch ex As Exception

Finally
End Try
Return boolReturnValue
End Function


日月更替,天地輪回,人間已是幾回春。 江山不老,人正少年,只手能擎半邊天。
2007-06-08 10:23
快速回复:如何实现本地文件上传服务器?
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.017729 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved