鼠标网线特效还带连接啊! 超级酷
<!-- http://www.knowsky.com -->
<!-- bbs http://www.knowsky.com/bbs-->
<!--脚本说明:
第一步:把如下代码加入<body>区域中-->
<SCRIPT language=VBScript>
dim c,numgc
c=-100000
numgc=document.body.sourceIndex
sub SF
c=c+2
Document.all(numgc).style.BackgroundPosition="0 "&c
id=SetTimeOut("SF",64,"VBScript")
end sub
SF
</SCRIPT>
<!--第二步:把<body>换为-->
<body background=http://www.knowsky.com/images/logo.gif onLoad="ob(),setNum(),setInterval('timer()',100);setInterval('runClock()',100)">