> Tech > Listing 2

Listing 2

Tech - Par iTPro - 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 gratuitement cette ressource

Comment aborder la sauvegarde moderne ?

Comment aborder la sauvegarde moderne ?

Au-delà de l’effet de « corvée », souvent soulignée par les administrateurs, la sauvegarde moderne est un nouveau concept qui a le potentiel de transformer toute direction des systèmes d’information, quelle que soit sa taille, et d’apporter des réponses fonctionnelles nouvelles pour rendre le service informatique plus efficace. Découvrez comment aborder la sauvegarde moderne

Tech - Par iTPro - Publié le 24 juin 2010