仓酷云

 找回密码
 立即注册
搜索
热搜: 活动 交友 discuz
查看: 550|回复: 8
打印 上一主题 下一主题

[学习教程] ASP编程:在ASP中挪用Excel画数据图表

[复制链接]
愤怒的大鸟 该用户已被删除
跳转到指定楼层
楼主
发表于 2015-1-16 23:23:08 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有帐号?立即注册

x
想法是和程序员的想法不一样的.至于为什么.大家去想一想.跟心理学有关的excel|数据|图表在ASP中挪用Excel画数据图表,上风有良多,最凸起的是能够输入多种情势的图形(统共有72种)。以下是我写的一个通用ASP办法挪用Excel画数据图表。

<%
将数据图形化输入
dataArray二维数组
virtualFilePath输入图象文件名(假造路径)
nType显现范例
DiminitType
SubExportPicture(dataArray,virtualFilePath,nType)
DimexcelappAsNewexcel.Application
DimexcelwbkAsexcel.Workbook
DimexcelchtAsexcel.Chart
DimexcelshtAsexcel.Worksheet
Dimidx,idy,ftype,usedData,totalcount,count:count=1
OnErrorResumeNext

Setexcelapp=Server.CreateObject("Excel.Application")
Setexcelwbk=excelapp.Workbooks.Add()
Setexcelcht=excelwbk.Charts.Add()
Setexcelsht=excelwbk.Worksheets.Add()
IfUCase(Right(virtualFilePath,4))=".JPG"OrUCase(Right(virtualFilePath,4))=".JPEG"Then
ftype="jpg"
Else
ftype="gif"
EndIf
initType=nType
Foridx=LBound(dataArray,1)ToUBound(dataArray,1)
Foridy=LBound(dataArray,2)ToUBound(dataArray,2)
excelsht.Cells(idx+1,idy+1)=dataArray(idx,idy)
Next
Next

SetusedData=excelsht.usedRange
excelcht.SeriesCollection.AddusedData

excelcht.HasLegend=True
excelcht.HasTitle=True
excelcht.ChartTitle.Caption="部门员工散布图"
excelcht.ApplyCustomTypenType
excelcht.ExportServer.Mappath(virtualFilePath),ftype
excelsht.CloseFalse
excelwbk.CloseFalse
SetusedData=Nothing
Setexcelcht=Nothing
Setexcelwbk=Nothing
Setexcelapp=Nothing
EndSub
%>
<Selectname="sel"Onchange="changePict()">
<Optionvalue="51">二维柱形图</Option><!--xlColumnClustered
<Optionvalue="52">xlColumnStacked</Option>
<Optionvalue="53">xlColumnStacked100</Option>-->
<Optionvalue="54">三维柱状图</Option><!--xl3DColumnClustered
<Optionvalue="55">xl3DColumnStacked</Option>
<Optionvalue="56">xl3DColumnStacked100</Option>-->
<Optionvalue="57">二维条形图</Option><!--xlBarClustered
<Optionvalue="58">xlBarStacked</Option>
<Optionvalue="59">xlBarStacked100</Option>-->
<Optionvalue="60">三维条状图</Option><!--xl3DBarClustered
<Optionvalue="61">xl3DBarStacked</Option>
<Optionvalue="62">xl3DBarStacked100</Option>-->
<Optionvalue="63">折线图</Option><!--xlLineStacked
<Optionvalue="64">xlLineStacked100</Option>
<Optionvalue="65">xlLineMarkers</Option>
<Optionvalue="66">xlLineMarkersStacked</Option>
<Optionvalue="67">xlLineMarkersStacked100</Option>
<Optionvalue="68">xlPieOfPie</Option>
<Optionvalue="69">xlPieExploded</Option>
<Optionvalue="70">xl3DPieExploded</Option>
<Optionvalue="71">xlBarOfPie</Option>-->
<Optionvalue="72">曲线图</Option><!--xlXYScatterSmooth
<Optionvalue="73">xlXYScatterSmoothNoMarkers</Option>
<Optionvalue="74">xlXYScatterLines</Option>
<Optionvalue="75">xlXYScatterLinesNoMarkers</Option>-->
<Optionvalue="76">折线面积图</Option><!--xlAreaStacked
<Optionvalue="77">xlAreaStacked100</Option>
<Optionvalue="78">xl3DAreaStacked</Option>
<Optionvalue="79">xl3DAreaStacked100</Option>
<Optionvalue="80">xlDoughnutExploded</Option>
<Optionvalue="81">xlRadarMarkers</Option>
<Optionvalue="82">xlRadarFilled</Option>
<Optionvalue="83">xlSurface</Option>
<Optionvalue="84">xlSurfaceWireframe</Option>
<Optionvalue="85">xlSurfaceTopView</Option>
<Optionvalue="86">xlSurfaceTopViewWireframe</Option>
<Optionvalue="15">xlBubble</Option>
<Optionvalue="87">xlBubble3DEffect</Option>
<Optionvalue="88">xlStockHLC</Option>
<Optionvalue="89">xlStockOHLC</Option>
<Optionvalue="90">xlStockVHLC</Option>
<Optionvalue="91">xlStockVOHLC<</p>在实现ERP等高端的ASP应用时,用户需要提供核心的经营资料,需要ASP商有很高的信用度。楼上说交互性不好,太牵强了吧。在微软提供的一套框架中,利用asp做网站,开发效率高,使用人数少,减少不必要的开销。交互性是互动方式,是有开发人员决定的。
简单生活 该用户已被删除
沙发
发表于 2015-1-18 20:52:41 来自手机 | 只看该作者
Application:这个存储服务端的数据,如果不清除,会直到web应用程序结束才清除(例如重启站点)
分手快乐 该用户已被删除
板凳
发表于 2015-1-23 13:37:44 | 只看该作者
多看多学多思。多看一些关于ASP的书籍,一方面可以扩展知识面一方面可以鉴借别人是如何掌握、运用ASP的;多学善于关注别人,向同学老师多多学习,不论知识的大小;多思则是要将学到的知识灵活运用。
蒙在股里 该用户已被删除
地板
发表于 2015-1-31 16:48:21 | 只看该作者
学习ASP其实应该上升到如何学习程序设计这种境界,其实学习程序设计又是接受一种编程思想。比如ASP如何学习,你也许在以前的学习中碰到过。以下我仔细给你说几点:
若天明 该用户已被删除
5#
发表于 2015-2-6 20:36:43 | 只看该作者
代码的可重用性差:由于是面向结构的编程方式,并且混合html,所以可能页面原型修改一点,整个程序都需要修改,更别提代码重用了。
冷月葬花魂 该用户已被删除
6#
发表于 2015-2-18 15:55:20 | 只看该作者
不能只是将它停留在纸上谈兵的程度上。
小妖女 该用户已被删除
7#
发表于 2015-3-6 08:39:45 | 只看该作者
Response:从字面上讲是“响应”,因此这个是服务端向客户端发送东西的,例如Response.Write
透明 该用户已被删除
8#
发表于 2015-3-12 22:40:16 | 只看该作者
我想问如何掌握学习节奏(先学什么再学什么)最好详细点?
乐观 该用户已被删除
9#
发表于 2015-3-20 04:43:56 | 只看该作者
完全不知道到底自己学的是什么。最后,除了教程里面说的几个例子,还是什么都不会。
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|Archiver|手机版|仓酷云 鄂ICP备14007578号-2

GMT+8, 2024-12-23 00:09

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表