位置：首页>> 网络编程>> JavaScript>> 一直闪烁变色的超级链接代码

一直闪烁变色的超级链接代码

　　发布时间：2008-02-27 13:08:00　

标签：链接,css,javascript

Dreamweaver中一直变色的超级链接，css+javascript实现超级链接变色，当鼠标移动到链接上时，链接的颜色不停闪烁变色。

　<HTML><HEAD><STYLE type=text/css>.STYLE5 { FONT-WEIGHT: bold; FONT-SIZE: 13px; COLOR: #ff0000}.STYLE7 { FONT-SIZE: 14px}a:link { color: #0066CC; text-decoration: none;}a:visited { text-decoration: none; color: #0066CC;}a:hover { text-decoration: none;}a:active { text-decoration: none;}</STYLE></HEAD><BODY text=#000000 leftMargin=0> <SCRIPT language=javascript>var rate = 20;var obj;var act = 0;var elmH = 0;var elmS = 128;var elmV = 255;var clrOrg;var TimerID;if (navigator.appName.indexOf("Microsoft",0) != -1 && parseInt(navigator.appVersion) >= 4) {Browser = true;} else {Browser = false;}if (Browser) {document.onmouseover = doRainbowAnchor;document.onmouseout = stopRainbowAnchor;}function doRainbow(){if (Browser && act != 1) {act = 1;obj = event.srcElement;clrOrg = obj.style.color;TimerID = setInterval("ChangeColor()",100);}}function stopRainbow(){if (Browser && act != 0) {obj.style.color = clrOrg;clearInterval(TimerID);act = 0;}}function doRainbowAnchor(){if (Browser && act != 1) {obj = event.srcElement;while (obj.tagName != 'A' && obj.tagName != 'BODY') {obj = obj.parentElement;if (obj.tagName == 'A' || obj.tagName == 'BODY')break;}if (obj.tagName == 'A' && obj.href != '') {act = 1;clrOrg = obj.style.color;TimerID = setInterval("ChangeColor()",100);}}}function stopRainbowAnchor(){if (Browser && act != 0) {if (obj.tagName == 'A') {obj.style.color = clrOrg;clearInterval(TimerID);act = 0;}}}function ChangeColor(){obj.style.color = makeColor();}function makeColor(){if (elmS == 0) {elmR = elmV; elmG = elmV; elmB = elmV;}else {t1 = elmV;t2 = (255 - elmS) * elmV / 255;t3 = elmH ％ 60;t3 = (t1 - t2) * t3 / 60;if (elmH < 60) {elmR = t1; elmB = t2; elmG = t2 + t3;}else if (elmH < 120) {elmG = t1; elmB = t2; elmR = t1 - t3;}else if (elmH < 180) {elmG = t1; elmR = t2; elmB = t2 + t3;}else if (elmH < 240) {elmB = t1; elmR = t2; elmG = t1 - t3;}else if (elmH < 300) {elmB = t1; elmG = t2; elmR = t2 + t3;}else if (elmH < 360) {elmR = t1; elmG = t2; elmB = t1 - t3;}else {elmR = 0; elmG = 0; elmB = 0;}}elmR = Math.floor(elmR);elmG = Math.floor(elmG);elmB = Math.floor(elmB);clrRGB = '#' + elmR.toString(16) + elmG.toString(16) + elmB.toString(16);elmH = elmH + rate;if (elmH >= 360)elmH = 0;return clrRGB;}</SCRIPT> <DIV class="STYLE5 STYLE7" align=center><A href="https://www.aspxhome.com/">asp之家</A></DIV></HTML>

投稿

一直闪烁变色的超级链接代码

猜你喜欢