> 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 gratuitement cette ressource

TOP 5 Modernisation & Sécurité des Postes Clients

TOP 5 Modernisation & Sécurité des Postes Clients

Pour aider les entreprises à allier les restrictions liées à la crise et la nécessaire modernisation de leurs outils pour gagner en réactivité, souplesse et sécurité, DIB-France lance une nouvelle offre « Cloud-In-One » combinant simplement IaaS et DaaS dans le Cloud, de façon augmentée.

Tech - Par iTPro - Publié le 24 juin 2010