⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 跑马灯式样的站点栏目指南.htm

📁 VBSCRIPT的源码,相信很多html程序员都会用到,这些源码小小变动一下,可以用在很多地方,尤其在DHTML中!
💻 HTM
字号:
<html>
<head>
<META name=VI60_defaultClientScript content=VBScript>
<title>鼠标放上去即可看见效果</title>
<style type="text/css">
<!--
body {  font-family: "宋体"; font-size: 9pt; margin-top: 0px; margin-left: 0px; margin-right: 0px}
A { COLOR: black; FONT-SIZE: 9pt; FONT-WEIGHT: 400; TEXT-DECORATION: none }
 A:hover { COLOR: red; FONT-SIZE: 9pt; FONT-WEIGHT: 400; TEXT-DECORATION: underline }
a:active     { font: 9pt "宋体"; cursor: hand; color: #FF0033 }
-->
</style>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">

<SCRIPT ID=clientEventHandlersVBS LANGUAGE=VBScript>
<!--
Sub show1_onmouseout
     show1.style.backgroundColor="#fef4d9"
     call hidetip2()
End Sub
Sub show1_onmouseover
  show1.style.backgroundColor="blue"
  str="状态栏跑马灯"
 call showtip2(str)
End Sub
Sub show2_onmouseout
       show2.style.backgroundColor="#fef4d9"
     call hidetip2()
End Sub
Sub show2_onmouseover
  show2.style.backgroundColor="blue"
  str="朋友欢迎你的到来"
 call showtip2(str)
End Sub
-->
</SCRIPT>
</head>

<body bgcolor="#fef4d9">
<div id="tooltip2" style="position:absolute;visibility:hidden;clip:rect(0 150 50 0);width:150px;background-color:seashell">
<layer name="nstip" width=1000px bgColor="seashell"></layer>
</div>
<SCRIPT language="JavaScript">
<!--
if (!document.layers&&!document.all)
event="test"
function showtip2(text){
	var current
	current=this
	e=event
	if (document.all&&document.readyState=="complete"){
	document.all.tooltip2.innerHTML='<marquee style="border:1px solid black">'+text+'</marquee>'
	document.all.tooltip2.style.pixelLeft=event.clientX+document.body.scrollLeft+10
	document.all.tooltip2.style.pixelTop=event.clientY+document.body.scrollTop+10
	document.all.tooltip2.style.visibility="visible"
	}

	else if (document.layers){
		document.tooltip2.document.nstip.document.write('<b>'+text+'</b>')
		document.tooltip2.document.nstip.document.close()
		document.tooltip2.document.nstip.left=0
		currentscroll=setInterval("scrolltip()",100)
		document.tooltip2.left=e.pageX+10
		document.tooltip2.top=e.pageY+10
		document.tooltip2.visibility="show"
	}
}
function hidetip2(){
	if (document.all)
		document.all.tooltip2.style.visibility="hidden"
	else if (document.layers){
		clearInterval(currentscroll)
		document.tooltip2.visibility="hidden"
	}
}
function scrolltip(){
if (document.tooltip2.document.nstip.left>=-document.tooltip2.document.nstip.document.width)
document.tooltip2.document.nstip.left-=5
else
document.tooltip2.document.nstip.left=150
}
//-->
</SCRIPT>
<center><br>
	<h2>鼠标放上去即可看见效果</h2>
	<hr><br>
	<table border="1" width=100 height=60 >
	<tr><td><b id=show1 >显示效果一</td></tr>
	<tr><td><b id=show2> 显示效果二</td></tr>
	</table>
</center>
<br>
<br>
</body> 
</html> 

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -