oa_file.asp

一个比较完整的企业erp系统

<!--#include file="../inc/conn.asp"-->
<% 
 
       dim id,id0,id1
	   id1=replace(trim(request("ID")),"'"," ")
	   id0=instrrev(id1,"-")-1
	   ID=left(id1,id0)
    dim rs,sql
    set rs=Server.CreateObject("ADODB.RECORDSET")
    sql="Select oa_id,uploadfiles,oa_title,oa_updatetime from [oa_data] where oa_id =" & id & ""
   rs.open sql,conn,1,3
   if rs.bof and rs.eof then
	     response.write(  "<li>找不到该文件! "&id0&"</li>")
		else 

  %>

<%

oa_file=right(rs("uploadfiles"),len(rs("uploadfiles"))-1)
down_file=split(oa_file,"|")
dim j,jiaoan_file
j=right(id1,len(id1)-id0-1)-1
if j<ubound(down_file)+1 then
jiaoan_file=down_file(j)




dim FileName,FileExt,files1,FileExt_temp
 
FileExt_temp=split(jiaoan_file,".")
FileExt="."&FileExt_temp(1)
FileName=month(rs("oa_updatetime"))&"月"&day(rs("oa_updatetime"))&"日"&"_"&rs("oa_title")&"_"&j+1&FileExt
files1="../oa_files/"&jiaoan_file
Response.Clear
Response.ContentType = "application/octet-stream"
Response.AddHeader "content-disposition", "attachment; filename="&FileName
Set Stream = server.CreateObject("ADODB.Stream")
Stream.Type = 1
Stream.Open
Stream.LoadFromFile Server.MapPath(files1)
While Not Stream.EOS
    Response.BinaryWrite Stream.Read(1024 * 64)
Wend
Stream.Close
Set Stream = Nothing
Response.Flush
Response.End

else
	     response.write(  "<li>找不到该文件!!! "&j&"</li>")
end if
%>








<%
rs.close
set rs=nothing
end if
call CloseConn
%>
<%
function GetFilePath(FullPath,str)
  If FullPath <> "" Then
    GetFilePath = left(FullPath,InStrRev(FullPath, str))
    Else
    GetFilePath = ""
  End If
End function
%>