upload.asp
上传用户:ynjin1970
上传日期:2014-10-13
资源大小:6438k
文件大小:1k
源码类别:

中间件编程

开发平台:

Visual C++

  1. <!--#include file="adovbs.inc" -->
  2. <%
  3. '获得表单中上传文件的数据
  4. formsize=request.totalbytes
  5. formdata=request.binaryread(formsize)
  6. bncrlf=chrB(13) & chrB(10) & chrB(13) & chrB(10)
  7. bncrrt=chrB(13) & chrB(10) & chrB(45) & chrB(45) & chrB(45) & chrB(45)
  8. datastart=instrb(formdata,bncrlf)+4
  9. datalen=instrb(datastart+1,formdata,bncrrt)-datastart
  10. '获得文件数据
  11. mydata=midb(formdata,datastart,datalen)
  12. '打开数据库,往里面添加数据
  13.   DbPath = SERVER.MapPath("oa.mdb")
  14.   Set conn = Server.CreateObject("ADODB.Connection")
  15.   conn.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DbPath
  16.   Set rs = Server.CreateObject("ADODB.Recordset")
  17.   sl="select * from upload"
  18.   rs.Open "upload",conn,adOpenDynamic,adLockOptimistic
  19. rs.addnew
  20. rs("xm")=session("yzbxm")
  21. rs("f_topic")=session("yzbtopic")
  22. rs("f_name")=session("yzbwj")
  23. rs("f_date")=date
  24. rs("f_data").appendchunk mydata
  25. rs.update
  26. rs.close
  27. set rs=nothing
  28. conn.Close 
  29. set conn=nothing
  30. response.redirect "getinfo.asp?msg="&session("yzbwj")&"上传成功!文件为"&datalen&"字节"
  31. response.end
  32. %>