|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
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做网站,开发效率高,使用人数少,减少不必要的开销。交互性是互动方式,是有开发人员决定的。 |
|