您的位置:首页 > 编程语言 > Delphi

鼠标经过链接显示提示信息

2012-04-02 08:21 429 查看
<html>

<head>

<meta name="keywords" content=www.admin120.com />

<meta name="description" content=www.admin120.com />

<title>鼠标经过链接显示提示信息,站长特效欢迎您。</title>

<style type="text/css">

<!--

a:link {  color: #0020FF; text-decoration: none;font-size: 9pt}

a:visited { color:#0020FF; text-decoration: none;font-size: 9pt}

a:hover {  color: #585858; text-decoration: underline;font-size: 9pt}

-->

</style>

<style>

<!--

#PCL {

 font-family:宋体 ;

 font-style: none;

 font-weight: normal;

 text-decoration: none;

 font-size: 9pt;

}

#PTT {

 font-family: 宋体;

 font-size: 9pt;

}

#PST {

 font-family:宋体;

 font-size: 9pt;

}

-->

</style>

</head>

<body>

<a href="http://js.niutuku.com/">牛图库JS特效</a>,站长必备的高质量网页特效和广告代码。,站长js特效。<hr>

<!--牛图库JS特效-->

<div ID="overDiv" STYLE="position:absolute; visibility:hide; z-index: 1;"></div><script

LANGUAGE="Javascript">

if (typeof fcolor == 'undefined') { var fcolor = "CCCCFF";}

if (typeof backcolor == 'undefined') { var backcolor = "333399";}

if (typeof textcolor == 'undefined') { var textcolor = "060606";}

if (typeof capcolor == 'undefined') { var capcolor = "FFFFFF";}

if (typeof closecolor == 'undefined') { var closecolor = "#9999FF";}

if (typeof width == 'undefined') { var width = "200";}

if (typeof border == 'undefined') { var border = "1";}

if (typeof offsetx == 'undefined') { var offsetx = 10;}

if (typeof offsety == 'undefined') { var offsety = 10;}

ns4 = (document.layers)? true:false

ie4 = (document.all)? true:false

if (ie4) {

if (navigator.userAgent.indexOf('MSIE 5')>0) {

ie5 = true;

} else {

ie5 = false; }

} else {

ie5 = false;

}//欢迎来到牛图库JS特效,我们的网址是www.,很好记,牛图库站长,js就是js特效,本站收集大量高质量js代码,还有许多广告代码下载。

var x = 0;

var y = 0;

var snow = 0;

var sw = 0;

var cnt = 0;

var dir = 1;

var tr = 1;

if ( (ns4) || (ie4) ) {

if (ns4) over = document.overDiv

if (ie4) over = overDiv.style

document.onmousemove = mouseMove

if (ns4) document.captureEvents(Event.MOUSEMOVE)

}

function drs(text) {

dts(1,text);

}

function drc(text, title) {

dtc(1,text,title);

}

function src(text,title) {

stc(1,text,title);

}

function dls(text) {

dts(0,text);

}

function dlc(text, title) {

dtc(0,text,title);

}

function slc(text,title) {

stc(0,text,title);

}

function dcs(text) {

dts(2,text);

}//欢迎来到牛图库JS特效,我们的网址是www.,很好记,牛图库站长,js就是js特效,本站收集大量高质量js代码,还有许多广告代码下载。

function dcc(text, title) {

dtc(2,text,title);

}

function scc(text,title) {

stc(2,text,title);

}

function nd() {

if ( cnt >= 1 ) { sw = 0 };

if ( (ns4) || (ie4) ) {

if ( sw == 0 ) {

snow = 0;

hideObject(over);

} else {

cnt++;

}

}

}

function dts(d,text) {

txt = "<TABLE WIDTH="+width+" BORDER=0 CELLPADDING="+border+" CELLSPACING=0 BGCOLOR=""+backcolor+""><TR><TD><TABLE WIDTH=100% BORDER=0 CELLPADDING=2 CELLSPACING=0 BGCOLOR=""+fcolor+""><TR><TD><FONT FACE="Arial,Helvetica" COLOR=""+textcolor+"" SIZE="-2">"+text+"</FONT></TD></TR></TABLE></TD></TR></TABLE>"

layerWrite(txt);

dir = d;

disp();

}

function dtc(d,text, title) {

txt = "<TABLE WIDTH="+width+" BORDER=0 CELLPADDING="+border+" CELLSPACING=0 BGCOLOR=""+backcolor+""><TR><TD><TABLE WIDTH=100% BORDER=0 CELLPADDING=0 CELLSPACING=0><TR><TD><SPAN ID="PTT"><B><FONT COLOR=""+capcolor+"">"+title+"</FONT></B></SPAN></TD></TR></TABLE><TABLE
WIDTH=100% BORDER=0 CELLPADDING=2 CELLSPACING=0 BGCOLOR=""+fcolor+""><TR><TD><SPAN ID="PST"><FONT COLOR=""+textcolor+"">"+text+"</FONT><SPAN></TD></TR></TABLE></TD></TR></TABLE>"

layerWrite(txt);

dir = d;

disp();

}

function stc(d,text, title) {

sw = 1;

cnt = 0;

txt = "<TABLE WIDTH="+width+" BORDER=0 CELLPADDING="+border+" CELLSPACING=0 BGCOLOR=""+backcolor+""><TR><TD><TABLE WIDTH=100% BORDER=0 CELLPADDING=0 CELLSPACING=0><TR><TD><SPAN ID="PTT"><B><FONT COLOR=""+capcolor+"">"+title+"</FONT></B></SPAN></TD><TD ALIGN=RIGHT><A
HREF="/" onMouseOver="cClick();" ID="PCL"><FONT COLOR=""+closecolor+"">Close</FONT></A></TD></TR></TABLE><TABLE WIDTH=100% BORDER=0 CELLPADDING=2 CELLSPACING=0 BGCOLOR=""+fcolor+""><TR><TD><SPAN ID="PST"><FONT COLOR=""+textcolor+"">"+text+"</FONT><SPAN></TD></TR></TABLE></TD></TR></TABLE>"

layerWrite(txt);

dir = d;

disp();

snow = 0;

}

function disp() {

if ( (ns4) || (ie4) ) {

if (snow == 0) {

if (dir == 2) {

moveTo(over,x+offsetx-(width/2),y+offsety);

}

if (dir == 1) {

moveTo(over,x+offsetx,y+offsety);

}

if (dir == 0) {

moveTo(over,x-offsetx-width,y+offsety);

}

showObject(over);

snow = 1;

}

}

}

function mouseMove(e) {

if (ns4) {x=e.pageX; y=e.pageY;}

if (ie4) {x=event.x; y=event.y;}

if (ie5) {x=event.x+document.body.scrollLeft; y=event.y+document.body.scrollTop;}

if (snow) {

if (dir == 2) {

moveTo(over,x+offsetx-(width/2),y+offsety);

}

if (dir == 1) {

moveTo(over,x+offsetx,y+offsety);

}

if (dir == 0) {

moveTo(over,x-offsetx-width,y+offsety);

}

}

}

function cClick() {

hideObject(over);

sw=0;

}

function layerWrite(txt) {

if (ns4) {

var lyr = document.overDiv.document

lyr.write(txt)

lyr.close()

}

else if (ie4) document.all["overDiv"].innerHTML = txt

if (tr) { trk(); }

}

function showObject(obj) {

if (ns4) obj.visibility = "show"

else if (ie4) obj.visibility = "visible"

}

function hideObject(obj) {

if (ns4) obj.visibility = "hide"

else if (ie4) obj.visibility = "hidden"

}

function moveTo(obj,xL,yL) {

obj.left = xL

obj.top = yL

}

function trk() {

if ( (ns4) || (ie4) )

tr = 0;

}</script>

<a HREF="#" onMouseOver="drc('国内一流的网页特效站','网页特效'); return true;"onMouseOut="nd(); return true;">牛图库JS特效</a>

<a HREF="#" onMouseOver="drc('很好的下载站点,速度快','天空下载'); return true;"onMouseOut="nd(); return true;">天空下载</a>

<a HREF="#" onMouseOver="drc('游戏爱好者的乐园','游戏天下'); return true
4000
;"onMouseOut="nd(); return true;">游戏天下</a>

<a HREF="#" onMouseOver="drc('这里有Delphi的好东东','Codelphi'); return true;"onMouseOut="nd(); return true;">Codelphi</a>

<a HREF="#" onMouseOver="drc('程序员必看','中国软件'); return true;"onMouseOut="nd(); return true;">中国软件</a>

</body>

</html>
内容来自用户分享和网络整理,不保证内容的准确性,如有侵权内容,可联系管理员处理 点击这里给我发消息