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

📄 back1.htm

📁 javascript各种效果的实例及源代码
💻 HTM
字号:
<html>

<head>

<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">

</head>



<body background=back.jpg onLoad="ob(),setNum(),setInterval('timer()',100);setInterval('runClock()',100)">

<br>

<br>

<center><font color=red face="隶书" size=6>背景向下移动脚本</font></center>

<br>

<br><center>

<table border=5 bordercolor=blue borderlight=green>

<tr><td align=center><font size=5 color=red face="Arial, Helvetica, sans-serif"><strong>看到背景在动了吗?</strong></font></td></tr>

</table></center>

<br>

<br>

<center>

<textarea name=source rows=12 cols=55 class=yk9>

脚本说明:

第一步:把如下代码加入<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=back.jpg onLoad="ob(),setNum(),setInterval('timer()',100);setInterval('runClock()',100)">

</textarea>

<SCRIPT LANGUAGE="JavaScript">



<!-- hide



function goHist(a) 



{



   history.go(a);



}



//-->



</script>



<FORM METHOD="post">

<INPUT TYPE="button" VALUE="返回" onClick="goHist(-1)" style="background-color: #8000FF; color: rgb(255,255,255)">

</form>

</center>

<br>

<br>

<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>

</html>

⌨️ 快捷键说明

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