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

中间件编程

开发平台:

Visual C++

  1. <!--#include file="adovbs.inc" -->
  2. <%
  3.   idx=trim(request("idx")) 
  4.   DbPath = SERVER.MapPath("oa.mdb")
  5.   Set conn = Server.CreateObject("ADODB.Connection")
  6.   conn.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DbPath
  7.   Set rs = Server.CreateObject("ADODB.Recordset")
  8.   rs.Open "upload",conn,adOpenDynamic,adLockOptimistic
  9. while not rs.eof
  10. if idx=trim(rs("idx")) then
  11. Response.ContentType = "application/octet-stream"
  12. Response.AddHeader "Content-Disposition", "attachment; filename="&trim(rs("f_name"))
  13. response.Binarywrite rs("f_data")
  14. Response.Flush
  15. rs.close
  16. set rs=nothing
  17. conn.Close 
  18. set conn=nothing
  19. end if
  20. rs.movenext  
  21. wend
  22. %>