图片数据的存和取示例 -pc6资讯

您的位置：首页 → 网页设计 → ASP实例 → 图片数据的存和取示例

图片数据的存和取示例 时间：2004/11/7 2:53:00来源：本站整理作者：蓝点我要评论(0): 图片数据存入数据库：

        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()来读写。

文章评论

查看所有0条评论>>

热门文章 没有查询到任何记录。