关于asp无组件文件上传程序

原创 2005年02月28日 20:31:00

经常有些网友在做asp程序的时候需要做文件上传程序,
用的最多的就是稻香老农的无组件上传组件吧。
可是在今年8月份左右,瑞星竟然报他是病毒,
连服务器上的也无一幸免啊,后来我就决顶自己搞一个。

在研究了稻香老农的无组件上传组件后,发先这里面主要使用了一个ADODB.Stream组件,在仔细研究了这个类后,我用了较少的代码
实现了一个,核心代码如下:

‘建立一个adodb.stream对象获取Post来的数据。
set ReadData = Server.CreateObject("adodb.stream")
ReadData.Type =1
ReadData.Mode =3
ReadData.Open
ReadData.Write Request.BinaryRead(Request.TotalBytes)
ReadData.Position=0
‘移到AllData中去
AllData=ReadData.Read

‘根据http post格式抽取有用数据,datastart为开始位置dataend为结束位置
bncrlf=chrB(13) & chrB(10)
divider=leftB(AllData,clng(instrb(AllData,bncrlf))-1)
datastart=instrb(AllData,bncrlf&bncrlf)+4
dataend=instrb(datastart+1,AllData,divider)-datastart

‘建立输出流正式抽取数据放到OutData中去
Set OutData = Server.CreateObject("ADODB.Stream")
OutData.Type = 1
OutData.Open
ReadData.Position = datastart-1
ReadData.CopyTo OutData,dataend-2
‘建立FInfoData用来提取文件信息流
set FInfoData=Server.CreateObject("ADODB.Stream")
FInfoData.Type = 1
FInfoData.Mode =3
FInfoData.Open
ReadData.Position =0
ReadData.CopyTo FInfoData,datastart-1
ReadData.Close
set ReadData=Nothing
‘用gb2312编码方式放入StrInfo
FInfoData.Position = 0
FInfoData.Type = 2
FInfoData.Charset ="gb2312"
StrFInfo=FInfoData.ReadText
FInfoData.Close
set FInfoData=Nothing
’取地文件名
Nstart=Instr(1,StrFInfo,"filename=""",1)+10
Nend=Instr(Nstart,StrFInfo,"""",1)
FileName=Mid(StrFInfo,Nstart,Nend-Nstart)

FileName=getFileName(FileName)
ExtName=getExtName(FileName)

‘保存已经取得的文件
OutData.SaveToFile Server.MapPath(IDmaker&"."&ExtName),2

OutData.Close
set OutData=Nothing

原代码下载

版权声明:本文为博主原创文章,未经博主允许不得转载。

相关文章推荐

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

jquery 上传插件 uploadify (官网:http://www.uploadify.com/) uploadify功能强大,支持多文件、批量上传、状态进度条等,提供前端文件限制相关...

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

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

asp 无组件文件上传

  • 2014-08-19 09:52
  • 42KB
  • 下载

文件上传组件(Flash,JQuery,asp,php,js,AJAX)

文件上传组件(Flash,JQuery,asp,php,js,AJAX) 2011-06-30 22:04  FancyUpload  FancyUpload是一个采...

JSP无组件文件上传

黄聪:一些文件上传组件(Flash,JQuery,asp,php,js,AJAX)

====================================================== 注:本文源代码点此下载 =============================...
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:深度学习:神经网络中的前向传播和反向传播算法推导
举报原因:
原因补充:

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