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

ASP
ASP调用ORACLE存储过程并返回结果集
用ASP实现网页BBS
关于Global.asa文件的深入研究与session变量失效提示的具体方法
简易ASP+注册系统
防护手册：如何防止ASP木马在服务器上运行
用Visual Basic实现多画面播放功能之二
如何增强ASP程序性能(1)
如何增强ASP程序性能(2)
如何增强ASP程序性能(3)
ASP备份数据库
二十八条改善 ASP 性能和外观的技巧
在Form域中Post大于100K的数据
如何使用ASP制作模似动态生长的表单?
Microsoft IIS 真的如此「不安全」吗？(1)
Microsoft IIS 真的如此「不安全」吗？(2)
Microsoft IIS 真的如此「不安全」吗？(3)
Microsoft IIS 真的如此「不安全」吗？(4)
Microsoft IIS 真的如此「不安全」吗？(5)
关于页面和代码分离
ServerVariables 对路径的操作

No. « 135 136 137 138 »

技术文章搜索

关键字

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

出处:互联网   整理: 软晨网（RuanChen.com）   发布: 2009-11-03   浏览: 127 ::
收藏到网摘: 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