急 asp中如何用owc画图啊
日期：2014-05-17 浏览次数：21112 次
急!急!急! asp中怎么用owc画图啊?
我用的是OWC11
在创建对象的时候出错了，是不是还要装其他东东才能使用OWC啊？？？？？？？？
具体代码如下(出错行已标出):
<% Option Explicit %>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN ">
<HTML>
<HEAD>
<meta http-equiv=content-type content= "text/html; charset=gb2312 ">
<TITLE> 利用OWC画图的例子 </TITLE>
<%
Function ExportChartToGIF(objCSpace, strAbsFilePath, strRelFilePath)
Dim strFileName
Randomize
strFileName = Timer & Rnd & ".gif "
objCSpace.ExportPicture strAbsFilePath & " " & strFileName, "gif ", 600, 350
ExportChartToGIF = strRelFilePath & "/ " & strFileName
End Function
Sub CleanUpGIF(GIFpath)
Dim objFS
Dim objFolder
Dim gif
set objFS = Server.CreateObject( "Scripting.FileSystemObject ")
set objFolder = objFS.GetFolder(GIFpath)
for each gif in objFolder.Files
if instr(gif.Name, ".gif ") > 0 and DateDiff( "n ", gif.DateLastModified, now) > 10 then
objFS.DeleteFile GIFpath & " " & gif.Name, True
end if
next
set objFolder = nothing
set objFS = nothing
End Sub
%>
</HEAD>
<BODY BGCOLOR= "#FFFFFF ">
<%
dim objChartSpace
dim objChart
dim objSeries
dim objConn
dim objRS
dim c
dim series
dim strChartAbsPath
dim strChartRelPath
dim strChartFile
strChartAbsPath = Server.MapPath( "/mypath/temp ")
strChartRelPath = "temp "
set objChartSpace = server.CreateObject( "OWC.Chart ") ' 本行出错 本行出错 本行出错
set objChart = objChartSpace.Charts.Add()
set c = objChartSpace.Constants
objChart.Type = c.chChartTypeLineMarkers
objChart.HasLegend = True
set objConn = Server.CreateObject( "ADODB.Connection ")
objConn.Open "provider=sqloledb;data source=myserver;initial catalog=testdb;user id=myuid;password=mypswd; "
set objRS = Server.CreateObject( "ADODB.Recordset ")
set &
我用的是OWC11
在创建对象的时候出错了，是不是还要装其他东东才能使用OWC啊？？？？？？？？
具体代码如下(出错行已标出):
<% Option Explicit %>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN ">
<HTML>
<HEAD>
<meta http-equiv=content-type content= "text/html; charset=gb2312 ">
<TITLE> 利用OWC画图的例子 </TITLE>
<%
Function ExportChartToGIF(objCSpace, strAbsFilePath, strRelFilePath)
Dim strFileName
Randomize
strFileName = Timer & Rnd & ".gif "
objCSpace.ExportPicture strAbsFilePath & " " & strFileName, "gif ", 600, 350
ExportChartToGIF = strRelFilePath & "/ " & strFileName
End Function
Sub CleanUpGIF(GIFpath)
Dim objFS
Dim objFolder
Dim gif
set objFS = Server.CreateObject( "Scripting.FileSystemObject ")
set objFolder = objFS.GetFolder(GIFpath)
for each gif in objFolder.Files
if instr(gif.Name, ".gif ") > 0 and DateDiff( "n ", gif.DateLastModified, now) > 10 then
objFS.DeleteFile GIFpath & " " & gif.Name, True
end if
next
set objFolder = nothing
set objFS = nothing
End Sub
%>
</HEAD>
<BODY BGCOLOR= "#FFFFFF ">
<%
dim objChartSpace
dim objChart
dim objSeries
dim objConn
dim objRS
dim c
dim series
dim strChartAbsPath
dim strChartRelPath
dim strChartFile
strChartAbsPath = Server.MapPath( "/mypath/temp ")
strChartRelPath = "temp "
set objChartSpace = server.CreateObject( "OWC.Chart ") ' 本行出错 本行出错 本行出错
set objChart = objChartSpace.Charts.Add()
set c = objChartSpace.Constants
objChart.Type = c.chChartTypeLineMarkers
objChart.HasLegend = True
set objConn = Server.CreateObject( "ADODB.Connection ")
objConn.Open "provider=sqloledb;data source=myserver;initial catalog=testdb;user id=myuid;password=mypswd; "
set objRS = Server.CreateObject( "ADODB.Recordset ")
set &
免责声明： 本文仅代表作者个人观点，与爱易网无关。其原创性以及文中陈述文字和内容未经本站证实，对本文以及其中全部或者部分内容、文字的真实性、完整性、及时性本站不作任何保证或承诺，请读者仅作参考，并请自行核实相关内容。
