请问如何调试嵌套在网页中的脚本代码？

[WardTwain]

通过IE的右键菜单，调用如下脚本，但是不知道如何调试，请大虾指点一二：

[WardTwain]

<script language="VBScript">
Sub OnContextMenu()
On Error Resume Next
set srcEvent = external.menuArguments.event
set EventElement = external.menuArguments.document.elementFromPoint(srcEvent.clientX, srcEvent.clientY)
set objNetSamp=CreateObject("ProjectActiveDll.SimplePlugin")
if srcEvent.type = "MenuExtAnchor" then
set srcAnchor = EventElement
do until TypeName(srcAnchor)="HTMLAnchorElement"
set srcAnchor=srcAnchor.parentElement
Loop
Call objNetSamp.AddUrl(srcAnchor.href,srcAnchor.innerText)
elseif srcEvent.type="MenuExtImage" then
if TypeName(EventElement)="HTMLAreaElement" then
Call objNetSamp.AddUrl(EventElement.href,EventElement.Alt)
else
set srcImage = EventElement
set srcAnchor = srcImage.parentElement
do until TypeName(srcAnchor)="HTMLAnchorElement"
set srcAnchor=srcAnchor.parentElement
if TypeName(srcAnchor)="Nothing" then
call objNetSamp.AddUrl(srcImage.href,srcImage.Alt)
exit sub
end if
Loop
Call objNetSamp.AddUrl(srcAnchor.href, srcImage.Alt)
end if
elseif srcEvent.type="MenuExtUnknown" then
set srcAnchor = EventElement
do until TypeName(srcAnchor)="HTMLAnchorElement"
set srcAnchor=srcAnchor.parentElement
if TypeName(srcAnchor)="Nothing" then
Call objNetSamp.AddUrl(EventElement.href,EventElement.innerText)
exit sub
end if
Loop
Call objNetSamp.AddUrl(srcAnchor.href,srcAnchor.innerText)
end if
end Sub

call OnContextMenu()
msgbox "help!"
</script>

[supere]

如果是客户端脚本的话
document.oncontextmenu = OnContextMenu

不过你这段代码中有调用组件的部分！应该是服务器断的！
也就是<script language="VBScript" Runat=server>

[WardTwain]

我在自己本地注册了一个ProjectActiveDll对象，提供接口SimplePlugin，通过接口可以调用方法AddUrl( string, string )，脚本也是运行在服务端的。
我在IE右键菜单中注册了一个链接，通过这个链接调用上面一段脚本，但是希望能够跟踪一下，而且脚本最后的msgbox "help!"在IE中总是提示，权限错误，百思不得其解。

[vcshcn]

Visual InterDev

[WardTwain]

虽然supere给出的方案不能够解决我这个问题，但是谢谢关注，还是给2分吧。

[WardTwain]

还有其他人知道如何解决不？

[chmask]

不了解了，帮你关注吧……

[happylifei]

一点不懂