> Tech > Listing 1

Listing 1

Tech - Par iTPro - Publié le 24 juin 2010
email

Page drillthrough.asp qui affiche des données détaillées

<%@ Language=VBScript %>
<%
‘ ASP page displays DRILLTHROUGH data.
Response.Buffer=True
Response.Expires=à˜
%>

<html>
<head>
<meta NAME=”GENERATOR” Content=”Microsoft Visual Studio 6.à˜”>
</head>
<body bgcolor=”Ivory”>
<font FACE=”Verdana” size=2>
<h2>Detail Data</h2>

<%
‘ Print the table.
Sub PrintTable()
  %>
  <TABLE border=1 width=1à˜à˜%>
  <% For

i = à˜ to rs.Fields.Count – 1 %>
<TH><font size=-2><% =rs.Fields(i).Name %></font></TH>
<% Next %>
<% Do While Not rs.EOF %>
<TR>
<% For i = à˜ to rs.Fields.Count – 1 %>
<TD><FONT size=-2><% =rs(i).Value %></FONT></TH>
<% Next %>
</TR>
<% rs.MoveNext
Loop %>
</TABLE> <%
End Sub

‘ Set connection objects for the multidimensional catalog and
‘ cellset.
Set cat = Server.CreateObject(“ADOMD.Catalog”)
Set rs = Server.CreateObject(“ADODB.Recordset”)

‘ Check to see whether the Session object Server Name is present.
If Len(Session(“ServerName”)) > à˜ Then
cat.ActiveConnection = “Data Source=” &
Session(“ServerName”) & “;Initial Catalog=” &
Session(“InitialCatalog”) & “;Provider=msolap;”
strSource = “DRILLTHROUGH MAXROWS 5à˜à˜à˜ “
strSource = strSource & “SELECT {“ & Request(“colName”) &
“} ON COLUMNS,”
strSource = strSource & “{“ & Request(“rowName”) & “}
ON ROWS “
strSource = strSource & “ FROM “ & Request(“cube”)
strSource = strSource & “ “ & Request(“Where”)

‘ Get the recordset.
Response.Write strSource
Set rs = cat.ActiveConnection.Execute(strSource)

Do While Not rs Is Nothing
Call PrintTable
‘ Look for data from the next partition.
Set rs = rs.NextRecordset
Loop

set rs = nothing
set cat = nothing

Else
Response.Write “This page cannot be called by itself.”
End If
%>

</font>
</body>
</html>

Téléchargez cette ressource

Guide de Threat Intelligence : quand, quoi et comment ?

Guide de Threat Intelligence : quand, quoi et comment ?

La Threat Intelligence (TI) rassemble des données, des informations et des analyses détaillées, dans le but de fournir aux RSSI des informations pertinentes, précises et exploitables pour lutter contre les attaques et d'autres problèmes liés à la cybersécurité. Découvrez dans ce Guide comment maximiser les bénéfices de la TI pour votre organisation.

Tech - Par iTPro - Publié le 24 juin 2010