欢迎光临!今天是2017年10月18日 星期三
首页 基础教程  留言薄制作  神奇FSO  ASP优化  ASP实例  SQL语法  VB教程  安全手册  综合技巧  案头必备  留言  
 ASP实例
·关于ASP图象问题总结
·关于ASP图象问题总结的一点..
·怎样在ASP里面创建统计图表
·关于图片与文本同存在数据库中..
·图片数据的存和取示例
·在Web页面中使用图表(ch..
·无刷新聊天室技术实现方法
·如何在不刷新页面的情况下调用..
·用ASP开发一个在线考试程序..
·用ASP开发一个在线考试程序..
·用ASP编写计数器-1
·不用ASP图像组件来生成图像..
·不用ASP图像组件来生成图像..
·HTTP方式上载文件的ASP..
·广告播放和跟踪系统的制作
·利用ASP开发网络聊天室
·ASP计数器设计详解
·用ASP编写计数器-2
·用ASP技术编制隐藏用户密码..
·用ASP实现网页BBS
·用ASP建立邮件列表
·个人主页的数据库解决方案ASP
·用纯ASP代码实现图片上传并..
■ ASP实例 > 图片数据的存和取示例
图片数据存入数据库:
    sqlstr="select * from "&tbname&" where id is null"
    set rs=server.createobject("adodb.recordset")
    rs.Open sqlstr,conn,1,3
    rs.AddNew ()
    rs("title")=title
    rs("filename")=filename
    rs("filetype")=filetype
    rs("thelevel")=thelevel
    rs("uploaddate")=date()
    rs("uploadip")=request.ServerVariables("REMOTE_ADDR")
    rs("contenttype")=contenttype
    rs("data").AppendChunk (binstr)
    rs("size")=size
    rs("offset")=offset
    rs.Update
    rs.Close()

读取显示:
  rs.Open sqlstr,conn,3
  if not rs.EOF then
      contenttype=rs("contenttype")
      binstr=rs("data").GetChunk(rs("size")+rs("offset"))
      if rs("offset")=1 then
        binstr=midb(binstr,2)
      end if
      if instr(contenttype,"text/")=1 or _
        instr(contenttype,"image/")=1 or _
        instr(contenttype,"application/msword")=1 then
        response.contenttype=trim(contenttype)
        response.binarywrite binstr
      else
        response.addheader "Content-Disposition","attachment;
        filename="""&rs("filename")&""""
        response.contenttype=trim(contenttype)
        response.binarywrite binstr
      end if
      if request("preview")<>"yes" then
        sqlstr="update "&tbname&" set downtimes=downtimes+1
        where id="&fileid
        conn.Execute sqlstr
      end if
  end if
说明:
对于超长的二进制数据(如图像数据)要使用fieldname.AppendChunk() 和
fieldname.GetChunk()来读写。

■今日推荐:用ASP编写计数器-2

本网站是学习网站,内容整理大多来自互联网,尽量标明了出处,如果侵犯了您的权力请通知我,立即纠正
欢迎提出宝贵建议,提供相关资料,以便相互学习,共同提高!