开发工具:
文件大小: 111kb
下载次数: 0
上传时间: 2011-12-13
详细说明： 带进度条上传代码,适合学习参考资料,也可直接使用到项目中. 代码片段: 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 ...展开收缩
(系统自动生成,下载前可以参看下载内容)
下载文件列表
相关说明
- 本站资源为会员上传分享交流与学习,如有侵犯您的权益,请联系我们删除.
- 本站是交换下载平台，提供交流渠道，下载内容来自于网络，除下载问题外，其它问题请自行百度。
- 本站已设置防盗链，请勿用迅雷、QQ旋风等多线程下载软件下载资源，下载后用WinRAR最新版进行解压.
- 如果您发现内容无法下载，请稍后再次尝试；或者到消费记录里找到下载记录反馈给我们.
- 下载后发现下载的内容跟说明不相乎，请到消费记录里找到下载记录反馈给我们，经确认后退回积分.
- 如下载前有疑问，可以通过点击"提供者"的名字，查看对方的联系方式，联系对方咨询.
