download.asp

搭建智元软件公文传输系统运行环境(搭建智元软件公文传输系统运行环境转载)

 
  <!--#include file="asp/checkuser.asp"-->
  <%

   Response.buffer = TRUE
   Response.ContentType = "APPLICATION/OCTET-STREAM"
   filepath=oabusyuserpath

   filepath=Server.MapPath(".")
   path=request("path")
   if right(filepath,1)<>"/" then filepath=filepath & "/"
   filename=mid(path,instrrev(path,"/",-1)+1,len(path))
   path=filepath&path
   
   Response.AddHeader "Content-Disposition","attachment;filename="&filename
   Dim varStream, oMyObject
    
   Set oMyObject = Server.CreateObject("MengXHFileDownLoad.BinReadFromFile")
   varStream = oMyObject.readBinFromFile(path)
   Response.BinaryWrite(varStream) 
   Set oMyObject = Nothing 
   
   Response.End
  %>