发新话题
打印

[推荐]kusun 的图片上传摘要

[推荐]kusun 的图片上传摘要

1.首先需要了解的是:上传的东西是二进制文件,因此就不能用普通的方法像传递普通文本的方法来传送数据了。需要用到的对象方法有:用Request对象获取上传上来的文件数据。使用的方法是:Request.BinaryRead().同样要将数据显示到网页上时用到的对象是:Request.BinaryWrite(),并且将数据插入数据库的时候不能用简单的Insert就可以了事,要用到ADO的AppendChunk方法,同样要从数据库中读出文件数据,要用到:GetChunk()方法。 各个方法的具体语法如下: ◎Request.BinaryRead语法:variant=Request.BinaryRead(count) 参数:variant:返回值保存着从客户端读取到数据。 Count:指明要从客户端读取的数据量大小,这个值小于或者等于使用方法Request.TotalBytes:得到的数据量。 ◎Request.BinaryWrite语法:Request.BinaryWrite data 参数:data:要写入到客户端浏览器中的数据包。 ◎Request.TotalBytes语法:variant=Request.TotalBytes 参数:variant:返回从客户端读取到数据量的字节数。 ◎AppendChunk语法 将数据追加到大型文本、二进制数据Field或Parameter对象。 object.AppendChunk Data 参数:objectField或Parameter对象 Data变体型,包含追加到对象中的数据。 说明: 使用Field或Parameter对象的AppendChunk方法可将长二进制或字符数据填写到对象中。在系统内存有限的情况下,可以使用AppendChunk方法对长整型值进行部分而非全部的操作。 ◎GetChunk语法: 返回大型文本或二进制数据Field对象的全部或部分内容。 variable=field.GetChunk(Size) 返回值 返回变体型。 参数:Size:长整型表达式,等于所要检索的字节或字符数。 说明:   使用Field对象的GetChunk方法检索其部分或全部长二进制或字符数据。在系统内存有限的情况下,可使用GetChunk方法处理部分而非全部的长整型值。GetChunk调用返回的数据将赋给“变量”。如果Size大于剩余的数据,则GetChunk仅返回剩余的数据而无需用空白填充“变量”。如果字段为空,则GetChunk方法返回Null。 每个后续的GetChunk调用将检索从前一次GetChunk调用停止处开始的数据。但是,如果从一个字段检索数据然后在当前记录中设置或读取另一个字段的值,ADO将认为已从第一个字段中检索出数据。如果在第一个字段上再次调用GetChunk方法,ADO将把调用解释为新的GetChunk操作并从记录的起始处开始读取。如果其他Recordset对象不是首个Recordset对象的副本,则访问其中的字段不会破坏GetChunk操作。如果Field对象的Attributes属性中的adFldLong位设置为True,则可以对该字段使用GetChunk方法。如果在Field对象上使用Getchunk方法时没有当前记录,将产生错误3021(无当前记录)。 2.具体实例: ◇数据库介绍:(ACCESS2000)数据库名称:img.mdb 表名:images 字段名称    类型    描述   id    自动编号   主键值 img OLE对象   用来保存图片数据 ◇文件结构:upload.asp 接受输入数据页面 process.asp 数据处理页面 showimg.asp 图象显示页面 ◇具体文件内容: ☉upload.asp 上传图片的一个例子

  
注意:在form一定要有enctype="multipart/form-data" 这项内容,否则将无法得到数据。 ☉process.asp <% /数据处理: response.buffer=true formsize=request.totalbytes formdata=request.binaryread(formsize) bncrlf=chrB(13)&chrB(10) divider=leftB(formdata,clng(instrb(formdata,bncrlf))-1) datastart=instrb(formdata,bncrlf&bncrlf)+4 dataend=instrb(datastart+1,formdata,divider)-datastart mydata=midb(formdata,datastart,dataend) /数据库的连接代码:(通用可移植数据库连接代码) dim connstr on error resume next connstr="DBQ="+server.mappath("img.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};" set connGraph =server.createobject("ADODB.CONNECTION") connGraph.open connstr /连接结束 set rec=server.createobject("ADODB.recordset") /建立记录集 rec.Open"SELECT * FROM images where id is null",connGraph,1,3 rec.addnew /添加记录 rec("img").appendchunk mydata rec.update rec.close set rec=nothing set connGraph=nothing %> ☉showimg.asp 好了,这下我们就把上传来的图片保存到了名为images.mdb的数据库中了,剩下的工作就是要将数据库中的图片数据显示到网页上面了。一般在HTML中,显示图片都是使用标签,也就是,但是我们的图片是保存到了数据库中,“图片路径”是什么呢?呵呵,其实这个SRC属性除了指定路径外,也可以这样使用哦:所以,我们所要做的就是在showimg.asp中从数据库中读出来符合条件的数据,并返回到SRC属性中就可以了,具体代码如下: <% set connGraph=server.CreateObject("ADODB.connection") connGraph.ConnectionString="driver={MicrosoftAccessDriver(*.mdb)};DBQ="& server.MapPath("images.mdb")&";uid=WD=;" connGraph.Open set rec=server.createobject("ADODB.recordset") strsql="select img from images whereid="&trim(request("id")) rec.openstrsql,connGraph,1,1 Response.ContentType="image/*" Response.BinaryWrite rec("img").getChunk(7500000) rec.close setrec=nothing setconnGraph=nothing %> 注意在输出到浏览器之前一定要指定Response.ContentType="image/*", 以便正常显示图片。 最后要注意的地方是,我的process.asp中作的处理没有考虑到第一页(upload.htm)中还有其他数据,比如等等,如果有这些项目,你的process.asp就要注意处理掉不必要的数据。 write by:苦笋

TOP

[推荐]kusun 的图片上传摘要

有是一个经典

TOP

[推荐]kusun 的图片上传摘要

看了,试了,结果————总是出错

TOP