|
说明: 一群群的蚂蚁爬向鼠标
效果: 运行后查看！
代码: 要完成此效果需要三个步骤
第一步：把如下代码加入到<head>区域中
<style type="text/css">
.ant {
height: 16px;
position: absolute;
visibility: hidden;
width: 16px;
}
</style>
第二步：把如下代码加入到<body>区域中
<SCRIPT LANGUAGE="JavaScript">
var dir = "";
var images = new Array(
dir+"antdl.gif",
dir+"antdn.gif",
dir+"antdr.gif",
dir+"antlt.gif",
dir+"antrt.gif",
dir+"antul.gif",
dir+"antup.gif",
dir+"antur.gif"
);
var isMinNS4 = (document.layers) ? 1 : 0;
var isMinIE4 = (document.all) ? 1 : 0;
var _LBimgList;
var _LBimgCount;
var _LBbase = "LBbase";
var _LBlow = "LBlow";
var _LBhigh = "LBhigh";
var _LBwidth;
var _LBheight;
var _LBbaseLayer;
var _LBlowLayer;
var _LBhighLayer;
function createLoadBar(width, height, bdSize, bdColor,
bgColor, fgColor, fontFace, fontSize, text) {
var txtLow, txtHigh, tblStart, tblEnd;
var str;
txtLow = '<font color="' + fgColor + '" face="'
+ fontFace + '" size=' + fontSize + '>' + text
+ '</font>';
txtHigh = '<font color="' + bgColor + '"
face="' + fontFace + '" size=' + fontSize +
'>' + text + '</font>';
tblStart = '<table border=0 cellpadding=0 cellspacing=0
height=100% width=100%><tr valign="center"><td
align="center">';
tblEnd = '</td></tr></table>';
if (isMinNS4)
str = '<layer name="' + _LBbase + '" bgcolor="'
+ bdColor + '" width=' + width + ' height=' + height
+ ' visibility="hide">\n'
+ ' <layer name="' + _LBlow + '" bgcolor="'
+ bgColor + '" left=' + bdSize + ' top=' + bdSize
+ ' width=' + (width - 2 * bdSize) + ' height=' + (height
- 2 * bdSize) + '>' + tblStart + txtLow + tblEnd +
'</layer>\n'
+ ' <layer name="' + _LBhigh + '" bgcolor="'
+ fgColor + '" left=' + bdSize + ' top=' + bdSize
+ ' width=' + (width - 2 * bdSize) + ' height=' + (height
- 2 * bdSize) + '>' + tblStart + txtHigh + tblEnd +
'</layer>\n'
+ '</layer>';
if (isMinIE4)
str = '<div id="' + _LBbase + '" style="position:absolute;
background-color:' + bdColor + '; width:' + width + 'px;
height:' + height + 'px; visibility:hidden;">\n'
+ ' <div id="' + _LBlow + '" style="position:absolute;
background-color=' + bgColor + '; left:' + bdSize + 'px;
top:' + bdSize + 'px; width:' + (width - 2 * bdSize) +
'px; height:' + (height - 2 * bdSize) + 'px;">'
+ tblStart + txtLow + tblEnd + '</div>\n'
+ ' <div id="' + _LBhigh + '" style="position:absolute;
background-color=' + fgColor +
[1] [2] [3] [4] [5] 下一页 |
