ASP实现无组件文件上传的代码

原创 2004年10月09日 12:58:00
注意form中要加属性 enctype="multipart/form-data"
其实可以这样测试数据

datalen=request.totalbytes
formdata=request.binaryread(datalen)
response.binarywrite formdata

就知道数据的格式了。

<!--#include file="conn.asp"-->
<%
Function str2bin(varstr)
   str2bin=""
   For i=1 To Len(varstr)
   varchar=mid(varstr,i,1)
   varasc = Asc(varchar)
   ' asc对中文字符求出来的值可能为负数,
   ' 加上65536就可求出它的无符号数值
   ' -1在机器内是用补码表示的0xffff,
   ' 其无符号值为65535,65535=-1+65536
   ' 其他负数依次类推。
   If varasc<0 Then
   varasc = varasc + 65535
   End If
   '对中文的处理:把双字节低位和高位分开
   If varasc>255 Then
   varlow = Left(Hex(Asc(varchar)),2)
   varhigh = right(Hex(Asc(varchar)),2)
   str2bin = str2bin & chrB("&H" & varlow) & chrB("&H" & varhigh)
   Else
   str2bin = str2bin & chrB(AscB(varchar))
   End If
   Next
  End Function

Function bin2str(binstr)
   Dim varlen,clow,ccc,skipflag
   '中文字符Skip标志
   skipflag=0
   ccc = ""
   If Not IsNull(binstr) Then
   varlen=LenB(binstr)
   For i=1 To varlen
   If skipflag=0 Then
   clow = MidB(binstr,i,1)
   '判断是否中文的字符
   If AscB(clow) > 127 Then
   'AscW会把二进制的中文双字节字符高位和低位反转,所以要先把中文的高低位反转
   ccc =ccc & Chr(AscW(MidB(binstr,i+1,1) & clow))
   skipflag=1
   Else
   ccc = ccc & Chr(AscB(clow))
   End If
   Else
   skipflag=0
   End If
   Next
   End If
   bin2str = ccc
End Function
%>

<%

datalen=request.totalbytes    '获得数据大小
formdata=request.binaryread(datalen)  '读取原始数据
strformdata=bin2str(formdata)
divstr=LeftB(formdata,InStrB(FormData,str2bin(VbCrLf))-1)  '这个是数据的分隔符,
随机生成的,可以自己试验
divlen=LenB(divstr)

lngFileNameStart=Instr(strformdata,"filename="&chr(34))+Len("filename="&chr(34)
)
lngFileNameEnd=Instr(lngFileNameStart,strformdata,chr(34))
strFileName=Mid(strformdata,lngFileNameStart,lngFileNameEnd-lngFileNameStart)
strFileName=Trim(strFileName)
strFileName=Replace(strFileName,vbCRLF,vbNullString)     '获得文件名

set objStream=Server.CreateObject("ADODB.Stream")
set objStream1=Server.CreateObject("ADODB.Stream")

objStream.Type=1
objStream1.Type=1
objStream.Mode=3
objStream1.Mode=3
objStream.Open 'formdata
objStream1.Open
'objStream.Type =1 'adTypeBinary
objStream.Write formdata
objStream.Position=DataStart-1
objStream.CopyTo objStream1,DataSize

objStream1.SaveToFile Server.MapPath("image/" & filename)
objStream.Close
objStream1.close
%>

ASP无组件上传文件到服务器

        最近参与了一个网站开发的项目,在做后台管理时用到了文件上传,因为客户要求数据库保存的是文件路径,文件就得直接上传到服务器,而且麻烦的是需要把其他表单信息和上传的图片一起进行数据处理,这...
  • Milanello_tyfor
  • Milanello_tyfor
  • 2007年11月21日 11:06
  • 1024

解决asp无组件文件上传及下载大小限制

IIS里Asp无组件上传默认文件大小为200K,当文件超过200k时无法正常上传。解决办法:1、先在服务里关闭 iis admin service 服务。2、找到 windows/system32/i...
  • CityBird
  • CityBird
  • 2009年08月24日 17:28
  • 4540

asp无组件上传文件(分块--测试200M上传成功)

  接上一篇用aspupload组件上传文章,在这之前,尝试使用无组件上传,不过大于500M的就会报 “存储空间不足的错误”,对于想完成小文件上传的同志们,可以使用。   初始设置不再赘述。直接看代码...
  • AnzoAnzo
  • AnzoAnzo
  • 2011年01月10日 11:40
  • 2397

ASP无组件上传修改上传文件名方法

网上搜了很久没找到合适的,于是决定自己来修改,于是搞定了!!UploadClass类中属性p_AutoSave = 0默认为0,我们修改为p_AutoSave = 1大体意思是,值为0或2 时    ...
  • lumengabc
  • lumengabc
  • 2013年12月09日 10:50
  • 1041

Asp无组件上传源代码(改良版)

   lngRequestSize 和binRequestData 都是上页的file控件直接提交过来的在下一页直接接受传过来的数据就可以 lngRequestSize = request.total...
  • cmoremore
  • cmoremore
  • 2005年02月01日 13:43
  • 3694

jquery uploadify for asp 批量文件上传程序 整合风声asp无组件上传

jquery 上传插件 uploadify (官网:http://www.uploadify.com/) uploadify功能强大,支持多文件、批量上传、状态进度条等,提供前端文件限制相关...
  • engling
  • engling
  • 2011年10月27日 23:57
  • 1863

asp无组件上传的原理 (转)

 出处:宝玉BLOG一、无组件上传的原理我还是一点一点用一个实例来说明的吧,客户端HTML如下。要浏览上传附件,我们通过元素,但是一定要注意必须设置form的enctype属性为"multipart/...
  • faintbear
  • faintbear
  • 2004年10月15日 16:30
  • 16110

最快的ASP无组件上传类(4M只需10秒)0.96版

 ----------------------------------------------------------------------转发时请保留此声明信息,这段声明不并会影响你的速度!***...
  • feng2375
  • feng2375
  • 2007年08月15日 16:52
  • 3061

asp无组件上传图片文件

最近要写一个asp 无组件上传图片文件的代码,感觉asp中真是麻烦,不像asp.net与jsp中有那么强大的文件读写和图片处理的类做支持!从网上找了一个代码,但目前只能上传和按原样输出,内部处理有待研...
  • trueman2008
  • trueman2008
  • 2007年12月14日 09:59
  • 1500

asp无组件上传图片并生成缩略图

 先创建一文件夹,并创建虚拟目录或站长点。1.增加上传页xAdd.html无组件上传"POST" name="myform" action="xSave.asp" target="_self">"Pi...
  • yegengxing
  • yegengxing
  • 2008年11月07日 10:39
  • 8866
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:ASP实现无组件文件上传的代码
举报原因:
原因补充:

(最多只允许输入30个字)