仓酷云

 找回密码
 立即注册
搜索
热搜: 活动 交友 discuz
查看: 526|回复: 10
打印 上一主题 下一主题

[学习教程] ASP网页编程之纯ASP分离VML天生完善图-柱图

[复制链接]
不帅 该用户已被删除
跳转到指定楼层
楼主
发表于 2015-1-16 23:34:43 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有帐号?立即注册

x
写软件都是想的时间比写的时间要长的.如果反过来了就得看看是什么原因了.另外大家可以回去问问公司里的小MM.(一般企业里,跟你们交付软件接触得最多的是她们)演示地点:
http://61.172.255.65/dvbbs/t3/t17.asp

<%
dimtotal(7,2)
total(1,1)=200
total(2,1)=800
total(3,1)=1000
total(4,1)=600
total(5,1)=1222
total(6,1)=3213
total(7,1)=8

total(1,2)="中国谋划报"
total(2,2)="雇用网"
total(3,2)="51Job"
total(4,2)="新平易近晚报"
total(5,2)="旧事晚报"
total(6,2)="北方周末"
total(7,2)="羊城晚报"

total_no=7
%>
<htmlxmlns:v="urn:schemas-microsoft-com:vml"xmlns:o="urn:schemas-microsoft-com:office:office">
<!--[if!mso]>
<style>
v:*{behavior:url(#default#VML)}
o:*{behavior:url(#default#VML)}
.shape{behavior:url(#default#VML)}
</style>
<![endif]-->
<head>
<metahttp-equiv="Content-Type"content="text/html;charset=gb2312">
<title></title>
<style>
TD{FONT-SIZE:9pt}
</style></head>
<bodytopmargin=5leftmargin=0scroll=AUTO>
<%calltable1(total,200,20,20,30,400,200,"A")%>
<%calltable1(total,200,320,20,20,400,250,"B")%>
</body>
</html>


<%
functiontable1(total,table_x,table_y,thickness,table_width,all_width,all_height,table_type)
参数寄义(传送的数组,横坐标,纵坐标,柱子的厚度,柱子的宽度,图表的宽度,图表的高度,图表的范例)
纯ASP代码天生图表函数1――柱状图
龚叫(Passwordgm)QQ:25968152MSN:passwordgm@sina.comEmail:passwordgm@sina.com
自己十分乐意和ASP,VML,Flash的喜好者在HTTP://topclouds.126.com举行交换和切磋
版本2.0最初修正日期2003-7-22
十分感激您利用这个函数,请您利用和转载时保存版权信息,这是对作者事情的最好的尊敬。
dimtb_color(7,2)
tb_color(1,1)="#d1ffd1"
tb_color(2,1)="#ffbbbb"
tb_color(3,1)="#ffe3bb"
tb_color(4,1)="#cff4f3"
tb_color(5,1)="#d9d9e5"
tb_color(6,1)="#ffc7ab"
tb_color(7,1)="#ecffb7"

tb_color(1,2)="#00ff00"
tb_color(2,2)="#ff0000"
tb_color(3,2)="#ff9900"
tb_color(4,2)="#33cccc"
tb_color(5,2)="#666699"
tb_color(6,2)="#993300"
tb_color(7,2)="#99cc00"

line_color="#69f"
left_width=70
length=thickness/2
total_no=ubound(total,1)

temp1=0
fori=1tototal_no
iftemp1<total(i,1)thentemp1=total(i,1)
next
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)
else
temp3=(int(temp1/(10^(len(cstr(temp1))-1)))+0.5)*10^(len(cstr(temp1))-1)
endif
else
iftemp1>4thentemp3=10elsetemp3=5
endif
temp4=temp3
response.write"<!--[ifgtevml1]><v:rectid=_x0000_s1027alt=style=position:absolute;left:"&table_x+left_width&"px;top:"&table_y&"px;width:"&all_width&"px;height:"&all_height&"px;z-index:-1fillcolor=#9cfstroked=f><v:fillrotate=tangle=-45focus=100%type=gradient/></v:rect><![endif]-->"
response.write"<!--[ifgtevml1]><v:lineid=_x0000_s1027alt=style=position:absolute;left:0;text-align:left;top:0;flip:y;z-index:-1from="&table_x+left_width&"px,"&table_y+all_height&"pxto="&table_x+all_width+left_width&"px,"&table_y+all_height&"px/><![endif]-->"
response.write"<!--[ifgtevml1]><v:lineid=_x0000_s1027alt=style=position:absolute;left:0;text-align:left;top:0;flip:y;z-index:-1from="&table_x+left_width&"px,"&table_y&"pxto="&table_x+left_width&"px,"&table_y+all_height&"px/><![endif]-->"

selectcasetable_type
case"A"
table_space=(all_width-table_width*total_no)/total_no
response.write"<!--[ifgtevml1]><v:lineid=_x0000_s1027alt=style=position:absolute;left:0;text-align:left;top:0;flip:y;z-index:-1from="&table_x+left_width+length&"px,"&table_y&"pxto="&table_x+left_width+length&"px,"&table_y+all_height-length&"pxstrokecolor="&line_color&"/><![endif]-->"
fori=0toall_height-1stepall_height/5
response.write"<!--[ifgtevml1]><v:lineid=_x0000_s1027alt=style=</p>asp,jsp,php是web开发的三大技术,asp简单易用且有microsoft做靠山,jsp功能强大是因为有java支持,php则开源跨平台.在国内,asp应用范围最广,jsp发展势头最猛,php则处于劣势.这可能与公司的支持以及技术的培训有关.
莫相离 该用户已被删除
沙发
发表于 2015-1-20 09:59:11 | 只看该作者
虽然ASP也有很多网络教程。但是这些都不系统。都是半路出家,只是从一个例子告诉你怎么用。不会深入讨论,更不会将没有出现在例子里的方法都一一列举出来。
活着的死人 该用户已被删除
板凳
发表于 2015-1-22 08:36:19 | 只看该作者
运用经典的例子。并且自己可以用他来实现一些简单的系统。如果可以对他进行进一步的修改,找出你觉得可以提高性能的地方,加上自己的设计,那就更上一个层次了,也就会真正地感到有所收获。
山那边是海 该用户已被删除
地板
发表于 2015-1-25 07:12:13 来自手机 | 只看该作者
我就感觉到ASP和一些常用的数据库编程以及软件工程方面的思想是非常重要的。我现在也在尝试自己做网页,这其中就用到了ASP,我想它的作用是可想而知的。
不帅 该用户已被删除
5#
 楼主| 发表于 2015-1-26 10:24:36 | 只看该作者
不是很难但是英文要有一点基础网上的教程很少有系统的详细的去买书吧,另不用专门学习vb关于vbscript脚本在asp教材都有介绍
海妖 该用户已被删除
6#
发表于 2015-2-4 13:48:43 | 只看该作者
ASP主要是用好六个对象,其实最主要的是用好其中两个:response和request,就可以随心所欲地控制网页变换和响应用户动作了。
再现理想 该用户已被删除
7#
发表于 2015-2-10 01:05:11 | 只看该作者
多看多学多思。多看一些关于ASP的书籍,一方面可以扩展知识面一方面可以鉴借别人是如何掌握、运用ASP的;多学善于关注别人,向同学老师多多学习,不论知识的大小;多思则是要将学到的知识灵活运用。
飘灵儿 该用户已被删除
8#
发表于 2015-2-28 10:23:10 | 只看该作者
运用经典的例子。并且自己可以用他来实现一些简单的系统。如果可以对他进行进一步的修改,找出你觉得可以提高性能的地方,加上自己的设计,那就更上一个层次了,也就会真正地感到有所收获。
若天明 该用户已被删除
9#
发表于 2015-3-9 22:17:51 | 只看该作者
ASP主要是用好六个对象,其实最主要的是用好其中两个:response和request,就可以随心所欲地控制网页变换和响应用户动作了。
谁可相欹 该用户已被删除
10#
发表于 2015-3-17 02:10:39 | 只看该作者
学习是为了用的,是为了让你的程序产生价值,把握住这个原则会比较轻松点。除此之外,课外时间一定要多参加一些社会实践活动,来锻炼自己的能力。
冷月葬花魂 该用户已被删除
11#
发表于 2015-3-23 15:40:39 | 只看该作者
下载一个源代码,然后再下载一个VBScript帮助,在源代码中遇到不认识的函数或是其他什么程序,都可以查帮助进行解决,这样学习效率很高。
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|Archiver|手机版|仓酷云 鄂ICP备14007578号-2

GMT+8, 2024-12-24 00:09

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表