uploadfile.asp

教学平台,教学学生登陆,课程发布,信息公告

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

Dim uploadID,FileName,ContentType
Dim S
uploadID = request("uploadID")
Dim rs, strSql, field, size, bytes

set rs=server.createobject("ADODB.recordset") 
strSql = "Select * from StudyMaterial where id = " & uploadID

rs.Open strSql,conn,1,1

If Not rs.Eof Then
	FileName = rs("path")
	ContentType = rs("ContentType")

	field = rs("Content")
	'size = field.ActualSize
	size=rs("filesize")
	bytes = rs("Content").GetChunk(rs("Content").ActualSize)
Else
	
	Response.Write("No Such Record")
	Response.End

	rs.close
	Set rs = nothing
	conn.close
	Set conn = nothing

End If

rs.close
Set rs = nothing
conn.close
Set conn = nothing


Response.AddHeader "Content-Disposition", "attachment; filename="&filename
Response.CharSet = "GB2312" 
Response.ContentType = ContentType
Response.BinaryWrite(bytes)
Response.Flush

%>