<%@ Language=VBScript CODEPAGE=65001 %> <% '+------------------------------------------------------------------------- ' ' Microsoft Windows Media ' Copyright (C) Microsoft Corporation. All rights reserved. ' ' File: ContextSample.asp ' ' Contents: ' '-------------------------------------------------------------------------- ConnectToPlugin ConnectToPluginAdmin BeginErrorHandling Dim bError Dim strOutputPath Dim bUserContext Dim bPresContext Dim bCmdReqContext Dim bCmdResponseContext Dim dwContextTypes 'typedef [public] enum WMS_CONTEXT_PLUGIN_CONTEXT_TYPE Const WMS_CONTEXT_PLUGIN_NO_CONTEXT = 0 Const WMS_CONTEXT_PLUGIN_USER_CONTEXT = 1 Const WMS_CONTEXT_PLUGIN_PRESENTATION_CONTEXT = 2 Const WMS_CONTEXT_PLUGIN_COMMAND_REQUEST_CONTEXT = 4 Const WMS_CONTEXT_PLUGIN_COMMAND_RESPONSE_CONTEXT = 8 strOutputPath = g_objPluginAdmin.OutputPath dwContextTypes = g_objPluginAdmin.ContextTypes bUserContext = CBool( 0 <> ( WMS_CONTEXT_PLUGIN_USER_CONTEXT and dwContextTypes ) ) bPresContext = CBool( 0 <> ( WMS_CONTEXT_PLUGIN_PRESENTATION_CONTEXT and dwContextTypes ) ) bCmdReqContext = CBool( 0 <> ( WMS_CONTEXT_PLUGIN_COMMAND_REQUEST_CONTEXT and dwContextTypes ) ) bCmdResponseContext = CBool( 0 <> ( WMS_CONTEXT_PLUGIN_COMMAND_RESPONSE_CONTEXT and dwContextTypes ) ) dwTabIndex = 0 HandlePluginLoadingChanges() on error resume next Dim szOp szOp = trim( posting( "submit" ) ) if( 0 < Len( szOp ) ) then Do strOutputPath = CStr( trim( posting( "outputPath" ) ) ) if( 0 <> StrComp( g_objPluginAdmin.OutputPath, strOutputPath, vbTextCompare ) ) then g_objPluginAdmin.OutputPath = strOutputPath if( ErrorDetected( "outputPath" ) ) then exit Do end if end if Dim dwNewContextTypes dwNewContextTypes = WMS_CONTEXT_PLUGIN_NO_CONTEXT bUserContext = CBool( "" <> posting( "userContext" ) ) if( bUserContext ) then dwNewContextTypes = WMS_CONTEXT_PLUGIN_USER_CONTEXT end if bPresContext = CBool( "" <> posting( "presContext" ) ) if( bPresContext ) then dwNewContextTypes = CInt( dwNewContextTypes or WMS_CONTEXT_PLUGIN_PRESENTATION_CONTEXT ) end if bCmdReqContext = CBool( "" <> posting( "cmdRequest" ) ) if( bCmdReqContext ) then dwNewContextTypes = CInt( dwNewContextTypes or WMS_CONTEXT_PLUGIN_COMMAND_REQUEST_CONTEXT ) end if bCmdResponseContext = CBool( "" <> posting( "cmdResponse" ) ) if( bCmdResponseContext ) then dwNewContextTypes = CInt( dwNewContextTypes or WMS_CONTEXT_PLUGIN_COMMAND_RESPONSE_CONTEXT ) end if if( dwNewContextTypes <> dwContextTypes ) then g_objPluginAdmin.ContextTypes = dwNewContextTypes end if if ( 0 = Session( "ErrorNumber" ) ) then if( "" <> g_strEncodedPubPointName ) then Response.Redirect "../pubpoints/pubpoint_props.asp?server=" & g_strQueryStringServer & "&ppID=" & g_strPubPointID & "&category=" & g_strCategory & "&pluginIndex=" & qs("pluginIndex") else Response.Redirect "../server_props.asp?server=" & g_strQueryStringServer & "&category=" & g_strCategory & "&pluginIndex=" & qs("pluginIndex") end if end if Loop Until TRUE end if WriteHTMLHeader( g_strDecodedServerName ) %> "> <% WritePluginJSUtils %> <% DrawPluginBanner %>

<% WriteStdPluginForm %>

<% RenderWithErrorCheck Server.HTMLEncode( "Output Path:" ), "outputPath" %>

<% dwTabIndex = dwTabIndex + 1 %> >

Context types to show:

<% dwTabIndex = dwTabIndex + 1 %> checked<% end if %> tabindex=<%= dwTabIndex %> > User Context

<% dwTabIndex = dwTabIndex + 1 %> checked<% end if %> tabindex=<%= dwTabIndex %> > Presentation Context

<% dwTabIndex = dwTabIndex + 1 %> checked<% end if %> tabindex=<%= dwTabIndex %> > Command Request Context

<% dwTabIndex = dwTabIndex + 1 %> checked<% end if %> tabindex=<%= dwTabIndex %> > Command Response Context

<% dwTabIndex = dwTabIndex + 1 %> > <% dwTabIndex = dwTabIndex + 1 %> > <% dwTabIndex = dwTabIndex + 1 %>

<% RenderPluginLoadingOptions() %> <% AlertUserWithPopupErrorDialog OnErrorGoBack DrawStdFooter %> <% LatchCurrentPage "plugins/ContextSample.asp", qs EndErrorHandling "ContextSample.asp" on error resume next PluginsASPCleanup %>