问：DoteyUpload 上传后还是用文件自己的名字，重复怎么办？

luckyfire 2005-11-08 08:26:54

大家用过DoteyUpload这个无组件上传类吗

它为什么上传至服务器后还是用文件本身的名字，这样会引起重复的

这么一句就可以把文件上传到服务器了
Upload.SaveTo(formPath) '将文件根据其文件名统一保存在formpath路径下

现在我想在上传到服务器后，文件用时间做名该在那里做工作？改类代码吗，请高手帮忙？

...全文

74 3 打赏收藏转发到动态举报

写回复

3 条回复

切换为时间正序

请发表友善的回复…

发表回复

jspadmin 2005-11-09

打赏
举报

回复

那你就修改下saveto函数嘛，获取系统时间和文件扩展名，组合成20051108214455.asp形式的文件名，再保存。
----------------------------------------------------------------------------------
欢迎光临我的小站（提供免费博客申请）：http://www.pifoo.com

patchclass 2005-11-08

打赏
举报

回复

自己先获取上传的文件名,然后查找到硬盘上是否有重复的,有就不存盘给出提示啊

yurow 2005-11-08

打赏
举报

回复

没有过，应该是在分析文件名的时候修改

带进度条上传代码,适合学习参考资料,也可直接使用到项目中. 代码片段: Private Sub Class_Initialize() Set Files = Server.CreateObject("Scripting.Dictionary") ' 上传文件集合 Set Form = Server.CreateObject("Scripting.Dictionary") ' 表单集合 UploadProgressInfo = "DoteyUploadProgressInfo" ' Application的Key MaxTotalBytes = 1 *1024 *1024 *1024 ' 默认最大1G ChunkReadSize = 64 * 1024 ' 分块大小64K CrLf = Chr(13) & Chr(10) ' 换行 Set DoteyUpload_SourceData = Server.CreateObject("ADODB.Stream") DoteyUpload_SourceData.Type = 1 ' 二进制流 DoteyUpload_SourceData.Open Version = "1.0 Beta" ' 版本 ErrMsg = "" ' 错误信息 Set Progress = New ProgressInfo End Sub ' 将文件根据其文件名统一保存在某路径下 Public Sub SaveTo(path) Upload() ' 上传 if right(path,1) "/" then path = path & "/" ' 遍历所有已上传文件 For Each fileItem In Files.Items fileItem.SaveAs path & fileItem.FileName Next ' 保存结束后更新进度信息 Progress.ReadyState = "complete" '上传结束 UpdateProgressInfo progressID End Sub ' 分析上传的数据，并保存到相应集合中 Public Sub Upload () Dim TotalBytes, Boundary TotalBytes = Request.TotalBytes ' 总大小 If TotalBytes MaxTotalBytes Then Raise("您当前上传大小为" & TotalBytes/1000 & " K，最大允许为" & MaxTotalBytes/1024 & "K") Exit Sub End If Boundary = GetBoundary() If IsNull(Boundary) Then Raise("如果form中没有包括multipart/form-data上传是无效的") Exit Sub ''如果form中没有包括multipart/form-data上传是无效的 End If

最近刚做了一个asp 上传图片的程序,该程序可实现同时上传表单和多张图片,现增加了一个功能,能实现每月创建文件夹存储当月上传的图片,现将代码传上来,供大家参考,希望大家多多指正.1.建立数据库,我用的是access数据库 id 自动编号.................................. 用于存储表单内容userfilep

ASP.NET 大文件上传组件[无组件上传](AspnetUpload 2.3 release)[免费版序列号放送中...] ASP版本:演示及下载：http://www.webuc.net/MyProject/upload/demo.htm 相关技术细节问题在我的blog(http://www.webuc.net/dotey，只是很郁闷服务器这两天出问题了，blog不能正常访问)...

上传页面代码：
<% typ = Request.QueryString("typ") lb = Request.QueryString("lb") %>

28,405

社区成员

356,946

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

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

+ 用AI写文章