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 %>