<!-- 代码开始 -->
<script Language="javascript">
bname=navigator.appName;
bversion=parseInt(navigator.appVersion)
if ((bname=="Netscape" && bversion>=4) || (bname=="Microsoft Internet Explorer" && bversion>=4))
window.onload=start
else
stop();
window.onunload=stop
if (bname=="Netscape"){
brows=true
dt=2
}
else{
brows=false
dt=20
}
var z=0;
var msg=0;
var rgb=0;
var link=false;
var status=true;
var updwn=false;
var message= new Array();
var value=0;
var h=window.innerHeight;
var w=window.innerWidth;
var timer1;
var timer2;
var timer3;
var convert = new Array()
var hexbase= new Array("0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "A", "B", "C", "D", "E", "F");
var bgcolor="#000000"; //Color of background
var color="#00ff00"; //Color of the Letters
'Declare the variable used to increment the x coordinate
Public XPos
'Initialize the variable
XPos = 20
Function LightMe()
'Puts a spotlight on the title
call document.all.title.filters(0).addPoint(20, 10, 100, 200, 225, 200, 100)
MoveLight
End Function
Function MoveLight()
'Moves the spotlight from left to right across the title area until it reaches the edge
'of the window and then stops
'This increments the x coordinate
XPos = XPos + 5
'If not at the right edge of the window then move the spotlight right
If XPos < 480 Then
call document.all.title.filters(0).movelight(0, xpos, 10, 100, 1)
myTimer = window.setTimeout("Movelight", 1)
'If at the right edge of the window call the first paragraph of text
Else
window.clearTimeout(myTimer)
call document.all.title.filters(0).clear
Text1Trans
End If
End Function
Sub Text1Trans()
'Makes the first paragraph of text visible
Text1.filters(0).Apply()
Text1.style.visibility="visible"
Text1.filters(0).Play()
myTimer = window.setTimeout("Text2Trans", 3000)
End Sub
Sub Text2Trans()
'Makes the second paragraph of text visible
Text2.filters(0).Apply()
Text2.style.visibility="visible"
Text2.filters(0).Play()
Link2Trans
End Sub
Sub Link2Trans()
'Makes the Next button visible
Link2.filters(0).apply()
Link2.style.visibility="visible"
Link2.filters(0).play()
End Sub
Sub Next_onclick()
'Makes the button appeared depressed and moves to next slide
document.all.ButtonNext.src = "right3down.gif"
location.href= "iitourb.htm"
End Sub
-->
</script>