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>