当前位置: 首页 > 图文教程 > 网络编程 > ASP > 利用OWC服务器端组件动态生成图表

ASP
使用组件搜索
检查sql字符串中是否有单引号,有则进行转化.
判断文章中文字符数量
转换html代码子程序
简单的检查输入email是否合法程序
检查来访IP是否合法的实际应用
如何使用asp创建dsn
如何用asp进行base64加密
在ASP+中使用Cookie
asp+ 如何跨站抓取页面
在Asp中不借助第三方组件抓取别的站点的页面
如何在网页中变化图象(速度无延迟)
利用OWC服务器端组件动态生成图表
实现聊天室在线人员无刷新所需要的javascript技术 - 1
实现聊天室在线人员无刷新所需要的javascript技术 - 2
实现聊天室在线人员无刷新所需要的javascript技术 - 3
精彩ASP-镜象站点速度测试
在JSP、ASP和PHP网站网页中使用XHTML
ADO如何善用RecordSet组件呢？
ADO如何新增修改刪除数据库的资料呢？

No. « 181 182 183 184 »

技术文章搜索

关键字

ASP 中的 利用OWC服务器端组件动态生成图表

出处:互联网   整理: 软晨网（RuanChen.com）   发布: 2009-11-03   浏览: 42 ::
收藏到网摘: n/a

  以前在这里也曾经有一些文章谈到了在ASP中生成动态图表的问题，但那些文章中所谈到的一些方法都有某些方面的限制，如需要在客户端安装office2000或安装OWC，有些则可能在Intranet中使用时没什么问题，但在通过Internet访问的时候，就可能出现无法正常工作的现象（这主要和SQL Server的安全设置有关）。那么，我们如何来避免这些问题呢？有一个很好的方法，就是将在ASP中生成的图表转换成图片文件保存在服务器上，这样用户最终看到的是GIF图片格式的图表，我想现在的任何一种浏览器在观看GIF图片的时候都没什么问题吧。：）也许唯一可能的问题就是如何对这些生成的临时图片文件的处理问题，关于这个问题在最后我们会讨论。
下面我们会用一个具体的实例来说明这种方法。程序的测试环境为：
NT4.0(SP5)+IIS4.0+SQL Server7.0+IE5.0,要运行下面的ASP程序，请将下面的代码Copy，保存到你的一个虚拟目录中，在这个虚拟目录中建立一个子目录tmp（你可能修改代码中的路径以符合自己的路径），在IIS中设置read权限即可，注意了，在NT上你必须设置此tmp目录对IUSR_servername用户至少有Change的权限。建立一个pubs的DSN指向SQL Server的pubs数据库。
以下是代码：
chart.asp
<%
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>
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>利用OWC动态生成图表</title>
</head>

<body>
<%
set m_cspace = server.CreateObject("OWC.Chart")
set DSC = server.CreateObject("OWC.DataSourceControl")
DSC.ConnectionString = "D