我做了个网页吧，为了安全，我搞了必须插入 usbkey2000的u盾才能登陆。（mycheckdog是开发商给我的）
<SCRIPT ID=clientEventHandlersVBS LANGUAGE=vbscript>
<!--
Sub mycheckdog
On Error resume next
dim a,b,mylen
set aObject = CreateObject("Syunew6A.s_simnew6")
if Err.number<>0 then
msgbox "未安装锁的驱动。请安装锁的驱动后再进行操作。"
exit sub
end if
'查找是否存在锁,这里使用了FindPort函数
DevicePath = aObject.FindPort(0)
if aObject.LastError<> 0 then
msgbox "对不起！！系统检测到您没有插入U盾密匙，请插入后再进行操作 谢谢！！"
exit sub
end if
End Sub
-->
sub onerror
end sub
</SCRIPT>
<body onload="mycheckdog">
我现在把这代码放到我主页上，假如插入 usbkey2000的u盾页面就不会弹出警告窗口了的。
我现在想要的是：没有插入 usbkey2000的u盾页面弹出警告窗口，但是我发现警告窗口会有“确定”和右上角关闭的按钮，人家盗版用户点哈“确定”和“关闭的按钮”就关闭了的， 如何在没有插入 usbkey2000的u盾 的情况下 页码一直弹出警告窗口？ 谢谢啦！！