查看完整版本: 漂浮廣告代碼

seven99999 2007-9-2 15:58

漂浮廣告代碼

[code]<SCRIPT> Hv.ki.A4T/wd
var imagepath="http://www.mmblue.com/ad/ad.jpg"這裡寫圖片連接到的地址 $uLf$|:f j7xLE
var imagewidth=171 //這兩行寫圖片的大小 z4a` Vq!n
var imageheight=133
R(h\w(}N var speed=3; F&_K-X^
var imageclick="http://www.7cc.tw/" //這裡寫點擊圖片連接到的地址
o(S q@t*~U var hideafter=0 c[3xn;M|;j T-VP
var isie=0; .k%L cL&\*mNw Z{
if(window.navigator.appName=="Microsoft Internet Explorer"&&window.navigator.appVersion.substring(window.navigator.appVersion.indexOf("MSIE")+5,window.navigator.appVersion.indexOf("MSIE")+8)>=5.5) { Kj e.S*O M?
isie=1; z0H\,W QS3_
}
0v:d U:m1h?h5q else { 5t2`Q^qo1~ _
isie=0; G~`n_2A
} YF4~7|4SV3e)ol
if(isie){
aCj&yW { var preloadit=new Image()
7_-ZAT Y$O preloadit.src=imagepath
s4E8Y5`#HML }
"CT`.}&ADzvVO function pop() {
:s'l;dJu3K!A if(isie) {
1yV2NMxz x=x+dx;y=y+dy; -yeU8q8i7lj
oPopup.show(x, y, imagewidth, imageheight);
MV9x eRX if(x+imagewidth+5>screen.width) dx=-dx; "}!{:Vg4l-W
if(y+imageheight+5>screen.height) dy=-dy;
2vRW!es%r if(x<0) dx=-dx;
+H-QA)X([&Nc kWS if(y<0) dy=-dy;
gg's8g7]Y_ startani=setTimeout("pop();",50); |R7Mm?S`
} u#r9bWa7G"dm
}
S&nnh!W db:Z function dismisspopup(){ 5s&~Z R @\ Kl o
clearTimeout(startani) "Bry!K:X,F
oPopup.hide()
_dlnFh }
Xa'c8ei8t.|O function dowhat(){ M(Dd'i/CaR
if (imageclick=="dismiss") 3[U4@5y0H
dismisspopup() #hty tk S
else
A){4KHA window.open(imageclick);
CE+` W3T } q#P\.wv[g
if(isie) { '],Qqp@D
var x=0,y=0,dx=speed,dy=speed;
2ah1Qu'n.vz8e.A var oPopup = window.createPopup();
+G ekR7g var oPopupBody = oPopup.document.body; ip)D}6C d Q@
oPopupBody.style.cursor="hand"
.ab{h;m oPopupBody.innerHTML = '<IMG SRC="'+preloadit.src+'">';
Y%b7Ri U"xA oPopup.document.body.onmouseover=new Function("clearTimeout(startani)") olV4F,Z)NtCT Tlp
oPopup.document.body.onmouseout=pop
[+k2oLp oPopup.document.body.onclick=dowhat F;l j)Ui(Z
pop();
O.HtV D'Gj if (hideafter>0)
+n~JP4Mdc N setTimeout("dismisspopup()",hideafter*1000) /E8{E8g&V'|$YW
} Hi:JDkH
</SCRIPT>
8?#?Z-P J#ok+`2t-f^ [/code]
頁: [1]
查看完整版本: 漂浮廣告代碼