当前位置：首页 > 资讯 > 技术文档

图像图表

时间：2022-12-17 06:43 编辑：来源：阅读：
扫一扫，手机访问

摘要：图像图表

[h2]如何把图片上传到数据库中并显示出来？[/h2][u]upload.htm

[/u]

' 上传页面. <html> <body> <p align="center">千花飞舞之图片上传</p> <center> 　　 <form name="mainForm" enctype="multipart/form-data" ' 这个Form属性是得到上传的数据的关键. action="process.asp" method=post> 　　　　<input type=file name=mefile><br> 　　 <input type=submit name=ok value="上传"> 　　 </form> </center> </body></html> [u]process.asp

[/u]

' 处理浏览器中送来的数据. <% 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) set connGraph=server.CreateObject("ADODB.connection") connGraph.ConnectionString="driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("images.mdb") & ";uid=;PWD=;" connGraph.Open 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 %> [u]showimg.asp

[/u]

' 显示图片. <% set connGraph=server.CreateObject("ADODB.connection") connGraph.ConnectionString="driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("images.mdb") & ";uid=;PWD=;" connGraph.Open set rec=server.createobject("ADODB.recordset") strsql="select img from images where id=" & trim(request("id")) rec.open strsql,connGraph,1,1 Response.ContentType = "image/*" ' 在输出到浏览器之前一定要指定Response.ContentType = "image/*",以便正常显示图片. Response.BinaryWrite rec("img").getChunk(7500000) rec.close set rec=nothing set connGraph=nothing %> [b][1][/b]

全部评论(0)

上一篇：如何在ADSI中查询用户属性？
下一篇：如何用Access加密页面？

资讯排行榜
更多>>