يقوم ASP بإنشاء أجسام على شكل عمود ، مخططات خطية ، رمز مصدر فطيرة الرسم البياني
<٪
FunctionTable2 (Total ، Table_X ، Table_y ، all_width ، all_height ، line_no)
معنى المعلمة (تم تمرير صفيف ، الإحداثيات الأفقية ، الإحداثيات العمودية ، عرض الرسم البياني ، ارتفاع الرسم البياني ، عدد الخطوط)
يولد رمز ASP النقي وظيفة المخطط 2 - مخطط السطر
"المؤلف: Gong Ming (PasswordGM) QQ: 25968152MSN: [email protected]: [email protected]
"أنا على استعداد للغاية للتواصل والمناقشة مع ASP و VML و Flash Atmans على http://topclouds.126.com
الإصدار 1.0 آخر تاريخ تم تعديله 2003-8-11
شكرا جزيلا لك على استخدام هذه الوظيفة. يرجى الحفاظ على معلومات حقوق الطبع والنشر عند استخدام وإعادة الطباعة. هذا هو أفضل احترام لعمل المؤلف.
line_color = "#69f"
Left_width = 70
TOTAL_NO = UBUND (المجموع ، 1)
temp1 = 0
fori = 1tototal_no
forj = 1toline_no
iftemp1 <total (i ، j) thentemp1 = total (i ، j)
التالي
التالي
temp1 = int (temp1)
iftemp1> 9then
Temp2 = Mid (CSTR (Temp1) ، 2،1)
iftemp2> 4then
temp3 = (int (temp1/(10^(len (cstr (temp1))-1)))+1)*10^(len (cstr (temp1))-1)
آخر
temp3 = (int (temp1/(10^(len (cstr (temp1))-1)))+0.5)*10^(len (cstr (temp1))-1)
Endif
آخر
iftemp1> 4thentemp3 = 10elsetemp3 = 5
Endif
temp4 = temp3
Response.write "<v: rectid = '_ x0000_s1027'alt =' '' style = 'الموضع: absomute ؛ اليسار:" & table_x+left_width & "px ؛ top:" & table_y & "px ؛ width:" & all_width & "px ؛ الارتفاع:" & all_height & "px ؛ z-index: -1'fillcolor = '#9cf'stroked =' f '> <v: fillrotate =' t'angle = '-45'focus =' 100 ٪ 'type =' type '/> </v: rect>"
fori = 0toall_height-1stepall_height/5
Response.write "<v: lineId = '_ x0000_s1027'alt =' '' style = 'position: aboor ؛ left: 0 ؛ text-align: left ؛ top: 0 ؛ flip: y ؛ z-index: -1'from ='" & table_x+left_width+le ngth & "px ،" & table_y+all_height-length-i & "px'to = '" & table_x+all_width+left_width & "px ،" & table_y+all_height-length-i &
استجابة. write "<v: lineId = '_ x0000_s1027'alt =' '' style = 'الموضع: aboor ؛ اليسار: 0 ؛ محاذاة النص: اليسار ؛ الأعلى: 0 ؛ flip: y ؛ z- الفهرس: -1'from = '"& table_x+(left_width-15) و" px ، "& table_y+i &" px'to =' "& table_x+left_width &" px ، "& table_y+i &" px '/> "
استجابة. "" ""
repart.write "<v: formeid = '_ x0000_s1025'type ='#_ x0000_t202'alt = '' style = 'position: apport ؛ left:" & table_x & "px ؛ top:" & table_y+i & "px ؛ width: left_width &" px ؛ px ؛
reponse.write "<v: textboxinset = '0px ، 0px ، 0px ، 0px'> <TableCellSpacing =' 3'cellpadding = '0'width =' 100 ٪ 'height =' 100 ٪ '> <tdalign =' right '> & temp4 &" </td> </tr> </v: textbox> <tdalign>
temp4 = temp4-temp3/5
التالي
repart.write "<v: lineId = '_ x0000_s1027'alt =' '' style = 'الموضع: المطلق ؛ اليسار: 0 ؛ align text: left ؛ top: 0 ؛ flip: y ؛ z-index: -1'fro m = '"& table_x+left_width &" px ، "& table_y+all_height &" px'to =' "& table_x+all_width+left_width &" px ، "& table_y+all_height &" px '/> "