39 lines
1.0 KiB
HTML
39 lines
1.0 KiB
HTML
<html><head><title>Default MFC Web Server Extension</title>
|
|
<SCRIPT LANGUAGE="VBS">
|
|
<!--
|
|
Dim g_intTimer
|
|
-->
|
|
</SCRIPT>
|
|
</head>
|
|
<body BGCOLOR=#bfbfbf><!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML//EN">
|
|
<body Language="VBScript">
|
|
<OBJECT
|
|
id="Viewer"
|
|
type="application/x-oleobject"
|
|
classid="clsid:5b3572ab-d344-11CF-99cb-00c04fd64497"
|
|
codebase="WBEMTool.cab#Version=-1,-1,-1,-1"
|
|
width=100%
|
|
height=100%
|
|
>
|
|
<PARAM NAME="StudioModeEnabled" VALUE="false">
|
|
</OBJECT>
|
|
|
|
|
|
<SCRIPT LANGUAGE="VBS">
|
|
<!--
|
|
Sub Viewer_GetIWbemServices(lpctstrNamespace, bUpdatePointer, lpsc, lppServices, lpbUserCancel)
|
|
top.banner_frame.Security.GetIWbemServices lpctstrNamespace, bUpdatePointer, lpsc, lppServices, lpbUserCancel
|
|
End Sub
|
|
|
|
Sub CatchUnload()
|
|
Viewer.SaveState true, false
|
|
End Sub
|
|
|
|
Sub Viewer_NOTIFYChangeRootOrNamespace(lpctstrRootOrNamespace, bChangeNamespace, bEchoSelectObject)
|
|
top.frames("navigator_frame").InstNavigator.ChangeRootOrNamespace lpctstrRootOrNamespace, bChangeNamespace, bEchoSelectObject
|
|
End Sub
|
|
-->
|
|
</SCRIPT>
|
|
</body>
|
|
</html>
|