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

Jsp/Servlet

开发平台:

Java

  1. <% '对联广告
  2. dim rsAds4
  3. set rsAds4=Server.CreateObject("Adodb.RecordSet")
  4. GuSQL="select top 1 * from "&GuTablePrefix&"_Ads where Ad_Type='4' order by Ad_Order asc"
  5. rsAds4.open GuSQL,GuConn,1,1
  6. if rsAds4.eof and rsAds4.bof then
  7. Response.write ""
  8. else
  9. %>
  10. <Script Language="JavaScript">
  11. <!--
  12. var showad=true;
  13. var Toppx=60;  //上端位置
  14. var AdDivW=<%=rsAds4("Ad_PictureWidth")%>;  //宽度
  15. var AdDivH=<%=rsAds4("Ad_PictureHeight")%>;  //高度
  16. var PageWidth=800;  //页面多少宽度象素下正好不出现左右滚动条
  17. var MinScreenW=1024;  //显示广告的最小屏幕宽度象素
  18. var ClosebuttonHtml = '<div align="right" style="position: absolute;top:0px;right:0px;margin:2px;padding:2px;z-index:2000;"><a href="JavaScript:;" onclick="hidead()" style="color:red;text-decoration:none;font-size:12px;">关闭</a></div>'
  19. var AdContentHtml = '<div align="center" style="color:green;font-size:23pt;font-family:黑体;"><%
  20. if right(rsAds4("Ad_Picture"),3)="swf" then
  21. 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="""&rsAds4("Ad_PictureWidth")&""" height="""&rsAds4("Ad_PictureHeight")&""">"
  22. Response.write "<param name=""movie"" value="""&rsAds4("Ad_Picture")&""">"
  23. Response.write "<param name=""quality"" value=""High"">"
  24. Response.write "<embed src="""&rsAds4("Ad_Picture")&""" pluginspage=""http://www.macromedia.com/go/getflashplayer"" type=""application/x-shockwave-flash"" name=""obj1"" width="""&rsAds4("Ad_PictureWidth")&""" height="""&rsAds4("Ad_PictureHeight")&"""></object>"
  25. else
  26. Response.write "<a href="""&rsAds4("Ad_Href")&""" target=""_blank""><img src="""&rsAds4("Ad_Picture")&""" border=""0"" width="""&rsAds4("Ad_PictureWidth")&""" height="""&rsAds4("Ad_PictureHeight")&""" title="""&rsAds4("Ad_Title")&"""></a>"
  27. end if
  28. %></div>';
  29. document.write ('<div id="JavaScript.LeftDiv"  style="position: absolute;border: 1px solid #336699;background-color:#EEEEE2;z-index:1000;width:'+AdDivW+'px;height:'+AdDivH+'px;top:-1000px;word-break:break-all;display:none;">'+ClosebuttonHtml+'<div>'+AdContentHtml+'</div></div>');
  30. document.write ('<div id="JavaScript.RightDiv" style="position: absolute;border: 1px solid #336699;background-color:#EEEEE2;z-index:1000;width:'+AdDivW+'px;height:'+AdDivH+'px;top:-1000px;word-break:break-all;display:none;">'+ClosebuttonHtml+'<div>'+AdContentHtml+'</div></div>');
  31. function scall(){
  32.     if(!showad){return;}
  33.     if (window.screen.width<MinScreenW){
  34.         //alert("临时提示:nn显示器分辨率宽度小于"+MinScreenW+",不显示广告");
  35.         showad = false;
  36.         document.getElementById("JavaScript.LeftDiv").style.display="none";
  37.         document.getElementById("JavaScript.RightDiv").style.display="none";
  38.         return;
  39.     }
  40.     var Borderpx = ((window.screen.width-PageWidth)/2-AdDivW)/2;
  41.     document.getElementById("JavaScript.LeftDiv").style.display="";
  42.     document.getElementById("JavaScript.LeftDiv").style.top=document.body.scrollTop+Toppx;
  43.     document.getElementById("JavaScript.LeftDiv").style.left=document.body.scrollLeft+Borderpx;
  44.     document.getElementById("JavaScript.RightDiv").style.display="";
  45.     document.getElementById("JavaScript.RightDiv").style.top=document.body.scrollTop+Toppx;
  46.     document.getElementById("JavaScript.RightDiv").style.left=document.body.scrollLeft+document.body.clientWidth-document.getElementById("JavaScript.RightDiv").offsetWidth-Borderpx;
  47. }
  48. function hidead()
  49. {
  50.     showad = false;
  51.     document.getElementById("JavaScript.LeftDiv").style.display="none";
  52.     document.getElementById("JavaScript.RightDiv").style.display="none";
  53. }
  54. window.onscroll=scall;
  55. window.onresize=scall;
  56. window.onload=scall;
  57. //-->
  58. </Script>
  59. <%
  60. end if
  61. rsAds4.close
  62. set rsAds4=Nothing
  63. %>