ASP编程：在ASP中挪用Excel画数据图表
想法是和程序员的想法不一样的.至于为什么.大家去想一想.跟心理学有关的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做网站，开发效率高，使用人数少，减少不必要的开销。交互性是互动方式，是有开发人员决定的。 Application:这个存储服务端的数据，如果不清除，会直到web应用程序结束才清除(例如重启站点) 多看多学多思。多看一些关于ASP的书籍，一方面可以扩展知识面一方面可以鉴借别人是如何掌握、运用ASP的;多学善于关注别人，向同学老师多多学习，不论知识的大小;多思则是要将学到的知识灵活运用。 学习ASP其实应该上升到如何学习程序设计这种境界，其实学习程序设计又是接受一种编程思想。比如ASP如何学习，你也许在以前的学习中碰到过。以下我仔细给你说几点: 代码的可重用性差：由于是面向结构的编程方式，并且混合html，所以可能页面原型修改一点，整个程序都需要修改，更别提代码重用了。 不能只是将它停留在纸上谈兵的程度上。 Response:从字面上讲是“响应”，因此这个是服务端向客户端发送东西的，例如Response.Write 我想问如何掌握学习节奏(先学什么再学什么)最好详细点? 完全不知道到底自己学的是什么。最后，除了教程里面说的几个例子，还是什么都不会。
页:
[1]