⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 在asp中调用excel画数据图表 .htm

📁 较为详细的介绍了asp自定义的各种函数,方便asp的各种开发.
💻 HTM
字号:
🔍 
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<!-- saved from url=(0055)http://www.51base.com/article/view_article.asp?id=37968 -->
<HTML lang=zh-cn><HEAD><TITLE>NB联盟</TITLE>
<META content="text/html; charset=gb2312" http-equiv=Content-Type><LINK 
href="NB联盟19.files/style.css" rel=stylesheet>
<META content="MSHTML 5.00.2614.3500" name=GENERATOR></HEAD>
<BODY><!-- start page body -->
<TABLE align=center border=0 cellPadding=0 cellSpacing=0 class=td id=position 
width=773>
  <TBODY>
  <TR>
    <TD class=shadow colSpan=2 height=20 width=262>&nbsp;&nbsp;<A 
      href="http://www.51base.com/"><IMG border=0 
      src="NB联盟19.files/logo1.gif"></A> </TD>
    <TD align=right width=505>
      <P align=left></P></TD></TR></TBODY></TABLE>
<TABLE align=center border=0 cellPadding=0 cellSpacing=0 id=main width=770>
  <TBODY>
  <TR>
    <TD class=tdlbr vAlign=top>
      <TABLE align=center border=0 cellPadding=0 cellSpacing=0 id=welcome 
      style="TABLE-LAYOUT: fixed" width="98%">
        <TBODY>
        <TR>
          <TD style="TABLE-LAYOUT: fixed; WORD-BREAK: break-all" 
            vAlign=top><FONT color=red><B>文章标题</B></FONT><FONT color=red><B>: 
            &nbsp;&nbsp;&nbsp;&nbsp;在ASP中调用Excel画数据图表 </B></FONT>
            <HR noShade SIZE=1>
            <BR>
            <P>&nbsp;&nbsp;&nbsp;&nbsp; 
            在ASP中调用Excel画数据图表，优势有很多，最突出的是可以输出多种形式的图形（总共有72种）。以下是我写的一个通用ASP方法调用Excel画数据图表。</P>
            <P>&lt;%<BR>'将数据图形化输出<BR>'dataArray二维数组<BR>'virtualFilePath输出图像文件名(虚拟路径)<BR>'nType显示类型<BR>Dim 
            initType<BR>Sub 
            ExportPicture(dataArray,virtualFilePath,nType)<BR>Dim excelapp ' As 
            New excel.Application<BR>Dim excelwbk ' As excel.Workbook<BR>Dim 
            excelcht ' As excel.Chart<BR>Dim excelsht 'As excel.Worksheet<BR>Dim 
            idx,idy,ftype,usedData,totalcount,count:count = 1<BR>On Error Resume 
            Next<BR><BR>Set excelapp = 
            Server.CreateObject("Excel.Application")<BR>Set excelwbk = 
            excelapp.Workbooks.Add()<BR>Set excelcht = 
            excelwbk.Charts.Add()<BR>Set excelsht = 
            excelwbk.Worksheets.Add()<BR>If UCase(Right(virtualFilePath,4)) = 
            ".JPG" Or UCase(Right(virtualFilePath,4)) = ".JPEG" Then<BR>ftype = 
            "jpg"<BR>Else<BR>ftype = "gif"<BR>End If<BR>initType = nType<BR>For 
            idx=LBound(dataArray,1) To UBound(dataArray,1)<BR>For 
            idy=LBound(dataArray,2) To 
            UBound(dataArray,2)<BR>excelsht.Cells(idx+1,idy+1) = 
            dataArray(idx,idy)<BR>Next<BR>Next<BR><BR>Set usedData = 
            excelsht.usedRange<BR>excelcht.SeriesCollection.Add 
            usedData<BR><BR>excelcht.HasLegend = True<BR>excelcht.HasTitle = 
            True<BR>'excelcht.ChartTitle.Caption = 
            "部门员工分布图"<BR>excelcht.ApplyCustomType nType<BR>excelcht.Export 
            Server.Mappath(virtualFilePath), ftype<BR>excelsht.Close 
            False<BR>excelwbk.Close False<BR>Set usedData = Nothing<BR>Set 
            excelcht = Nothing<BR>Set excelwbk = Nothing<BR>Set excelapp = 
            Nothing<BR>End Sub<BR>%&gt;<BR>&lt;Select name="sel" 
            Onchange="changePict()"&gt;<BR>&lt;Option 
            value="51"&gt;二维柱形图&lt;/Option&gt;&lt;!--xlColumnClustered<BR>&lt;Option 
            value="52"&gt;xlColumnStacked&lt;/Option&gt;<BR>&lt;Option 
            value="53"&gt;xlColumnStacked100&lt;/Option&gt;--&gt;<BR>&lt;Option 
            value="54"&gt;三维柱状图&lt;/Option&gt;&lt;!--xl3DColumnClustered<BR>&lt;Option 
            value="55"&gt;xl3DColumnStacked&lt;/Option&gt;<BR>&lt;Option 
            value="56"&gt;xl3DColumnStacked100&lt;/Option&gt;--&gt;<BR>&lt;Option 
            value="57"&gt;二维条形图&lt;/Option&gt;&lt;!--xlBarClustered<BR>&lt;Option 
            value="58"&gt;xlBarStacked&lt;/Option&gt;<BR>&lt;Option 
            value="59"&gt;xlBarStacked100&lt;/Option&gt;--&gt;<BR>&lt;Option 
            value="60"&gt;三维条状图&lt;/Option&gt;&lt;!--xl3DBarClustered<BR>&lt;Option 
            value="61"&gt;xl3DBarStacked&lt;/Option&gt;<BR>&lt;Option 
            value="62"&gt;xl3DBarStacked100&lt;/Option&gt;--&gt;<BR>&lt;Option 
            value="63"&gt;折线图&lt;/Option&gt;&lt;!--xlLineStacked<BR>&lt;Option 
            value="64"&gt;xlLineStacked100&lt;/Option&gt;<BR>&lt;Option 
            value="65"&gt;xlLineMarkers&lt;/Option&gt;<BR>&lt;Option 
            value="66"&gt;xlLineMarkersStacked&lt;/Option&gt;<BR>&lt;Option 
            value="67"&gt;xlLineMarkersStacked100&lt;/Option&gt;<BR>&lt;Option 
            value="68"&gt;xlPieOfPie&lt;/Option&gt;<BR>&lt;Option 
            value="69"&gt;xlPieExploded&lt;/Option&gt;<BR>&lt;Option 
            value="70"&gt;xl3DPieExploded&lt;/Option&gt;<BR>&lt;Option 
            value="71"&gt;xlBarOfPie&lt;/Option&gt;--&gt;<BR>&lt;Option 
            value="72"&gt;曲线图&lt;/Option&gt;&lt;!--xlXYScatterSmooth<BR>&lt;Option 
            value="73"&gt;xlXYScatterSmoothNoMarkers&lt;/Option&gt;<BR>&lt;Option 
            value="74"&gt;xlXYScatterLines&lt;/Option&gt;<BR>&lt;Option 
            value="75"&gt;xlXYScatterLinesNoMarkers&lt;/Option&gt;--&gt;<BR>&lt;Option 
            value="76"&gt;折线面积图&lt;/Option&gt;&lt;!--xlAreaStacked<BR>&lt;Option 
            value="77"&gt;xlAreaStacked100&lt;/Option&gt;<BR>&lt;Option 
            value="78"&gt;xl3DAreaStacked&lt;/Option&gt;<BR>&lt;Option 
            value="79"&gt;xl3DAreaStacked100&lt;/Option&gt;<BR>&lt;Option 
            value="80"&gt;xlDoughnutExploded&lt;/Option&gt;<BR>&lt;Option 
            value="81"&gt;xlRadarMarkers&lt;/Option&gt;<BR>&lt;Option 
            value="82"&gt;xlRadarFilled&lt;/Option&gt;<BR>&lt;Option 
            value="83"&gt;xlSurface&lt;/Option&gt;<BR>&lt;Option 
            value="84"&gt;xlSurfaceWireframe&lt;/Option&gt;<BR>&lt;Option 
            value="85"&gt;xlSurfaceTopView&lt;/Option&gt;<BR>&lt;Option 
            value="86"&gt;xlSurfaceTopViewWireframe&lt;/Option&gt;<BR>&lt;Option 
            value="15"&gt;xlBubble&lt;/Option&gt;<BR>&lt;Option 
            value="87"&gt;xlBubble3DEffect&lt;/Option&gt;<BR>&lt;Option 
            value="88"&gt;xlStockHLC&lt;/Option&gt;<BR>&lt;Option 
            value="89"&gt;xlStockOHLC&lt;/Option&gt;<BR>&lt;Option 
            value="90"&gt;xlStockVHLC&lt;/Option&gt;<BR>&lt;Option 
            value="91"&gt;xlStockVOHLC&lt;/Option&gt;--&gt;<BR>&lt;Option 
            value="92"&gt;竖向圆柱图&lt;/Option&gt;&lt;!--xlCylinderColClustered<BR>&lt;Option 
            value="93"&gt;xlCylinderColStacked&lt;/Option&gt;<BR>&lt;Option 
            value="94"&gt;xlCylinderColStacked100&lt;/Option&gt;--&gt;<BR>&lt;Option 
            value="95"&gt;横向圆柱图&lt;/Option&gt;&lt;!--xlCylinderBarClustered<BR>&lt;Option 
            value="96"&gt;xlCylinderBarStacked&lt;/Option&gt;<BR>&lt;Option 
            value="97"&gt;xlCylinderBarStacked100&lt;/Option&gt;<BR>&lt;Option 
            value="98"&gt;xlCylinderCol&lt;/Option&gt;<BR>&lt;Option 
            value="99"&gt;xlConeColClustered&lt;/Option&gt;<BR>&lt;Option 
            value="100"&gt;xlConeColStacked&lt;/Option&gt;<BR>&lt;Option 
            value="101"&gt;xlConeColStacked100&lt;/Option&gt;<BR>&lt;Option 
            value="102"&gt;xlConeBarClustered&lt;/Option&gt;<BR>&lt;Option 
            value="103"&gt;xlConeBarStacked&lt;/Option&gt;<BR>&lt;Option 
            value="104"&gt;xlConeBarStacked100&lt;/Option&gt;<BR>&lt;Option 
            value="105"&gt;xlConeCol&lt;/Option&gt;<BR>&lt;Option 
            value="106"&gt;xlPyramidColClustered&lt;/Option&gt;<BR>&lt;Option 
            value="107"&gt;xlPyramidColStacked&lt;/Option&gt;<BR>&lt;Option 
            value="108"&gt;xlPyramidColStacked100&lt;/Option&gt;<BR>&lt;Option 
            value="109"&gt;xlPyramidBarClustered&lt;/Option&gt;<BR>&lt;Option 
            value="110"&gt;xlPyramidBarStacked&lt;/Option&gt;<BR>&lt;Option 
            value="111"&gt;xlPyramidBarStacked100&lt;/Option&gt;<BR>&lt;Option 
            value="112"&gt;xlPyramidCol&lt;/Option&gt;<BR>&lt;Option 
            value="-4100"&gt;xl3DColumn&lt;/Option&gt;<BR>&lt;Option 
            value="4"&gt;xlLine&lt;/Option&gt;<BR>&lt;Option 
            value="-4101"&gt;xl3DLine&lt;/Option&gt;--&gt;<BR>&lt;Option 
            value="-4102"&gt;饼图&lt;/Option&gt;&lt;!--xl3DPie--&gt;<BR>&lt;Option 
            value="5"&gt;扇面图&lt;/Option&gt;&lt;!--xlPie<BR>&lt;Option 
            value="-4169"&gt;xlXYScatter&lt;/Option&gt;<BR>&lt;Option 
            value="-4098"&gt;xl3DArea&lt;/Option&gt;<BR>&lt;Option 
            value="1"&gt;xlArea&lt;/Option&gt;--&gt;<BR>&lt;Option 
            value="-4120"&gt;圆环图&lt;/Option&gt;&lt;!--xlDoughnut--&gt;<BR>&lt;Option 
            value="-4151"&gt;雷达图&lt;/Option&gt;&lt;!--xlRadar--&gt;<BR>&lt;/Select&gt;<BR>&lt;Script 
            language=javascript&gt;<BR>function initMenu(formobj)<BR>{<BR>var 
            nType="&lt;%=initType%&gt;";<BR>var 
            i;<BR>for(i=0;i&lt;formobj.sel.options.length;i++)<BR>{<BR>if(formobj.sel.options[i].value==nType)<BR>{<BR>formobj.sel.options[i].selected=true;<BR>break;<BR>}<BR>}<BR>}<BR>&lt;/Script&gt;</P>
            <P>&nbsp;&nbsp;&nbsp;&nbsp; 
            把以上代码存成一个通用文件，命名为DataToChart.asp，再写一个调用的文件代码如下：</P>
            <P>&lt;%<BR>Response.ContentType="text/html;Charset=GB2312;"<BR>Randomize<BR>Dim 
            dbrest,DBConn,photoPath,pidx,count,nnType:nnType=Request.Form("sel")<BR>Set 
            DBConn=Session("DBConn")<BR>Dim dArray()<BR><BR>If Not 
            IsNumeric(nnType) Or IsEmpty(nnType) Or nnType="" 
            Then<BR>nnType=51<BR>End If<BR>Set dbrest = 
            Server.CreateObject("ADODB.Recordset")<BR>dbrest.Open "Select 
            Count(Organization.OrgId) From Org_User Right Join Organization On 
            Org_User.OrgID=Organization.OrgID", DBConn, 1, 3<BR>count = 
            dbrest(0)<BR>dbrest.close<BR>If count&lt;1 Then<BR>count = 1<BR>End 
            If<BR>dbrest.Open "Select OrgName,Count(Org_User.OrgId) From 
            Org_User Right Join Organization On 
            Org_User.OrgID=Organization.OrgID Group by 
            Organization.OrgID,orgName", DBConn, 1, 3<BR>ReDim 
            dArray(1,dbrest.RecordCount-1)<BR>pidx=0<BR>While Not 
            dbrest.EOF<BR>dArray(0,pidx) = dbrest(0) &amp; "(" &amp; 
            FormatPercent(dbrest(1)/count) &amp; ")"<BR>dArray(1,pidx) = 
            dbrest(1)<BR>pidx = pidx + 
            1<BR>dbrest.MoveNext<BR>Wend<BR>dbrest.Close<BR>Set 
            dbrest=Nothing<BR>photoPath = 
            "./../../Chinese/Working/TempPhoto/HRM_" &amp; Session("UserID") 
            &amp; ".gif"<BR>Call 
            ExportPicture(dArray,photoPath,nnType)<BR>%&gt;<BR><BR>&lt;html&gt;<BR>&lt;head&gt;&lt;title&gt;部门员工分布图&lt;/title&gt;&lt;/head&gt;<BR>&lt;body&gt;<BR>&lt;Table 
            align=center&gt;<BR>&lt;form name="form1" 
            method=post&gt;<BR>&lt;Tr&gt;<BR>&lt;Td&gt;<BR>&lt;!--#include 
            file="DataToChart.asp"--&gt;&nbsp;<BR>&lt;/Td&gt;<BR>&lt;/Tr&gt;<BR>&lt;Tr&gt;<BR>&lt;Td 
            align=center&gt;<BR>&lt;img 
            src="&lt;%=photoPath%&gt;?abc=&lt;%=rnd()%&gt;" 
            border=0&gt;<BR>&lt;/Td&gt;<BR>&lt;/Tr&gt;<BR>&lt;/form&gt;<BR>&lt;/Table&gt;<BR>&lt;Script 
            language=javascript&gt;<BR>function 
            changePict()<BR>{<BR>document.form1.action="./../../Chinese/HRM/Dept_Chart.asp?sel=1&amp;"+Date();<BR>document.form1.submit();<BR>}<BR>initMenu(document.form1);<BR>&lt;/Script&gt;<BR>&lt;/body&gt;<BR>&lt;/html&gt;</P>
            <P>&nbsp;&nbsp;&nbsp; 
            以上是调用Excel画数据图表的通用方法，各位有好的建议请发邮件给我：zlyperson@163.net</P><BR></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE><BR>
<TABLE align=center border=0 cellPadding=2 cellSpacing=0 id=footer width=770>
  <TBODY>
  <TR>
    <TD align=middle class=tdt>
      <P align=center></P></TD></TR></TBODY></TABLE><BR></BODY></HTML>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -