用VB6做一个简单的文件上传组件(一)

2016-01-29 17:15 6 1 收藏

用VB6做一个简单的文件上传组件(一),用VB6做一个简单的文件上传组件(一)

【 tulaoshi.com - ASP 】

  最近在单位做的一个项目里需要有文件上传的功能,正好手头一本书的附赠光盘里有一个上传组件,心中大喜。可惜随之便发现这是一个试用版,不给钱就只能用50次,太小气了!!好在头头催得不紧,时间充裕,干脆自己试着做一个,既可长经验值,又能长成就感,不试白不试!以下介绍的便是俺折腾了两天半捣鼓出来的一个只能说是雏形的玩意,区区三十行代码,大侠们不要笑俺哦,这只是写给与俺一样好奇心强但经验值低的弟兄们看的。
    文件上载所需的第一步当然是进入一个有“file”表单元素的页面,具体就不说了,大家都知道。但是若想做一个能够接受该文件并且将其保存到服务器硬盘上的组件,必须知道所提交的原始数据的怎么一个模样才行。做到这一点并不难:
    <%
      Dim FormData,FormSize
      FormSize=Request.TotalBytes
      FormData=Request.BinaryRead(FormSize)
      Response.BinaryWrite FormData
    %
    因为需要读取的是前一个页面提交来的原始字节数据,因此不能使用Request.Form()方法,必须使用BinaryRead方法,并且一旦使用了这个方法,就不能再在同一个页面中使用Form()方法了,反之亦然。基于同样的道理,向页面输出时也必须使用BinaryWrite方法,不过这并不妨碍你继续使用Response.Write方法。
    在下面的描述中假设浏览者选择上传的文件是一个GIF图片,你会发现这段代码运行的结果并不是在浏览器上显示出这幅图片,而只是输出了一堆基本上是乱七八糟的字符:

-----------------------------7ce20d227c0232
Content-Disposition: form-data; name="file"; filename="C:mypic.gif"
Content-Type: image/gif

GIF89a    垐??!?倇挌7昳

来源:http://www.tulaoshi.com/n/20160129/1500798.html

延伸阅读
8.填加一些自己喜欢的文字,最后效果如图 9.源文件
标签: ASP
请看以下实现ASP分页程序的代码: $#@60;anguage="vbscript" dim conn dim connstr dim totalPut dim CurrentPage dim TotalPages dim i,j dim sql dim rs on error resume next 打开数据库 connstr="DBQ="+server.mappath("book.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};" set conn=server.cr...
我们在玩《仙剑奇侠传》时,要是不能保存数据,那么非得挑灯夜战三昼夜才能玩完,可见数据存储之重 要性。爱好编程的CFAN是不会放过数据文件的,下面跟着我驰骋吧!我们先吃一个哈密瓜,开门即来编一传统的比较有代表性的程序,不可不看的哟! 程序分为一个表单cfanvb.frm,一个模块cfanvb.bas。一个表单程序。程序的表单中有五个命令按...
多花时间陪孩子 感情是需要时间去培养的,也需要发费精力的,这两点很重要。若是有时间,可以都和孩子一起玩玩小游戏或者是和孩子多一些其他的互动,其实很简单,多听听孩子说话,和他们多聊聊天,这样他们会记住,爸爸是爱我的,会记住这些小细节。要是你总是说自己很忙,找一些借口说没有时间,孩子总会有一种被你们忽视的感觉,就会...
标签: autocad教程
本教程由 中国   萧云风 原创,转载必须保留此信息 先看一下效果图! 教程中,运用的命令比较的多,这里例出几个重要命令!正多边形(polygon)  改变坐标轴命令(UCS)  圆(C)  三维旋转(rotate3d) 拉伸(EXT)  剖 切(SLICE) 交集运算 (intersect) 三维陈列(3DARRAY). 先画一个五边形和六...

经验教程

570

收藏

84
微博分享 QQ分享 QQ空间 手机页面 收藏网站 回到头部