> Tech > Listing 2

Listing 2

Tech - Par Renaud ROSSET - Publié le 24 juin 2010
email

Procédure DisplayURLAction et constantes associées

<%
Dim intActionID
Const MDACTION_TYPE_ALL = à˜
Const MDACTION_TYPE_URL = 1
Const MDACTION_TYPE_HTML = 2
Const MDACTION_TYPE_STATEMENT = 4
Const MDACTION_TYPE_DATASET = 8
Const MDACTION_TYPE_ROWSET = 1à˜
Const MDACTION_TYPE_COMMANDLINE = 2à˜
Const MDACTION_TYPE_PROPRIETARY = 4à˜
Const MDACTION_COORDINATE_CUBE = 1
Const MDACTION_COORDINATE_DIMENSION = 2

Const MDACTION_COORDINATE_LEVEL = 3
Const MDACTION_COORDINATE_MEMBER = 4
Const MDACTION_COORDINATE_SET = 5
Const MDACTION_COORDINATE_CELL = 6

Const adSchemaActions = 41

Sub DisplayURLAction(strMemberName)

Set rst = cat.ActiveConnection.OpenSchema(adSchemaActions, _
Array(“”, “”, “Enrollment”, “”, MDACTION_TYPE_URL, strMemberName, _
MDACTION_COORDINATE_MEMBER))

If Not (rst.EOF And rst.BOF) Then
intActionID = intActionID + 1 %>
<IMG id=”URLAction_<% =intActionID %>” src=”images/Action.gif”
style=”cursor:hand” onClick=”ShowActions ‘URLAction_<% =intActionID %>_item’”>

<%
Do While Not rst.EOF
%>

<table id=”URLAction_<% =intActionID %>_item” class=clsActionMenu>
<tr><td class=ActionMenuItem onClick=”InvokeURLAction ‘<% =rst(“CONTENT”) %>’,
‘URLAction_<% =intActionID %>_item’”><% =rst(“ACTION_NAME”) %></td></tr>
</table>

<%
rst.MoveNext
Loop
End If
End Sub
%>

Téléchargez cette ressource

État des lieux de la réponse à incident de cybersécurité

État des lieux de la réponse à incident de cybersécurité

Les experts de Palo Alto Networks, Unit 42 et Forrester Research livrent dans ce webinaire exclusif leurs éclairages et stratégies en matière de réponses aux incidents. Bénéficiez d'un panorama complet du paysage actuel de la réponse aux incidents et de sa relation avec la continuité de l'activité, des défis auxquels font face les entreprises et des tendances majeures qui modèlent ce domaine. Un état des lieux précieux pour les décideurs et professionnels IT.

Tech - Par Renaud ROSSET - Publié le 24 juin 2010