我已安装owc，但是一运行下面的程序就提示“Server.CreateObject 失败”

老白老白了 2005-07-11 10:13:05

我已安装owc，但是一运行下面的程序就提示“Server.CreateObject 失败”，是组件没有注册成功吗？

网上找到的程序：

<%
Function ExportChartToGIF(cspace)
Dim fso
Dim sFilePath
Dim sFileName

'生成临时文件的文件名
set fso = CreateObject("Scripting.FileSystemObject")
sFilePath = Request.ServerVariables("PATH_TRANSLATED")
sFilePath = left(sFilePath, InStrRev(sFilePath, ""))
sFilePath = sFilePath & "tmp"
sFileName = fso.GetTempName()
sFileName = sFileName & ".gif"
set fso=nothing
'将chart转换成GIF文件保存在临时目录
m_cspace.ExportPicture sFilePath & sFileName, "gif", 200, 150

'将生成的临时图片报存在session中以便于删除
Session("TC:" & sFilePath & sFileName) = sFilePath & sFileName
ExportChartToGIF = sFileName
End Function

Sub BindChartToDSC(cspace, dsc, sRSName, sCategories, sValues)
Dim cht
Dim ser

set c = cspace.Constants

cspace.Clear

' 绑定数据源
set cspace.DataSource = dsc

cspace.DataMember = sRSName

set cht = cspace.Charts.Add()
cht.HasLegend = True
cht.Type = c.chChartTypePie

set ser = cht.SeriesCollection.Add()
ser.SetData c.chDimCategories, 0, sCategories
ser.SetData c.chDimValues, 0, sValues

set dls = ser.DataLabelsCollection.Add()
dls.HasPercentage = True
dls.HasValue = False

End Sub
%>
<html>

<head>

<title>利用OWC动态生成图表</title>
</head>

<body>
<%
set m_cspace = server.CreateObject("OWC.Chart") '=======就在这里出错========
set DSC = server.CreateObject("OWC.DataSourceControl")
DSC.ConnectionString = "DSN=pubs;uid=sa;password=168"
DSC.RecordsetDefs.AddNew "select distinct state,num=COUNT(*) FROM authors GROUP BY state",DSC.Constants.dscCommandText,"ChartData"
BindChartToDSC m_cspace, DSC, "ChartData", "state", "num"
m_sFilePath = ExportChartToGIF(m_cspace)
set m_cspace=nothing
set m_cht=nothing
%>

<br><br>
<img src="tmp/<%= m_sFilePath %>">
</BODY>
</HTML>

...全文

186 7 打赏收藏转发到动态举报

写回复

用AI写文章

7 条回复

切换为时间正序

请发表友善的回复…

发表回复

mymyal123 2005-07-11

打赏
举报

重新注册组件

老白老白了 2005-07-11

打赏
举报

up，各位请告诉我如何正确注册owc,谢谢

老白老白了 2005-07-11

打赏
举报

必须要有微软的许可协议才可以使用owc吗？

孟子E章 2005-07-11

打赏
举报

是的，

http://www.4guysfromrolla.com/webtech/022101-1.shtml

老白老白了 2005-07-11

打赏
举报

完整的错误提示如下：

Microsoft VBScript 编译器错误错误 '800a03f6'

缺少 'End'

/iisHelp/common/500-100.asp，行242

服务器对象错误 'ASP 0177 : 800401f3'

Server.CreateObject 失败

/test/char.asp，行59

无效的 ProgID。若要获取关于此消息的更多的信息，请访问 Microsoft 联机支持站点: http://www.microsoft.com/contentredirect.asp 。

mysqlaping 2005-07-11