VML画图如何在每个区域加上超级链接

 1   
 2dim total(7,2)   
 3  
 4total(1,0)="中国经营报"   
 5total(2,0)="招聘网"   
 6total(3,0)="51Job"   
 7total(4,0)="新民晚报"   
 8total(5,0)="新闻晚报"   
 9total(6,0)="南方周末"   
10total(7,0)="羊城晚报"   
11  
12total(1,1)=200   
13total(2,1)=1200   
14total(3,1)=900   
15total(4,1)=600   
16total(5,1)=1222   
17total(6,1)=413   
18total(7,1)=800   
19  
20'链接地址   
21total(1,2)="中国经营报.asp"   
22total(2,2)="招聘网.asp"   
23total(3,2)="51Job.asp"   
24total(4,2)="新民晚报.asp"   
25total(5,2)="新闻晚报.asp"   
26total(6,2)="南方周末.asp"   
27total(7,2)="羊城晚报.asp"   

'...

'修改下处,加上

1<a> (第2个FOR循环,即输出饼图处)   
2  
3response.write "<a href='"&amp;total(i,2)&amp;"'><v:shape adj="0,,0" coordsize="1500,1400" fillcolor='"&amp;tb_color(i,1)&amp;"' id="_x0000_s1025" o:spt="100" path='m750,700ae750,700,750,700,"&amp;int(23592960*PreAngle)&amp;","&amp;int(23592960*total(i,1)/totalpie)&amp;"xe' strokecolor="#FFFFFF" style='position:absolute;left:"&amp;table_x&amp;"px;top:"&amp;table_y&amp;"px;width:"&amp;all_width&amp;"px;height:"&amp;all_height&amp;"px;z-index:1'><v:fill color2='"&amp;tb_color(i,2)&amp;"' focus="100%" rotate="t" type="gradient"></v:fill><v:stroke joinstyle="round"></v:stroke><v:formulas></v:formulas><v:path o:connecttype="segments"></v:path></v:shape></a>"&amp;CHr(13)</a>
Published At
Categories with Web编程
comments powered by Disqus