zoukankan      html  css  js  c++  java
  • 文本与图像上传到数据库

    1.upload.asp方法
    <head>
    <script language=vbscript>
        function checkinfo()
           if (document1.form1.picture.value<>"") then
             if (Instr(1,document.form1.picture.value,".")<=0) or (Instr(1,document.form1.picture.value,"\")<=0)  or ((Instr(1,document.form1.picture.value,"bmp")<=0) and (Instr(1,document.form1.picture.value,"gif")<=0) and  (Instr(1,document.form1.picture.value,"jpg")<=0)) then
                msgbox('图片格式不正确,请重写!')
                document.form1.picture.focus()
                document.form1.picture.select(this)
                window.even.returnvalue=false
                exit function
              end if    
              form2.submit
              if document.form1.picture1.value<>" " then
                form1.submit
              end if
         end function   
    </script>
    </head>
    <form name="form1" ENCTYPE="multiport/form-data" Action="upimage.asp" Method="POST" target="_blank">
      新闻图片:<input name="picture" TYPE="file" size=40>
    </form>
    <form method="POST" action="uptext.asp" name="form2" target="_blank">新闻内容:
    <input name="text" type="text" size=40>
    <p><input type="button" value="提交" name="B1" onclick="checkinfo()">
    <input type="reset" value="清除" name="B2">

    2.上传文本页面
    <%
      text=request("text")
      set rs=Server.CreateObject("ADODB.Recordset")
      sql="select * from newtable2"
      rs.Open sql,conn,1,3
      rs.AddNew
      rs.("text")=text
      rs.Update
      rs.Close
      response.write text
    %>
    <p align="center"><a href="javascript.Close()">关闭窗口</a></p>

    3.上传图像页面
    注:用rs的appendchunk方法存储图像
    <%
      FormSize=Request.TotalBytes
      FormData=Request.BinaryRead(FormSize)
      function ImageUp(formsize,formdata)
        bnctrf=chrb(13) & chrb(10)
        divider=leftb(formdata,instrb(formdata,bnctrf)-1)
        datastart=instrb(formdata,bnctrf & bnctrf)+4
        dataend=instrb(formdata,datastart,dataend)
      end function
      Image=ImageUp(FormSize,FormData)
      set rs=Server.Create("adodb.recordset")
    %>
    <#include file="data.inc"-->
    <%
      sql="select top 1 * from newstable2 order by id desc"
      rs.open sql.conn,1,3
      rs("picture").appendchunk Image
      re.Update
    %>
    <img src=showimg.asp>id=<%=rs("id")%>>
    <%
      rs.Close
    %>
  • 相关阅读:
    element:记一次重置表单引发提交数据为默认数据现象
    三种常用又简单的排序算法
    (07)GitHub从2021.08.13开始使用Token代替账号和密码
    does not implement methodSignatureForSelector:
    自用python库
    2048
    CCSP2021游记
    2021 CCPC 桂林站游记
    2021 ICPC 沈阳站游记
    2021SDU新生赛游记
  • 原文地址:https://www.cnblogs.com/djcsch2001/p/2035755.html
Copyright © 2011-2022 走看看