📄 0154.htm

📁 ASP教程宝典书籍语言：简体中文书籍类型：网络编程授权方式：免费软件书籍大小： 500 KB

💻 HTM

字号:

<html>

<head>
<title>新时代软件教程:操作系统 主页制作 服务器 设计软件 网络技术 编程语言 文字编辑</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style>
<!--
body, table {font-size: 9pt; font-family: 宋体}
a {text-decoration:none}
a:hover {color: red;text-decoration:underline}
.1  {background-color: rgb(245,245,245)}
-->
</style>
</head>
<p align="center"><script src="../../1.js"></script></a>
    <p align="center"><big><strong>图片数据的存和取示例</strong></big></p>

<div align="right">---摘自互联网</div>

<pre>
图片数据存入数据库：
        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")&lt;>"yes" then
                sqlstr="update "&tbname&" set downtimes=downtimes+1 
                where id="&fileid
                conn.Execute sqlstr
            end if
    end if
说明：
对于超长的二进制数据（如图像数据）要使用fieldname.AppendChunk() 和
fieldname.GetChunk()来读写。
</pre>

  </table>
<p align="center"><script src="../../2.js"></script></a>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -