ASP文件上传核心代码

 

<!--
= * = = * = = * = = * = = * = = * = = * = = * = = * = = * = = * = = * 
*    作 者：  我本有心
=    QQ:     381584252
*     E-Mail: [e-mail]
=     转载请注明出处及作者！
*     版权所有,侵权必究！！！
=
*    http://www.8848so.com，人物搜索，8848So    
= * = = * = = * = = * = = * = = * = = * = = * = = * = = * = = * = = * 
-->
<%
'此代码适合有一定ADODB.Stream基础的人阅读
'这里只有服务器端代码，想必客户端不是问题所在

Dim formsize,formdata,bincrlf,oencrlfplace,twocrlfplace,ext,filepath,p,l
Dim usingstream,stream

formsize=Request.TotalBytes
formdata=Request.BinaryRead(formsize)

Set usingstream=Server.CreateObject("ADODB.Stream")
usingstream.Type=1
usingstream.Open()
usingstream.Write(formdata)

bincrlf=ChrB(13)&ChrB(10) '二进制回车换行
oencrlfplace=InStrB(formdata,bincrlf) '44,第一次回车换行位置
twocrlfplace=InStrB(oencrlfplace+1,formdata,bincrlf) '第二次回车换行位置

Set stream=Server.Createobject("ADODB.Stream")
stream.Type=1
stream.Open()
usingstream.Position=oencrlfplace+1
usingstream.CopyTo stream,twocrlfplace-oencrlfplace-3 '得到第二行数据,twocrlfplace-onecrlfplace-(回车换行长度+"长度)
stream.Position=0
stream.Type=2 '字符串
stream.CharSet="GB2312"
streamtext=stream.Readtext() '读取第二行数据
stream.Close()

ext=Mid(streamtext,InstrRev(streamtext,"")+1) '得到文件名

filepath=Server.MapPath("upload/"&ext)

p=InStrB(formdata,bincrlf&bincrlf)+4 '4为两次回车换行长度
l=InStrB(p+1,formdata,LeftB(formdata,oencrlfplace-1))-p-2 '文件内容部分长度,onecrlfplace-1为第一行数据(也是分隔符),2为回车换行长度
stream.Type=1
stream.Open()
usingstream.Position=p-1
usingstream.CopyTo stream,l '文件内容数据
stream.SaveToFile filepath,2 '保存文件

usingstream.Close():Set usingstream=Nothing
stream.Close():Set stream=Nothing
%>