attachment.asp

功能介绍： 一、会员功能模块 1、站内短信发布(设计中) 2、书架收藏夹 3、发表评论(功能不完善) 4、申请作家(与添书员整合) 5、申请添书员(与作家整合) 6、申请更新员

<!-- #include file="conn.asp" -->
<!--#include file="inc/Function.asp"-->
<%
id=CheckSql(request.querystring("id"))
CheckSqlnum(id)
id=int(id)
set rsfile=server.createobject("adodb.recordset") 						'设置数据库连接类型.然后打开数据库,将图片资料录入数据库
strSQL ="select fileurl_name,fileurl_info,fileurl_path,fileurl_Types from [filetest] where id="&id
rsfile.open strSQL,conn,1,1												'打开数据库表(可修改模式)
if not( Rsfile.Eof And Rsfile.Bof) then
	img=Rsfile("fileurl_path")&Rsfile("fileurl_name")
	arrfileurl_info=Split(Rsfile("fileurl_info"),"/")
	fName="(CnEndWeb)"&arrfileurl_info(UBound(arrfileurl_info))
	arrfileurl_info=""
	imgsExt="."&Rsfile("fileurl_Types")
	fileurl=server.MapPath(img) '获取要下载的文件在服务器上的绝对位置 

	Set Myfso=Server.CreateObject("Scripting.FileSystemObject") 
	IF MyFSO.FileExists(fileurl) then
		'使用Adodb.Stream组件
		If Not IsObjInstalled("ADODB.Stream") Then
			response.write "组件不支持"
		else
			'创建Myfso,使用FSO组件 
			Set f=Myfso.getfile(fileurl) '定义FSO对象f 
				fsize=f.size '文件大小 
			Set f=Nothing	 '释放f 
			Set Myfso=Nothing '释放MyFso 
 
			Set MyStream = Server.CreateObject("ADODB.Stream") 
			MyStream.Open 
			MyStream.Type = 1 
			MyStream.LoadFromFile fileurl 
		 
			'读取文件类型，让系统识别，以存为不同类型的文件。 
			Select Case imgsExt 
				Case ".asf" 
					 ContentType = "video/x-ms-asf" 
				Case ".avi" 
					 ContentType = "video/avi" 
				Case ".doc" 
					 ContentType = "application/msword" 
				Case ".zip" 
					 ContentType = "application/zip" 
				Case ".xls" 
					 ContentType = "application/vnd.ms-excel" 
				Case ".gif" 
					 ContentType = "image/gif" 
				Case ".jpg", ".jpeg" 
					 ContentType = "image/jpeg" 
				Case ".wav" 
					 ContentType = "audio/wav" 
				Case ".mp3" 
					 ContentType = "audio/mpeg3" 
				Case ".mpg", ".mpeg" 
					 ContentType = "video/mpeg" 
				Case ".rtf" 
					 ContentType = "application/rtf" 
				Case ".htm", ".html", ".shtml"
					 ContentType = "text/html" 
				Case ".asp", ".php", ".jsp"
					 ContentType = "text/html" 
				Case ".txt", ".text"
					 ContentType = "text/plain" 
				Case Else 
					 ContentType = "application/octet-stream" 
			End Select 
	
			Response.AddHeader "Content-Disposition", "attachment; filename=" & fName
			Response.AddHeader "Content-Length", fsize 
			Response.Charset = "UTF-8" 
			Response.ContentType = ContentType 
			Response.BinaryWrite MyStream.Read 
			Response.Flush 
 
			'释放MyStream 
			MyStream.Close 
			Set MyStream = Nothing
		End if
	Else
		fileurl=server.MapPath("images/Null.jpg")
			'创建Myfso,使用FSO组件 
			Set f=Myfso.getfile(fileurl) '定义FSO对象f 
				fsize=f.size '文件大小 
			Set f=Nothing	 '释放f 
			Set Myfso=Nothing '释放MyFso 
 
			Set MyStream = Server.CreateObject("ADODB.Stream") 
			MyStream.Open 
			MyStream.Type = 1 
			MyStream.LoadFromFile fileurl 
			Response.AddHeader "Content-Disposition", "attachment; filename=""(CnEndWeb)文件丢失"""
			Response.AddHeader "Content-Length", fsize 
			Response.Charset = "UTF-8" 
			Response.ContentType = "image/jpeg" 
			Response.BinaryWrite MyStream.Read 
			Response.Flush 
 
			'释放MyStream 
			MyStream.Close 
			Set MyStream = Nothing
	End if
Else
	fileurl=server.MapPath("images/Null.jpg")
	'使用Adodb.Stream组件
		'创建Myfso,使用FSO组件 
		Set f=Myfso.getfile(fileurl) '定义FSO对象f 
			fsize=f.size '文件大小 
		Set f=Nothing	 '释放f 
		Set Myfso=Nothing '释放MyFso 

		Set MyStream = Server.CreateObject("ADODB.Stream") 
		MyStream.Open 
		MyStream.Type = 1 
		MyStream.LoadFromFile fileurl 
		Response.AddHeader "Content-Disposition", "attachment; filename=""(CnEndWeb)文件丢失"""
		Response.AddHeader "Content-Length", fsize 
		Response.Charset = "UTF-8" 
		Response.ContentType = "image/jpeg" 
		Response.BinaryWrite MyStream.Read 
		Response.Flush 

		'释放MyStream 
		MyStream.Close 
		Set MyStream = Nothing
end if
rsfile.close
set rsfile=nothing
%>