MSOLAP如何进行WEB发布

hahahoo 2005-10-12 07:02:47
msolap.asp文件已经拷贝好了。
问题是如何编辑一个数据提供的页面使远程用户通过excel等访问该页面获得olap的数据。
能否给一个模板？
...全文
459 10 打赏 收藏 转发到动态 举报
写回复
用AI写文章
10 条回复
切换为时间正序
请发表友善的回复…
发表回复
s_phoenix 2006-06-21
  • 打赏
  • 举报
 回复
.NET是不是有什么控件？
solidpanther 2006-04-04
  • 打赏
  • 举报
 回复
就是OWC组件的,你装了office就有了
是pivottable和pivotchart
cobejordan 2006-04-04
  • 打赏
  • 举报
 回复
难怪这么眼熟 :)
solidpanther 2006-04-01
  • 打赏
  • 举报
 回复
excel另存网页是固定的吧
cobejordan 2006-04-01
  • 打赏
  • 举报
 回复
机器猫：
你的页面上嵌的什么控件？
notruiyi 2006-01-04
  • 打赏
  • 举报
 回复
不用,excel可以直接连接对方olap服务
duanduan1122 2005-10-27
  • 打赏
  • 举报
 回复
1. 将Excel另存为网页不就行了,然后发布一下.
2. 在"文件"菜单里面就有.
solidpanther 2005-10-13
  • 打赏
  • 举报
 回复
要启用asp
solidpanther 2005-10-13
  • 打赏
  • 举报
 回复
<script language="vbscript">

Sub SetChartTypeLine()
Dim chConstants
Set chConstants = form1.cht1.Constants
form1.cht1.Charts(0).Type = chConstants.chChartTypeSmoothLineMarkers
End Sub

Sub SetChartTypeColumn()
Dim chConstants
Set chConstants = form1.cht1.Constants
form1.cht1.Charts(0).Type = chConstants.chChartTypecolumnclustered
End Sub

Sub SetChartTypePie()
Dim chConstants
Set chConstants = form1.cht1.Constants
form1.cht1.Charts(0).Type = chConstants.chChartTypePie
End Sub

Sub SetChartTypeArea()
Dim chConstants
Set chConstants = form1.cht1.Constants
form1.cht1.Charts(0).Type = chConstants.chChartTypeArea
End Sub

Sub SetChartTypeColumns()
Dim chConstants
Set chConstants = form1.cht1.Constants
form1.cht1.Charts(0).Type = chConstants.chChartTypeColumnclustered3d
End Sub

Sub ChartButton()
form1.cht1.ExportPicture ("chart" & replace(date & time,":","") &".gif" )
End Sub

Sub PivotButton()
form1.pvt1.ExportPicture ("pivot" & replace(date & time,":","") &".gif")
End Sub
Sub Select1_onchange()
if form1.Select1.value=0 then
SetChartTypeColumn
end if
if form1.Select1.value = 1 then
SetChartTypeLine
end if
if form1.Select1.value = 2 then
SetChartTypePie
end if
if form1.Select1.value = 3 then
SetChartTypeArea
end if
if form1.Select1.value = 4 then
SetChartTypeColumns
end if
End Sub

Sub PivotVideoCube()
cht1.DataSource = PivotTable1
End Sub

Sub Window_onLoad()
PivotVideoCube10()
Form1.Hidden1.value=Form1.pvt1.XMLData
BindChart()
end sub

Sub BindChart()
set chs=Form1.cht1
set c = chs.Constants
' Bind the Chart control to the PivotTable control
set chs.DataSource = Form1.pvt1
set cht=chs.Charts(0)
with cht
.HasLegend=True
.HasTitle = True
'.Title.Caption = "zxd test"
end with
end sub
Sub ok()
msgbox Ccur(123.31123234234)
PivotVideoCube10()

BindChart()
end sub
Sub PivotVideoCube10()
Dim strConnect
strConnect = "Data Source=HTTP://" & form1.text2.value & ";Provider = MSOLAP.2;Initial Catalog =" & form1.text3.value
Form1.pvt1.ConnectionString = strConnect
Form1.pvt1.DisplayFieldList = True
Dim CubeName
Dim aDimName
Dim vDimName
Dim MeasureName
Dim strSource
Dim MyMDXStr


CubeName =Form1.text1.value

strSource = "select FROM " & CubeName
Form1.pvt1.CommandText = strSource
End Sub

Sub Allow_Formatting()
Form1.chs1.AllowPropertyToolbox = True
Form1.chs1.HasSelectionMarks = True
End Sub

sub pvt1_onblur()
form1.Hidden1.value=Form1.pvt1.XMLData
end sub

</script>
<script language="javascript">
function TableView ()
{
if (form1.pvt1.style.display !="none")
{
form1.pvt1.style.display="none"
form1.pvtbtn.style.display="none"
form1.cht1.style.display=""
form1.Select1.style.display=""
form1.chtbtn.style.display=""

form1.btn_tableview.value="透视表";
}
else
{
form1.btn_tableview.value="图表";
form1.pvt1.style.display=""
form1.pvtbtn.style.display=""
form1.cht1.style.display="none"
form1.Select1.style.display="none"
form1.chtbtn.style.display="none"
}
}
function MyFc_TableView1 ()
{
form1.pvt1.style.display=""
form1.pvtbtn.style.display=""
form1.cht1.style.display="none"
form1.Select1.style.display="none"
form1.chtbtn.style.display="none"
}

function MyFc_TableView2 ()
{
form1.pvt1.style.display="none"
form1.pvtbtn.style.display="none"
form1.cht1.style.display=""
form1.Select1.style.display=""
form1.chtbtn.style.display=""
}
function MyFc_TableView3 ()
{
form1.pvt1.style.display=""
form1.pvtbtn.style.display=""
form1.cht1.style.display=""
form1.Select1.style.display=""
form1.chtbtn.style.display=""
}

</script>
</body>
</HTML>
solidpanther 2005-10-13
  • 打赏
  • 举报
 回复
<HTML>
<HEAD>
</HEAD>
<body bgColor="lightgrey" MS_POSITIONING="FlowLayout">
<form id="Form1" method="post" runat="server">
<p align="center"><font style="FONT-SIZE: large"> </font>服务器名称或ip（例如localhost）<input type="text" id="text2"><br>
数据仓库名称（例如foodmart 2000）<input type="text" id="text3"><br>
多维数据集名称（例如sales） <input type="text" id="text1"> <input id="ok123" onclick="ok()" type="button" value="连接cube">
<A onclick="MyFc_TableView1()" href="#">显示透视表</A>   <A onclick="MyFc_TableView2()" href="#">
显示图表</A>   <A onclick="MyFc_TableView3()" href="#">显示全部</A>
<br>
<input id="pvtbtn" onclick="PivotButton()" type="button" value="保存透视表图片">
<OBJECT id="pvt1" style="WIDTH: 100%; HEIGHT: 80%; BACKGROUND-COLOR: blue" height="232"
width="552" classid="clsid:0002E55A-0000-0000-C000-000000000046" VIEWASTEXT>
<PARAM NAME="XMLData" VALUE='<xml xmlns:x="urn:schemas-microsoft-com:office:excel"> <x:PivotTable> <x:OWCVersion>11.0.0.5531 </x:OWCVersion> <x:DisplayScreenTips/> <x:NoAutoFit/> <x:Height>232</x:Height> <x:Width>552</x:Width> <x:CubeProvider>msolap.2</x:CubeProvider> <x:CacheDetails/> <x:PivotView> <x:IsNotFiltered/> </x:PivotView> </x:PivotTable> </xml>'>
</OBJECT>
<INPUT id="Hidden1" type="hidden" name="Hidden1" runat="server">
<br>
<SELECT language="C#" id="Select1" style="WIDTH: 107px" name="Select1" runat="server">
<OPTION value="0" selected>柱图</OPTION>
<OPTION value="1">曲线图</OPTION>
<OPTION value="2">饼图</OPTION>
<OPTION value="3">面积图</OPTION>
<OPTION value="4">三维柱状图</OPTION>
</SELECT>
<input id="chtbtn" onclick="ChartButton()" type="button" value="保存图表图片">
<OBJECT id="cht1" classid="clsid:0002E55D-0000-0000-C000-000000000046" VIEWASTEXT>
<PARAM NAME="XMLData" VALUE='<xml xmlns:x="urn:schemas-microsoft-com:office:excel"> <x:ChartSpace> <x:OWCVersion>11.0.0.5531 </x:OWCVersion> <x:Width>15240</x:Width> <x:Height>10160</x:Height> <x:Palette> <x:Entry>#000000</x:Entry> <x:Entry>#000000</x:Entry> <x:Entry>#000000</x:Entry> <x:Entry>#000000</x:Entry> <x:Entry>#000000</x:Entry> <x:Entry>#000000</x:Entry> <x:Entry>#000000</x:Entry> <x:Entry>#000000</x:Entry> <x:Entry>#000000</x:Entry> <x:Entry>#000000</x:Entry> <x:Entry>#000000</x:Entry> <x:Entry>#000000</x:Entry> <x:Entry>#000000</x:Entry> <x:Entry>#000000</x:Entry> <x:Entry>#000000</x:Entry> <x:Entry>#000000</x:Entry> <x:Entry>#000000</x:Entry> <x:Entry>#000000</x:Entry> <x:Entry>#000000</x:Entry> <x:Entry>#000000</x:Entry> <x:Entry>#000000</x:Entry> <x:Entry>#000000</x:Entry> <x:Entry>#000000</x:Entry> <x:Entry>#000000</x:Entry> <x:Entry>#8080FF</x:Entry> <x:Entry>#802060</x:Entry> <x:Entry>#FFFFA0</x:Entry> <x:Entry>#A0E0E0</x:Entry> <x:Entry>#600080</x:Entry> <x:Entry>#FF8080</x:Entry> <x:Entry>#008080</x:Entry> <x:Entry>#C0C0FF</x:Entry> <x:Entry>#000080</x:Entry> <x:Entry>#FF00FF</x:Entry> <x:Entry>#80FFFF</x:Entry> <x:Entry>#0080FF</x:Entry> <x:Entry>#FF8080</x:Entry> <x:Entry>#C0FF80</x:Entry> <x:Entry>#FFC0FF</x:Entry> <x:Entry>#FF80FF</x:Entry> </x:Palette> <x:DefaultFont>宋体</x:DefaultFont> </x:ChartSpace> </xml>'>
<PARAM NAME="ScreenUpdating" VALUE="-1">
<PARAM NAME="EnableEvents" VALUE="-1">
</OBJECT>
</FONT></form>
过渡到SSAS之二：服务的发布
本章我们介绍如何通过web服务来把分析服务发布到网络中，来供其他客户端联机分析，这些客户端包括SQLServer、ADOMD.NET组件和Excel等工具。 分析服务器上需要安装IIS，我这里是6.0，下面是整个配置过程。 ...
在IIS上部署Analysis Services
3.向IIS添加一个新的WEB服务扩展 指向 msmdpump.dll 4.设置站点为匿名访问，集windows身份验证 以上是服务站点配置，最后服务点,比如： http://192.168.1.253:81/msmdpump.dll 应用程...
SSAS发布到IIS
本章我们介绍如何通过web服务来把分析服务发布到网络中，来供其他客户端联机分析，这些客户端包括SQLServer、ADOMD.NET组件和Excel等工具。    分析服务器上需要安装IIS，我这里是6.0，下面是整个配置过程。
SSAS学习(二)：服务的发布
本章我们介绍如何通过web服务来把分析服务发布到网络中，来供其他客户端联机分析，这些客户端包括SQLServer、ADOMD.NET组件和Excel等工具。    分析服务器上需要安装IIS，我这里是6.0，下面是整个配置过程。 ...
SSAS服务的发布
分析服务器上需要安装IIS，我这里是6.0，下面是整个配置... 2、然后为IIS建立一个web目录，并把上述文件和文件夹copy到web目录中 3、打开iis，配置一个应用程序池 4、名字为TestSSAS其他属性默认 ...
数据仓库

7,388

社区成员

6,742

社区内容

发帖
与我相关
我的任务
社区描述
其他数据库开发 数据仓库
社区管理员
  • 数据仓库
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章