Ads3.asp
上传用户:yunfeng252
上传日期:2022-07-23
资源大小:12403k
文件大小:1k
源码类别:

Jsp/Servlet

开发平台:

Java

  1. <% '飘浮广告
  2. dim rsAds3
  3. set rsAds3=Server.CreateObject("Adodb.RecordSet")
  4. GuSQL="select top 1 * from "&GuTablePrefix&"_Ads where Ad_Type='3' order by Ad_Order asc"
  5. rsAds3.open GuSQL,GuConn,1,1
  6. if rsAds3.eof and rsAds3.bof then
  7. Response.write ""
  8. else
  9. Response.write "<div id=""img"" style=""position:absolute;"">"
  10. if right(rsAds3("Ad_Picture"),3)="swf" then
  11. Response.write "<object classid=""clsid:D27CDB6E-AE6D-11CF-96B8-444553540000"" id=""obj1"" codebase=""http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,40,0"" border=""0"" width="""&rsAds3("Ad_PictureWidth")&""" height="""&rsAds3("Ad_PictureHeight")&""">"
  12. Response.write "<param name=""movie"" value="""&rsAds3("Ad_Picture")&""">"
  13. Response.write "<param name=""quality"" value=""High"">"
  14. Response.write "<embed src="""&rsAds3("Ad_Picture")&""" pluginspage=""http://www.macromedia.com/go/getflashplayer"" type=""application/x-shockwave-flash"" name=""obj1"" width="""&rsAds3("Ad_PictureWidth")&""" height="""&rsAds3("Ad_PictureHeight")&"""></object>"
  15. else
  16. Response.write "<a href="""&rsAds3("Ad_Href")&""" target=""_blank""><img src="""&rsAds3("Ad_Picture")&""" border=""0"" width="""&rsAds3("Ad_PictureWidth")&""" height="""&rsAds3("Ad_PictureHeight")&""" title="""&rsAds3("Ad_Title")&"""></a>"
  17. end if
  18. Response.write "</div>"
  19. %>
  20. <Script Language="JavaScript" src="Include/Ads3.js"></Script>
  21. <%
  22. end if
  23. rsAds3.close
  24. set rsAds3=Nothing
  25. %>