图片的导入导出

• <%
  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 conn=server.createobject("adodb.connection")
  conn.connectionstring="driver={microsoft Access driver (*.mdb)};dbq=" & server.mappath("images.mdb")
  conn.open
  
  set rs=server.createobject("adodb.recordset")
  rs.open "select * from [images] where id is null",conn,1,3
  rs.addnew
  rs("img").appendchunk mydata
  rs.update
  rs.close
  set rs=nothing
  set conn=nothing
  %>
  
  
  “showimg.asp”文件代码如下：
  
  <!--#include file ="Conn.asp"-->
  <%
  Response.EXPires = 0
  Response.Buffer = TRUE
  Response.Clear
  
  ID = trim(Request("id"))
  Response.ContentType = "image/*"
  set rs_img=Server.Createobject("ADODB.Recordset")
  sql="select img from TImage where ID=" & id
  rs_img.open sql,conn,1,1
  
  
  img_size = rs_img("img").ActualSize
  Response.BinaryWrite rs_img("img").getChunk(img_size)
  rs_img.close
  set rs_img=nothing
  set conn=nothing
  %>
  
  

  （出处：http://www.hackhome.com）

• 复制本页网址和标题，发送给你QQ/Msn的好友一起分享
  
  
• 图片的导入导出 相关文章：
• 图片的导入导出 相关软件

上一篇:EXE文件打不开——恢复EXE文件关联

下一篇:腾讯声明：普通QQ用户不受群组实名登记影响

• 特别声明：本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作
• 者.文章版权归文章原始作者所有.对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转
• 载的文章有版权问题请联系编辑人员,我们尽快予以更正. 转载请注明来源：http://www.hackhome.com

精品推荐

热点TOP10

特别推荐