www.gusucode.com > ASP+ACCESS学生论坛设计与实现(源代码+论文+开题报告) > ASP+ACCESS学生论坛设计与实现(源代码+论文+开题报告)\13学生论坛ASPAC\BBS\show_ad_sc.asp

    <!--#include file=connad.asp-->
<%
response.expires=0
response.buffer=true
response.clear

Dim rs
Dim filename

filename=request("fn")
if filename="" then
	Response.Write "错误的系统参数1。"
	Response.end
else
	filename=replace(filename,"'","")
end if

set rs=connad.execute("select * from dv_chanad where A_Adname='"&filename&"'")
if rs.eof and rs.bof then
	Response.Write "错误的系统参数2。"
	Response.end	
else
	if rs("a_adtype")="swf" then
	Response.ContentType = "application/x-shockwave-flash"
	else
	Response.ContentType = "image/" & replace(lcase(rs("a_adtype")),"jpg","jpeg")
	'Response.ContentType = "img/*"
	end if
	Response.BinaryWrite rs("A_data").GetChunk(7500000)
	'Response.Write rs("a_data")

end if
rs.close
set rs=nothing
connad.close
set connad=nothing
%>