whd0931 2015-03-11 07:54 采纳率: 0%
浏览 1932

ASP页面传递参数问题(两个页面)

第一个页面:
<%
SQL="select count(*) from bs_menber where QXGID='M00002'"
set rs=adocon.execute(SQL)
if not rs.eof then
a1=rs(0)
else
a1=0
end if
%>
第二个页面:
<%
'参数含义(数组,横坐标,纵坐标,图表的宽度,图表的高度,图表标题,单位)
function table2(stat_array,table_left,table_top,all_width,all_height,table_title,unit)
dim bg_color(7),pie(7)
bg_color(1)="#ff1919"
bg_color(2)="#ffff19"
bg_color(3)="#1919ff"
bg_color(4)="#19ff19"
bg_color(5)="#fc0"
bg_color(6)="#3cc"
bg_color(7)="#ff19ff"
num =ubound(stat_array,1)
allvalues=0
for i=1 to num
allvalues = allvalues+stat_array(i,1)
next
k=0
for i=1 to num-1
pie(i)=formatnumber(stat_array(i,1)/allvalues,4,-1)
k=k+pie(i)
next
pie(num)=formatnumber((1-k),4,-1)
response.Write "/v:shapetype"
response.Write " "
response.Write " "
response.Write " "
response.Write " "
response.Write "/v:shapetype"
response.Write ""
response.Write " "
response.Write "/v:rect"
response.Write ""
response.Write " "
response.Write " "
response.Write "

"
response.Write " "
response.Write " "
response.Write " "
response.Write "
"&table_title&"
"
response.Write " /v:TextBox"
response.Write " /v:Rect "
response.Write " "
response.Write " "
response.Write " /v:rect"
response.Write " "
response.Write " "
response.Write " "
response.Write " /v:rect"
response.Write " "
response.Write "
总数:"&allvalues&unit&"
/v:TextBox"
response.Write " /v:Rect "
for i=1 to num
response.Write " "
response.Write " "
response.Write " /v:Rect"
response.Write " "
response.Write " "
response.Write "
"&stat_array(i,2)&":"&stat_array(i,1)&unit&"
/v:TextBox"
response.Write " /v:Rect "
next
response.Write "/v:group"
k1=180
k4=10
for i=1 to num
response.write ""
k2=360*pie(i)/2
k3=k1+k2
if k3>=360 then
k3=k3-360
end if
kkk=(-11796480*pie(i)+5898240)
k5=3.1414926*2*(180-(k3-180))/360
R=all_height/2
txt_x = table_left+all_height/8-30+R+R*sin(k5)*0.7
txt_y = table_top+all_height/14-39+R+R*cos(k5)*0.7*0.5
titlestr = "名称:"&stat_array(i,2)&" 数值:"&stat_array(i,1)&unit&" 所占比例:"&pie(i)*100&"%"
response.Write "
"
k1=k1+k2*2
if k1>=360 then
k1=k1-360
end if
if k1>180 then
k4=k4+1
else
k4=k4-1
end if
response.write ""
next
end function
%>


甘肃省物流网会员分类饼状图

v\:* { Behavior: url(#default#VML) } o\:* { behavior: url(#default#VML) }


<!-- onit=true num=0 function moveup(iteam,top,txt,rec){ temp=eval(iteam) tempat=eval(top) temptxt=eval(txt) temprec=eval(rec) at=parseInt(temp.style.top) temprec.style.display = ""; if (num>27){ temptxt.style.display = ""; } if(at>(tempat-28)&&onit){ num++ temp.style.top=at-1 Stop=setTimeout("moveup(temp,tempat,temptxt,temprec)",10) }else{ return } } function movedown(iteam,top,txt,rec){ temp=eval(iteam) temptxt=eval(txt) temprec=eval(rec) clearTimeout(Stop) temp.style.top=top num=0 temptxt.style.display = "none"; temprec.style.display = "none"; } function ontxt(iteam,top,txt,rec){ temp = eval(iteam); temptxt = eval(txt); temprec = eval(rec) if (onit){ temp.style.top = top-28; temptxt.style.display = ""; temprec.style.display = ""; } } function movereset(over){ if (over==1){ onit=false }else{ onit=true } } -->

<%
dim total(7,2)

total(1,1)=a1 (如何接收上个页面a1的值)

total(2,1)=1800
total(3,1)=1700
total(4,1)=1500
total(5,1)=1222
total(6,1)=1100
total(7,1)=1000
total(1,2)="买家"
total(2,2)="卖家"
total(3,2)="货主"
total(4,2)="车主"
total(5,2)="货代"
total(6,2)="综合"
total(7,2)="物流商"
call table2(total,120,20,900,500,"甘肃省物流网会员分类饼状图","人")
'参数含义(数组,横坐标,纵坐标,图表的宽度,图表的高度,图表标题,单位)
%>

  • 写回答

1条回答 默认 最新

  • save4me 2015-03-12 09:23
    关注
    评论

报告相同问题?

悬赏问题

  • ¥20 SQL server表计算问题
  • ¥15 C# P/Invoke的效率问题
  • ¥20 thinkphp适配人大金仓问题
  • ¥20 Oracle替换.dbf文件后无法连接,如何解决?(相关搜索:数据库|死循环)
  • ¥15 数据库数据成问号了,前台查询正常,数据库查询是?号
  • ¥15 算法使用了tf-idf,用手肘图确定k值确定不了,第四轮廓系数又太小才有0.006088746097507285,如何解决?(相关搜索:数据处理)
  • ¥15 彩灯控制电路,会的加我QQ1482956179
  • ¥200 相机拍直接转存到电脑上 立拍立穿无线局域网传
  • ¥15 (关键词-电路设计)
  • ¥15 如何解决MIPS计算是否溢出