无组件上传类的源代码

<SCRIPT RUNAT=SERVER LANGUAGE=VBSCRIPT>
'定义全局变量保存用户上传的内容'
dim strmUpload
'自定义class处理上传文件'
Class FileUpload
dim Form,File
Private Sub Class_Initialize
dim iStart,iFileNameStart,iFileNameEnd,iEnd,vbEnter,iFormStart,iFormEnd,theFile
dim strDiv,mFormName,mFormValue,mFileName,mFileSize,mFilePath,iDivLen,mStr
if Request.TotalBytes<1 then Exit Sub
set Form=CreateObject("Scripting.Dictionary")
set File=CreateObject("Scripting.Dictionary")
set strmUpload=CreateObject("Adodb.Stream")
strmUpload.mode=3
strmUpload.type=1
strmUpload.open
strmUpload.write Request.BinaryRead(Request.TotalBytes)
'vbscript中的换行符字符串'
vbEnter=Chr(13)&Chr(10)
'换行符的位置'
iDivLen=InStrB(1,vbEnter)+1
'表单中不同控件数据的分隔字符串'
strDiv=SubStrB(1,iDivLen)
'表单有效数据开始位置'
iFormStart=iDivLen
'表单有效数据结束位置'
iFormEnd=InStrB(iformStart,strDiv)-1
'循环得到表单中所有控件的值'
while iFormStart < iFormEnd
'得到控件的name'
iStart=InStrB(iFormStart,"name=""")
iEnd=InStrB(iStart+6,"""")
mFormName=SubStrB(iStart+6,iEnd-iStart-6)
'得到file控件的filename'
iFileNameStart=InStrB(iEnd+1,"filename=""")
'如果是file控件'
if iFileNameStart>0 and iFileNameStart<iFormEnd then
iFileNameEnd=InStrB(iFileNameStart+10,"""")
mFileName=SubStrB(iFileNameStart+10,iFileNameEnd-iFileNameStart-10)
iStart=InStrB(iFileNameEnd+1,vbEnter&vbEnter)
iEnd=InStrB(iStart+4,vbEnter&strDiv)
'如果上传了文件'
if iEnd>iStart then
'得到上传文件的大小'
mFileSize=iEnd-iStart-4
else
mFileSize=0
end if
set theFile=new FileInfo

时间: 2024-02-14 16:34:39

无组件上传类的源代码的相关文章

化境ASP无组件上传类 - upload

上传|无组件 化境ASP无组件上传类 - upload_5xsoft 使用手册 1.0 稻香老农 http://www.5xsoft.com/ [ 下载 ] 目 录 1.关于 upload_5xsoft 2.运行平台与注意事项 2.类的成员与对象 3.使用示例 关于 upload_5xsoft 一直以来,由于FileSystemObject的局限,所以ASP最大的难题就是文件上传,大多解决法就是安装 第三方上传组件.可第三方组件有很多问题,有的组件要注册,有的组件要在表单中加上他的版权信息. 还

ASP实例:一个简单的ASP无组件上传类

简单的ASP无组件上传类,发出来让大家看看.可以做做实验! 以下为引用的内容: <%@ language="javascript"%><%var self = Request.serverVariables("SCRIPT_NAME");if (Request.serverVariables("REQUEST_METHOD")=="POST"){        var oo = new uploadFile(

ASP无组件上传类的应用实例

上传|无组件|应用实例|上传|无组件|应用实例 ''''''-------- upload.htm ------------- <script language="javascript">   function checkFile(myForm)    { if(myForm.File1.value=='') return false;    myForm.submit();     }</script><form method="POST&qu

求asp.net的无组件上传类

问题描述 得到上传路径不用组件直接上传.谢谢! 解决方案 解决方案二:顶~!求asp.net1.0的无组件上传类解决方案三:怎么都没人理我5555555555555~~!解决方案四:晕..asp.net本身就可以直接上传啊..解决方案五:求求各位啦!谁有就给我一个吧解决方案六:这个没弄过!不知深浅!

蛙蛙推荐:蛙蛙牌无组件上传类

上传|无组件|上传|无组件 <%'当表单里既有文本域又有文件域的时候,我们必须把表单的编码类型设置成"multipart/form-data"类型'这时候上传上来的编码文件并不能直接取出文本域的值和文件域的二进制数据,这就需要拆分表单域'在上传上来的数据流中在每个表单域间都有一个随机的分隔符,这个分隔符是在同一个流中不变的,不同的流分隔符不变,'这个分隔符在流的最开头,并且以一个chrb(13) + chrb(10)结束,知道这个后我们就可以用这个分隔符来遍历拆分表单域了.'对于

时间、空间性能极优的asp无组件上传类

上传|无组件|性能|上传|无组件|性能 在解码速度方面,化境 2.0 已经非常高了,但是,它还存在以下两个问题: 1.用Data_5xsoft.Write  Request.BinaryRead(Request.TotalBytes)一次读取全部数据,以及用RequestData =Data_5xsoft.Read 一次取出全部数据,在上传数据过大时,会由于内存不足,导致上传失败,这里应该采用分段读取方式. 2.保存数据时,需要先从Data_5xsoft中复制到一个临时流中,在保存大文件时,需要

无组件上传类

上传|无组件 <%'当表单里既有文本域又有文件域的时候,我们必须把表单的编码类型设置成"multipart/form-data"类型'这时候上传上来的编码文件并不能直接取出文本域的值和文件域的二进制数据,这就需要拆分表单域'在上传上来的数据流中在每个表单域间都有一个随机的分隔符,这个分隔符是在同一个流中不变的,不同的流分隔符不变,'这个分隔符在流的最开头,并且以一个chrb(13) + chrb(10)结束,知道这个后我们就可以用这个分隔符来遍历拆分表单域了.'对于文件域,我们要

6行代码实现无组件上传

上传|无组件 目前有很多无组件上传类,我大概看了一下,大多写的相当复杂,有的居然还只能传文本最关键的是没有10行代码以下的 :)我花了一个晚上时间研究了一下ADODB.Stream,并且用了6行代码实现了无组件上传: strFileName = Request.QueryString("file1")Set objStream = Server.CreateObject("ADODB.Stream")objStream.Type = 1 ' adTypeBinary

ASP实例:6行代码实现无组件上传

 目前有很多无组件上传类,我大概看了一下,大多写的相当复杂,有的居然还只能传文本  最关键的是没有10行代码以下的 :)  我花了一个晚上时间研究了一下ADODB.Stream,并且用了6行代码实现了无组件上传:  strFileName = Request.QueryString("file1")  Set objStream = Server.CreateObject("ADODB.Stream")  objStream.Type = 1 ' adTypeBin