- 浏览: 14386 次
最新评论
asp无组件上传
2009年10月14日
文件上传组件:upload.asp
上传,true 为普通字段,path为上传文件存放路径
if foro then
getvalue=""
istart=instring(istart,fstr) istart=istart+len(fstr)+5
iend=instring(istart,vbenter+"-----------------------------")
if istart>5+len(fstr) then
getvalue=substring(istart,iend-istart)
else
getvalue=""
end if
else
istart=instring(istart,fstr)
istart=istart+len(fstr)+13
iend=instring(istart,vbenter)-1
filename=substring(istart,iend-istart)
filename=getfilename(filename)
'CheckFileExt(fstr)'''''''''''''''''''''''''''''''''''''''''''''''''''''''
istart=instring(iend,vbenter+vbenter)+3
iend=instring(istart,vbenter+"-----------------------------")
filestart=istart
filesize=iend-istart-1
objstream.position=filestart
Set sf = Server.CreateObject("ADODB.Stream")
sf.Mode=3
sf.Type=1
sf.Open
objstream.copyto sf,FileSize
if filename"" then
Set rf = Server.CreateObject("Scripting.FileSystemObject")
i=0
fn=filename
while rf.FileExists(server.mappath(paths+fn)) fn=cstr(i)+filename
i=i+1
wend
filename=fn
sf.SaveToFile server.mappath(paths+filename),2
end if
getvalue=filename
end if
end functionPrivate function GetFileName(FullPath)
If FullPath "" Then
GetFileName = mid(FullPath,InStrRev(FullPath, "\")+1)
Else
GetFileName = ""
End If
End function Function inString(theStart,varStr)
dim i,j,bt,theLen,str
InString=0
Str=toByte(varStr)
theLen=LenB(Str)
for i=theStart to objStream.Size-theLen
if i>objstream.size then exit Function
objstream.Position=i-1
if AscB(objstream.Read(1))=AscB(midB(Str,1)) then
InString=i
for j=2 to theLen
if objstream.EOS then
inString=0
Exit for
end if
if AscB(objstream.Read(1))AscB(MidB(Str,j,1)) then
InString=0
Exit For
end if
next
if InString0 then Exit Function
end if
next
End Function
function toByte(Str)
dim i,iCode,c,iLow,iHigh
toByte=""
For i=1 To Len(Str)
c=mid(Str,i,1)
iCode =Asc(c)
If iCode255 Then
iLow = Left(Hex(Asc(c)),2)
iHigh =Right(Hex(Asc(c)),2)
toByte = toByte & chrB("&H"&iLow) & chrB("&H"&iHigh)
Else
toByte = toByte & chrB(AscB(c))
End If
Next
End function Function subString(theStart,theLen)
dim i,c,stemp
objStream.Position=theStart-1
stemp=""
for i=1 to theLen
if objStream.EOS then Exit for
c=ascB(objStream.Read(1))
If c > 127 Then
if objStream.EOS then Exit for
stemp=stemp&Chr(AscW(ChrB(AscB(objStream.Read(1)))&ChrB(c)))
i=i+1
else
stemp=stemp&Chr(c)
End If
Next
subString=stemp
End function
%>
1.html
图片和文本一同上传
body {font-size:12px;}
文件路径
标题
uploadfile.asp
0 then
set objstream=server.CreateObject("adodb.stream")
objstream.Mode=3
objstream.Type=1
objstream.Open
objstream.Write Request.BinaryRead(Request.TotalBytes) path=getvalue("filepath",false,"pic/") 'pic为当前目录下一个文件夹名,也可以改成../pic,即上层目录中的pic文件夹
name=getvalue("filename",true,"")
response.write "文件名:"&path&" 标题:"&name
' response.EndEnd if
%> 出处:宝玉BLOG
一、无组件上传的原理
我还是一点一点用一个实例来说明的吧,客户端HTML如下。要浏览上传附件,我们通过元素,但是一定要注意必须设置form的enctype属性为"multipart/form-data":
在后台asp程序中,以前获取表单提交的ASCII 数据,非常的容易。但是如果需要获取上传的 文件,就必须使用Request对象的BinaryRead方法来读取。BinaryRead方法是对当前输入流进行指定字节数的二进制读取,有点需要注 意的是,一旦使用BinaryRead 方法后,再也不能使用Request.Form 或 Request.QueryString 集合了。结合Request对象的TotalBytes属性,可以将所有表单提交的数据全部变成二进制,不过这些数据都是经过编码的。首先让我们来看看这 些数据是如何编码的,有无什么规律可循,编段代码,在代码中我们将BinaryRead读取的二进制转化为文本,输出出来,在后台的upload.asp中(注意该示例不要上传大文件,否则可能会造成浏览器死掉):
" & PostData & "" '使用pre,原样输出格式
' 借助RecordSet将二进制流转化成文本
Function BinaryToString(biData,Size)
Const adLongVarChar = 201
Set RS = CreateObject("ADODB.Recordset")
RS.Fields.Append "mBinary", adLongVarChar, Size
RS.Open
RS.AddNew
RS("mBinary").AppendChunk(biData)
RS.Update
BinaryToString = RS("mBinary").Value
RS.Close
End Function
%>
简单起见,上传一个最简单的文本文件(G:\homepage.txt,内容为"宝玉:http://www.webuc.net")来试验一下,文本框filename中保留默认值"default filename",提交看看输出结果: -----------------------------7d429871607fe
Content-Disposition: form-data; name="file1"; filename="G:\homepage.txt"
Content-Type: text/plain
宝玉:http://www.webuc.net
-----------------------------7d429871607fe
Content-Disposition: form-data; name="filename"
default filename
-----------------------------7d429871607fe--可 以看出来对于表单中的项目,是用过"-----------------------------7d429871607fe"这样的边界来分隔成一块一 块的,每一块的开始都有一些描述信息,例如:Content-Disposition: form-data; name="filename",在描述信息中,通过name="filename"可以知道表单项的name。如果有filename="G:\ homepage.txt"这样的内容,说明是一个上传的文件,如果是一个上传的文件,那么描述信息会多一行Content-Type: text/plain来描述文件的Content-Type。描述信息和主体信息之间是通过换行来分隔的。
嗯,基本上清晰了,根据这个规律我们就知道该怎么来分离数据,再对分离的数据进行处理了,不过差点忽略一个问题,就是边界值(上例中的"-----------------------------7d429871607fe")是怎么知道的?每次上传这个边界值是不一样的,还好还好asp中 可以通过Request.ServerVariables( "HTTP_CONTENT_TYPE")来获之,例如上例中HTTP_CONTENT_TYPE内容为:"multipart/form-data; boundary=---------------------------7d429871607fe",有了这个,我们不仅可以判断客户端的form 中有无使用enctype="multipart/form-data"(如果没有使用,那么下面就没必要执行啦),还可以获取边界值boundary= ---------------------------7d429871607fe。(注意:这里获取的边界值比上面的边界值开头要少"--",最好补 充上。)
至于如何分析数据的过程我就不多赘述了,无非就是借助InStr,Mid等这样的函数来分离出来我们想要的数据。
二、分块上传,记录进度
要实时反映进度条,实质就是要实时知道当前服务器获取了多少数据?再回想一下我们实现上传的过程,我们是通过Request.BinaryRead(Request.TotalBytes)来实现的,在Request的过程中我们无法得知当前服务器获取了多少数据。所以只能通过变通的方法了,如果我们可以将获取的数据分成一块一块的,然后根据已经上传的块数我们就可以算出来当前上传了多大了!也就是说,如果我1K为1块,那么上传1MB的输入流就分成1024块来获取,例如我当前已经获取了100块,那么就表明当前上传了100K。当我提出分块的时候很多人觉得不可思议,因为他们都忽略BinaryRead方法不仅是可以读取指定大小,而且可以连续读取的。写个例子来验证一下分块读取的完整性,在刚才的例子基础上(注意该示例不要上传大文件,否则可能会造成浏览器死掉):
TotalBytes Then ReadedBytes = TotalBytes
Loop
Response.Write "" & PostData & "" ' 使用pre,原样输出格式
' 将二进制流转化成文本
Function BinaryToString(biData,Size)
Const adLongVarChar = 201
Set RS = CreateObject("ADODB.Recordset")
RS.Fields.Append "mBinary", adLongVarChar, Size
RS.Open
RS.AddNew
RS("mBinary").AppendChunk(biData)
RS.Update
BinaryToString = RS("mBinary").Value
RS.Close
End Function
%>试验一下上传刚才的文本文件,输出结果证明这样分块读取的内容是完整的,并且在While循环中,我们可以在每次循环时将当前状态记录到Application中,然后我们就可以通过访问该Application动态获取上传进度条。
另:上例中是通过字符串拼接的,如果是要拼接二进制数据,可以通过ADODB.Stream对象的Write方法,示例代码如下:
Set bSourceData = createobject("ADODB.Stream")
bSourceData.Open
bSourceData.Type = 1 'Binary
Do While ReadedBytes TotalBytes Then ReadedBytes = TotalBytes
Application("ReadedBytes") = ReadedBytes
Loop
三、保存上传的文件
通过Request.BinaryRead获取提交数据,分离出上传文件后,根据数据类型的不同,保存方式也不同:对于二进制数据,可以直接通过ADODB.Stream对象的SaveToFile方法,将二进制流保存成为文件。
对于文本数据,可以通过TextStream对象的Write方法,将文本数据保存到文件中。
对于文本数据和二进制数据,是可以方便的相互转换的,对于上传小文件来说,两者基本上没什么差别。但是两种方式保存时还是有一些差别的,对于ADODB.Stream对象,必须将所有数据全部装载完才可以保存成文件,所以使用这种方式如果上传大文件将很占用内存,而对于TextStream对象,可以在文件创建好后,一次Write一部分,分多次Write,这样的好处是不会占用服务器内存空间,结合上面分析的分块获取数据原理,我们可以每获取一块上传数据就将之Write到文件中。我曾做过试验,同样本机上传一个200多MB的文件,使用第一种方式内存一直在涨,到最后直接提示计算机虚拟内存不足,最可恨是即使进度条表示文件已经上传完,但是最终文件还是没有保存上。而使用后一种方法,上传过程中内存基本上无什么变化。四、未解决的难题
我在博客园上看到Bestcomy描述他的Asp.Net上传组件是可以和Sever.SetTimeOut无关的,而在Asp中我是没能做到,对于上传大文件,就只有将Server.SetTimeOut设置为一个很大的值才可以。不知道有没有比较好的解决方法。如果我们在保存文件时,使用TextStream对象的Write方法,那么如果用户上传时中断了文件传输,已经上传的那部分文件还是在的,如果可以断点续传就好了。关键问题是Request.BinaryRead方法虽然可以分块读取,但是却不能跳过某一段读取!
五、结束语
原理基本上是说清楚了,但是实际代码要比这复杂的多,要考虑很多问题,最麻烦在分析数据那部分,对于每一块获取的数据,要分析是不是属于描述信息,是表单项目还是上传的文件,文件是否已经上传结束…… 相信根据上面的描述,您也可以开发出您自己功能强大的无组件上传组件。 我想更多的人关心的只是代码,而不会自己动手去写的,也许没有时间,也许水平还不够,更多的只是已经成为了一种习惯……我在CSDN上见过太多技术八股文 ――一段说明,然后全是代码。授人以鱼不若授人以渔,给你一个代码,也许你并不会去思考为什么,直接拿去用,当下次碰到类似的问题的时候,还是不知道为什 么,希望此文能让更多人学到点什么,最重要是“悟”到点什么!
发表评论
-
深入了解GPU--学习教材 (摘自opengpu)
2012-01-20 01:14 881深入了解GPU--学习教材 ( ... -
S3C2450自动升级
2012-01-20 01:14 1260S3C2450自动升级 2010年06 ... -
Papervision3D Essentials 要点整理
2012-01-20 01:14 752Papervision3D Essentials 要点 ... -
papervision3d学习笔记:图片墙(4)
2012-01-20 01:13 660papervision3d学习笔记:图片墙(4) 2010年 ... -
papervision3d学习笔记:图片墙(1)
2012-01-20 01:13 674papervision3d学习笔记:图片墙(1) 2010年 ... -
第一章第一节计算机语言C语言基础教程
2012-01-17 01:33 786第一章第一节计算机语言C语言基础教程 2012年01月02日 ... -
start_kernel()注解2
2012-01-17 01:33 663start_kernel()注解2 2010年0 ... -
2011-1-8
2012-01-17 01:33 8262011-1-8 2011年01月08日 ... -
2001-6-1
2012-01-17 01:32 6852001-6-1 2011年09月17日 1.假设某台式 ... -
大文件上传解决办法
2012-01-15 20:13 892大文件上传解决办法 20 ... -
jQuery插件之jquery的form插件使用示例
2012-01-15 20:13 884jQuery插件之jquery的form插件使用示例 201 ... -
ASP.NET 2.0使用FileUpload控件上传文件示例
2012-01-15 20:13 741ASP.NET 2.0使用FileUpload控件上传文件示例 ... -
经典的串口调试助手源代码(一)
2012-01-15 20:13 742经典的串口调试助手源代码(一) 2011年05月26日 ... -
这是一个广为流传的关于项目管理的通俗讲解 (转)
2012-01-11 12:21 571这是一个广为流传的关于项目管理的通俗讲解 (转) 2011年 ... -
struct2数字格式化
2012-01-11 12:21 735struct2数字格式化 2011年03月01日 st ... -
window.showModalDialog使用手册
2012-01-11 12:21 618window.showModalDialog使用手 ... -
3300_java
2012-01-11 12:21 5683300_java 2011年03月01日 impor ... -
Rails之格式化价格方法【转载】
2012-01-11 12:21 733Rails之格式化价格方法【转载】 2011年03月01日 ...
相关推荐
最简单的ASP无组件上传文件程序,最简单的ASP无组件上传文件程序
ASP无组件上传,亲测可用,直接可以使用的无组件上传,源码完整
风声 ASP 无组件上传类应用实例,配置实例: Private Sub Class_Initialize m_Error = -1 m_Charset = "gb2312" m_TotalSize= 0 m_MaxSize = 153600 m_FileType = "jpg/gif" m_SavePath = "" m_AutoSave = 0...
新ASP无组件上传带进度条(源码 + 实例) 里面含有示例和组合程序,还有进度条供各位网友学习增强改进。
ASP无组件上传原理.pdfASP无组件上传原理.pdf
Asp无组件上传,表单值和文件可以分别保存到数据库和文件夹
Asp无组件上传带进度条Asp无组件上传带进度条
风声 ASP 无组件上传类 是当前效率最高的ASP无组件上传程序之一。 风声 ASP 无组件上传类 自其V1.0发布就有自己鲜明的特点——易用;V1.02功能进一步加强,并且奠定了其在同类程序中高效率的地位;V2.0秉承其易用...
asp无组件上传的例子 asp无组件上传的例子 asp无组件上传的例子
艾恩ASP无组件上传
艾恩ASP无组件上传类
无惧无组件上传类,ASP无组件上传,用于asp上传
ASP无组件上传图片例子,非常好用!主要就是产品图片的无组件上传功能。非常经典
asp 无组件上传 asp 无组件上传 asp 无组件上传 asp 无组件上传
ashi基于化镜无组件上传类的使用,自己做的demo,可以控制上传类型,上传文件大小,简单易用。
asp无组件上传(上传到数据库),挺实用,第一次来这里共享文件,希望大家能相互学习
艾恩ASP无组件上传代码,非常好用.不好用你直接拍砖过来.
ASP 无组件上传 ASP 无组件上传 ASP 无组件上传
并且可查杀木马,utf-8格式) '作 者 : sysdzw '联系QQ : 171977759 '网 站 : https://blog.csdn.net/sysdzw '版 本 : v1.0 以化境ASP无组件上传作为初版v1.0, 之后进行了多项修改。 ' v1.1 修正了批量上传时file....
asp无组件上传类化境HTTP上传程序 不需要组件上传包括一些操作说明等信息都有!