• 企业400电话
  • 微网小程序
  • AI电话机器人
  • 电商代运营
  • 全 部 栏 目

    企业400电话 网络优化推广 AI电话机器人 呼叫中心 网站建设 商标✡知产 微网小程序 电商运营 彩铃•短信 增值拓展业务
    ASP生成柱型体,折线图,饼图源代码提供了第1/3页
    ASP生成柱型体,折线图,饼图源代码
    %
    function table2(total,table_x,table_y,all_width,all_height,line_no)
    '参数含义(传递的数组,横坐标,纵坐标,图表的宽度,图表的高度,折线条数)
    '纯ASP代码生成图表函数2——折线图
    '作者:龚鸣(Passwordgm) QQ:25968152 MSN:passwordgm@sina.com Email:passwordgm@sina.com
    '本人非常愿意和ASP,VML,FLASH的爱好者在HTTP://topclouds.126.com进行交流和探讨
    '版本1.0 最后修改日期 2003-8-11
    '非常感谢您使用这个函数,请您使用和转载时保留版权信息,这是对作者工作的最好的尊重。

    line_color="#69f"
    left_width=70
    total_no=ubound(total,1)

    temp1=0
    for i=1 to total_no
    for j=1 to line_no
    if temp1total(i,j) then temp1=total(i,j)
    next
    next
    temp1=int(temp1)
    if temp1>9 then
    temp2=mid(cstr(temp1),2,1)
    if temp2>4 then 
    temp3=(int(temp1/(10^(len(cstr(temp1))-1)))+1)*10^(len(cstr(temp1))-1)
    else
    temp3=(int(temp1/(10^(len(cstr(temp1))-1)))+0.5)*10^(len(cstr(temp1))-1)
    end if
    else
    if temp1>4 then temp3=10 else temp3=5
    end if
    temp4=temp3
    response.write "v:rect id='_x0000_s1027' alt='' style='position:absolute;left:"table_x+left_width"px;top:"table_y"px;width:"all_width"px;height:"all_height"px;z-index:-1' fillcolor='#9cf' stroked='f'>v:fill rotate='t' angle='-45' focus='100%' type='gradient'/>/v:rect>"
    for i=0 to all_height-1 step all_height/5
    response.write "v:line id='_x0000_s1027' alt='' style='position:absolute;left:0;text-align:left;top:0;flip:y;z-index:-1' from='"table_x+left_width+length"px,"table_y+all_height-length-i"px' to='"table_x+all_width+left_width"px,"table_y+all_height-length-i"px' strokecolor='"line_color"'/>"
    response.write "v:line id='_x0000_s1027' alt='' style='position:absolute;left:0;text-align:left;top:0;flip:y;z-index:-1' from='"table_x+(left_width-15)"px,"table_y+i"px' to='"table_x+left_width"px,"table_y+i"px'/>"
    response.write ""
    response.write "v:shape id='_x0000_s1025' type='#_x0000_t202' alt='' style='position:absolute;left:"table_x"px;top:"table_y+i"px;width:"left_width"px;height:18px;z-index:1'>"
    response.write "v:textbox inset='0px,0px,0px,0px'>table cellspacing='3' cellpadding='0' width='100%' height='100%'>tr>td align='right'>"temp4"/td>/tr>/table>/v:textbox>/v:shape>"
    temp4=temp4-temp3/5
    next
    response.write "v:line id='_x0000_s1027' alt='' style='position:absolute;left:0;text-align:left;top:0;flip:y;z-index:-1' from='"table_x+left_width"px,"table_y+all_height"px' to='"table_x+all_width+left_width"px,"table_y+all_height"px'/>"
    response.write "v:line id='_x0000_s1027' alt='' style='position:absolute;left:0;text-align:left;top:0;flip:y;z-index:-1' from='"table_x+left_width"px,"table_y"px' to='"table_x+left_width"px,"table_y+all_height"px'/>"

    dim line_code
    redim line_code(line_no,5)
    for i=1 to line_no
    line_temp=split(total(0,i),",")
    line_code(i,1)=line_temp(0)
    line_code(i,2)=line_temp(1)
    line_code(i,3)=line_temp(2)
    line_code(i,4)=line_temp(3)
    line_code(i,5)=line_temp(4)
    next
    for j=1 to line_no
    for i=1 to total_no-1
    x1=table_x+left_width+all_width*(i-1)/total_no
    y1=table_y+(temp3-total(i,j))*(all_height/temp3)
    x2=table_x+left_width+all_width*i/total_no
    y2=table_y+(temp3-total(i+1,j))*(all_height/temp3)
    response.write "v:line id=""_x0000_s1025"" alt="""" style='position:absolute;left:0;text-align:left;top:0;z-index:1' from="""x1"px,"y1"px"" to="""x2"px,"y2"px"" coordsize=""21600,21600"" strokecolor="""line_code(j,1)""" strokeweight="""line_code(j,2)""">"
    select case line_code(j,3)
    case 1
    case 2
    response.write "v:stroke dashstyle='1 1'/>"
    case 3
    response.write "v:stroke dashstyle='dash'/>"
    case 4
    response.write "v:stroke dashstyle='dashDot'/>"
    case 5
    response.write "v:stroke dashstyle='longDash'/>"
    case 6
    response.write "v:stroke dashstyle='longDashDot'/>"
    case 7
    response.write "v:stroke dashstyle='longDashDotDot'/>"
    case else
    end select
    response.write "/v:line>"CHR(13)
    select case line_code(j,4)
    case 1
    case 2
    response.write "v:rect id=""_x0000_s1027"" style='position:absolute;left:"x1-2"px;top:"y1-2"px;width:4px;height:4px; z-index:2' fillcolor="""line_code(j,1)""" strokecolor="""line_code(j,1)"""/>"CHR(13)
    case 3
    response.write "v:oval id=""_x0000_s1026"" style='position:absolute;left:"x1-2"px;top:"y1-2"px;width:4px;height:4px;z-index:1' fillcolor="""line_code(j,1)""" strokecolor="""line_code(j,1)"""/>"CHR(13)
    end select
    next
    select case line_code(j,4)
    case 1
    case 2
    response.write "v:rect id=""_x0000_s1027"" style='position:absolute;left:"x2-2"px;top:"y2-2"px;width:4px;height:4px; z-index:2' fillcolor="""line_code(j,1)""" strokecolor="""line_code(j,1)"""/>"CHR(13)
    case 3
    response.write "v:oval id=""_x0000_s1026"" style='position:absolute;left:"x2-2"px;top:"y2-2"px;width:4px;height:4px;z-index:1' fillcolor="""line_code(j,1)""" strokecolor="""line_code(j,1)"""/>"CHR(13)
    end select
    next

    for i=1 to total_no
    response.write "v:line id='_x0000_s1027' alt='' style='position:absolute;left:0;text-align:left;top:0;flip:y;z-index:-1' from='"table_x+left_width+all_width*(i-1)/total_no"px,"table_y+all_height"px' to='"table_x+left_width+all_width*(i-1)/total_no"px,"table_y+all_height+15"px'/>"
    response.write ""
    response.write "v:shape id='_x0000_s1025' type='#_x0000_t202' alt='' style='position:absolute;left:"table_x+left_width+all_width*(i-1)/total_no"px;top:"table_y+all_height"px;width:"all_width/total_no"px;height:18px;z-index:1'>"
    response.write "v:textbox inset='0px,0px,0px,0px'>table cellspacing='3' cellpadding='0' width='100%' height='100%'>tr>td align='left'>"total(i,0)"/td>/tr>/table>/v:textbox>/v:shape>"
    next

    tb_height=30
    response.write "v:rect id='_x0000_s1025' style='position:absolute;left:"table_x+all_width+20"px;top:"table_y"px;width:100px;height:"line_no*tb_height+20"px;z-index:1'/>"
    for i=1 to line_no
    response.write "v:shape id='_x0000_s1025' type='#_x0000_t202' alt='' style='position:absolute;left:"table_x+all_width+25"px;top:"table_y+10+(i-1)*tb_height"px;width:60px;height:"tb_height"px;z-index:1'>"
    response.write "v:textbox inset='0px,0px,0px,0px'>table cellspacing='3' cellpadding='0' width='100%' height='100%'>tr>td align='left'>"line_code(i,5)"/td>/tr>/table>/v:textbox>/v:shape>"
    response.write "v:rect id='_x0000_s1040' alt='' style='position:absolute;left:"table_x+all_width+80"px;top:"table_y+10+(i-1)*tb_height+4"px;width:30px;height:20px;z-index:1' fillcolor='"line_code(i,1)"'>v:fill color2='"line_code(i,1)"' rotate='t' focus='100%' type='gradient'/>/v:rect>"
    next

    end function
    %>
    123下一页阅读全文
    您可能感兴趣的文章:
    • D3.js中data(), enter() 和 exit()的问题详解
    • JavaScript可视化图表库D3.js API中文参考
    • D3.js 从P元素的创建开始(显示可加载数据)
    • jQuery实现折线图的方法
    • php下实现折线图效果的代码
    • asp.net画曲线图(折线图)代码 详细注释
    • jqplot通过ajax动态画折线图的方法及思路
    • PHP中使用GD库绘制折线图 折线统计图的绘制方法
    • C#画图之饼图折线图的实现方法
    • 基于d3.js实现实时刷新的折线图
    上一篇:用Asp隐藏文件路径,实现防盗链 的代码
    下一篇:用asp实现网址和邮件地址的转换函数
  • 相关文章
  • 

    © 2016-2020 巨人网络通讯 版权所有

    《增值电信业务经营许可证》 苏ICP备15040257号-8

    ASP生成柱型体,折线图,饼图源代码提供了第1/3页 ASP,生成,柱型,体,折,线图,