化境编程界无组件上传类修改版

yaotie

'******************* 无组件上传类 ********************************
'修改者:梁无惧
'电子邮件:yjlrb@21cn.com
'网站:http://www.25cn.com
'原作者:稻香老农
'原作者网站:http://www.5xsoft.com
'声明:此上传类是在化境编程界发布的无组件上传类的基础上修改的.
'在与化境编程界无组件上传类相比,速度快了将近50倍,当上传4M大小的文件时
'服务器只需要10秒就可以处理完,是目前最快的无组件上传程序,当前版本为0.98
'源代码公开,免费使用,对于商业用途,请与作者联系
'文件属性：例如上传文件为c:\myfile\doc.txt
'FileName 文件名 字符串 "doc.txt"
'FileSize 文件大小 数值 1210
'FileType 文件类型 字符串 "text/plain"
'FileExt 文件扩展名 字符串 "txt"
'FilePath 文件原路径 字符串 "c:\myfile"
'
'使用时注意事项:
'由于Scripting.Dictionary区分大小写,所以在网页及ASP页的项目名都要相同的大小
'写,如果人习惯用大写或小写,为了防止出错的话,可以把
'sFormName = Mid (sinfo,iFindStart,iFindEnd-iFindStart)
'改为
'(小写者)sFormName = LCase(Mid (sinfo,iFindStart,iFindEnd-iFindStart))
'(大写者)sFormName = UCase(Mid (sinfo,iFindStart,iFindEnd-iFindStart))
'
'加入上传文件大小限制,所以该版与0.96以前的版本不兼容,在
'UpFile=new Upload_file 后要执行'UpFile.GetDate(RetSize)函数 -1表示不限制上
'传大小,否测请输入限制大小(以字节为单位,请注意,该数值并不绝对与上传文件大小
'相同,而是总上传到服务器的数据量,请在使用时注意.)
'增加一个Err错误码属性
'-1 表示没有错误发生
'1 表示没有数据上传到服务器上
'2 表示上传到服务器的数据超过限制.

下载地址：http://www.cgknife.com/yjlrb/upfile.rar