进度条的集合参考下载

weixin_39821620 2019-09-02 11:30:12
js+css的一些进度条的集合参考文件,其中有多个类型的
相关下载链接://download.csdn.net/download/tgbnm1109/7063113?utm_source=bbsseo
...全文
7 回复 打赏 收藏 转发到动态 举报
写回复
用AI写文章
回复
切换为时间正序
请发表友善的回复…
发表回复
进度条上传代码,适合学习参考资料,也可直接使用到项目中. 代码片段: 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 < 1 Then Raise("无数据传入") Exit Sub End If 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

12,797

社区成员

发帖
与我相关
我的任务
社区描述
CSDN 下载资源悬赏专区
其他 技术论坛(原bbs)
社区管理员
  • 下载资源悬赏专区社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

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