不使用组件实现多个图片与文本数据同时写入数据库（2）

filename: add.asp
—————————————————————————
————————————
<!–#include file="upload.inc"–>
<%
    if session("ispass")=1 then
      dim formdata,formsize
      formsize=request.totalbytes
      formdata=request.binaryread(formsize)
      set fields = getupload(formdata)
      set conn=server.createobject("adodb.connection")
      conn.open "driver={sql
server};server=serverip;uid=username;pwd=password;database=databasename"
      set rec=server.createobject("adodb.recordset")
      on error resume next

      rec.open "select * from xl",conn,1,3
      on error resume next
      rec.addnew
      rec("ptype")=fields("ptype").value
      rec("pname")=fields("pname").value
      rec("pname1")=fields("pname1").value
      rec("skill")=1
      if fields("img1").value<>"" then
        rec("img1").appendchunk fields("img1").value
      end if
      if fields("img2").value<>"" then
        rec("img2").appendchunk fields("img2").value
      end if
      rec.update

      rec.close
      set rec=nothing
      conn.close
      set conn=nothing
      response.redirect "pinput.asp"
    else
      response.redirect "index.htm"
    end if
%>