此文档含有命名为“Image”的锚，当鼠标指针在其之上移动时，此锚将产生事件。VBScript 事件处理程序跟踪鼠标的移动并改变文本框中的信息。
单击时，Image 产生 OnClick 事件，使 VBScript 事件处理程序运行。此事件处理程序通过修改 Location 对象的 hRef 属性的值以超链接到适当的页面。
此“客户端图像映射”方法优于传统的图像映射法。首先，有更高的交互性。此样例中，用户移动鼠标时，描述性文本框立刻作出反应。其次，因为无需使用网络进行击点检测，所以保持了网络带宽。
<SCRIPT LANGUAGE="VBScript">
' 记下上次单击的位置。
Dim mX, mY
Sub Image_MouseMove(s, b, x, y)
mX = x
mY = y
If InRect(x, y, 5, 30, 120, 85) Then
Call DescribeLink("Microsoft 产品目录")
ElseIf InRect(x, y, 5, 95, 120, 135) then
Call DescribeLink("Microsoft 产品支持选项")
ElseIf InRect(x, y, 5, 150, 120, 190) then
Call DescribeLink("免费下载 Microsoft 软件")
ElseIf InRect(x, y, 470, 30, 570, 47) then
Call DescribeLink("Internet 教程")
ElseIf InRect(x, y, 470, 70, 570, 87) then
Call DescribeLink("使用搜索服务以查找 Internet 上的任何内容")
ElseIf InRect(x, y, 470, 105, 570, 122) then
Call DescribeLink("我们已把有帮助的和便利的 Web 资源放于您的手中")
ElseIf InRect(x, y, 470, 140, 570, 157) then
Call DescribeLink("查看本周精选")
ElseIf InRect(x, y, 470, 175, 570, 192) then
Call DescribeLink("关于 Microsoft 网络")
Else
DescribeLink ""
End If
End Sub
Sub Image_OnClick()
If InRect(mX, mY, 5, 30, 120, 85) Then
location.href = "http://www.jb200.com/products/msprod.htm"
ElseIf InRect(mX, mY, 5, 95, 120, 135) then
location.href = "http://www.microsoft.com/support/"
ElseIf InRect(mX, mY, 5, 150, 120, 190) then
location.href = "http://www.jb200.com/products/intprod.htm"
ElseIf InRect(mX, mY, 470, 30, 570, 47) then
location.href = "http://www.jb200.com/tutorial/default.html"
ElseIf InRect(mX, mY, 470, 70, 570, 87) then
location.href = "http://www.jb200.com/access/allinone.asp"
ElseIf InRect(mX, mY, 470, 105, 570, 122) then
location.href = "http://www.jb200.com/access/ref.asp"
ElseIf InRect(mX, mY, 470, 140, 570, 157) then
location.href = "http://www.jb200.com/access/links/other.htm"
ElseIf InRect(mX, mY, 470, 175, 570, 192) then
location.href = "http://www.jb200.com/about/jbxue.htm"
End If
End Sub
Function InRect(x, y, Rect_x1, Rect_y1, Rect_x2, Rect_y2)
InRect = x > Rect_x1 And x < Rect_x2 And y > Rect_y1 And y < Rect_y2
End Function
Sub DescribeLink(Text)
TxtLinkDescription.Value = Text
End Sub
</SCRIPT>