鼠标网线特效还带连接啊! 超级酷 dn001 2009-06-21 08:23:56 <!-- 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)">
