74 Часть V. Разработка программ и написание скриптов

DimLastX, LastY

Sub Help(Text)

Status= Text End Sub

Function InRect(x, y, xl, yl, x2, y2)

InRect=x >xlAndx <x2And у >yl And у <y2

End Function

Sub ImageMap OnClick()

If InRect(LastX, LastY, 1, 0, 39, 77)Then

location.href= "http://rampages.onramp.net/~jerry"Elself InRect(LastX, LastY, 75, 8, 169, 79)then

location.href= "http://www.microsoft.com"Elself InRect(LastX, LastY, 199, 4, 251, 79)then

location.href= "http://www.netscape.com"Elself InRect(LastX, LastY, 279, 4, 323, 82)then

location.href= "http://www.mcp.com"End If End Sub

Sub ImageMap MouseMove(s, b,x,y)LastX= x LastY= y

If InRect(x, y, 1, 0, 39, 77)Then

Call Help("Open Jerry's homepage")Elself InRect(x, y, 75, 8, 169, 79)then

Call Help("Microsoft's homepage")Elself InRect(x, y, 199, 4, 251, 79)then

Call Help("Netscape's homepage")Elself InRect(x, y, 279, 4, 323, 82)then

Call help("MacMillan's homepage")Else

Call Helpf"")End If End Sub --></SCRIPT>

</BODY></HTML>