listsendfile.asp

来自「ZY-OA网络办公系统,这是我从别的地方下的」· ASP 代码 · 共 16 行

<%@ LANGUAGE = VBScript.Encode %>
<!--#include file="asp/opendb.asp"-->
<% 
set conn=opendb("oabusy","conn","accessdsn")
Set rs=Server.CreateObject("ADODB.recordset")
'request("id")是从上一个文件传过来的值，表示这个文件在数据库里的位置
sql="select filevalue,fileContentType from senddate where id=" & trim(request("id")) 
rs.open sql,conn,1,1 
Response.ContentType = rs("fileContentType")
Response.BinaryWrite rs("filevalue").getChunk(7500000) 
rs.close 
set rs=nothing 
set conn=nothing 
%>