5、纯ASP代码生成图表函数——立体饼图
5、纯ASP代码生成图表函数——立体饼图
<%dim total(7,1)
total(1,0)="中国经营报"
total(2,0)="招聘网"
total(3,0)="51Job"
total(4,0)="新民晚报"
total(5,0)="新闻晚报"
total(6,0)="南方周末"
total(7,0)="羊城晚报"
total(1,1)=200
total(2,1)=1200
total(3,1)=900
total(4,1)=600
total(5,1)=1222
total(6,1)=413
total(7,1)=800
%><html xmlns: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>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title></title>
<style>
TD { FONT-SIZE: 9pt}
</style></head>
<body topmargin=5 leftmargin=0 scroll=AUTO>
范例一
<%call table4(total,100,40,250,250,50,0,"A")%>
<Br><Br><Br><Br><Br><Br><Br><Br><Br><Br><Br><Br><Br><Br><Br><Br><Br><Br><Br><Br>范例二
<%'call table3(total,300,450,250,250,"A")%>
</body>
</html>
<%
function table4(total,table_x,table_y,all_width,all_height,thickness,cut_no,table_type)
'参数含义(传递的数组，横坐标，纵坐标，图表的宽度，图表的高度,饼图厚度,分离块的序号,图表的类型)
'纯ASP代码生成图表函数——立体饼图
'作者：龚鸣(Passwordgm) QQ:25968152 MSN:passwordgm@sina.com Email:passwordgm@sina.com
'本人非常愿意和ASP,VML,FLASH的爱好者在HTTP://www.ilisten.cn进行交流和探讨
'非常感谢您使用这个函数，请您使用和转载时保留版权信息，这是对作者工作的最好的尊重。
tb_height=30
pie=3.14159265358979
rotationangle1=55
rotationangle2=-30
dim tb_color(7,2)
tb_color(1,1)="#d1ffd1"
tb_color(2,1)="#ffbbbb"
tb_color
相关文档：
<%
'建立文件夹函数
Function CreateFolder(strFolder)'参数为相对路径
'首选判断要建立的文件夹是否已经存在
Dim strTestFolder,objFSO
strTestFolder = Server.Mappath(strFolder)
Set objFSO = CreateObject("Scripting.FileSystemObject")
'检查文件夹是否存在
If not objFSO.FolderExists(strTestF ......
ASP+Access数据库的18条安全法则：
1.首先，我们需要过滤所有客户端提交的内容,其中包括?id=N一类,另外还有提交的html代码中的操作数据库的select及asp文件操作语法,大家可以把提交的字符转义,然后再存入数据库。
2.然后需要对访问Access数据库的页面进行授权,针对显示数据页面只能使用select语句,过滤其他的update,asp ......
<%
Option Explicit
'数据库结构：
'location
'表1 loaction 所在的市 表
' 字段
' loactionid （主键）
' loactionname 名字
'表2 district 所在的县 表
' 字段
' locationid （主键）
' districtid
'&n ......
'判断是否是数字（包括整数和浮点数）
function IsNumber(str)
if RegPatrn("^-?[1-9]\d*$",str) or RegPatrn("^-?([1-9]\d*\.\d*|0\.\d*[1-9]\d*|0?\.0+|0)$",str) then
IsNumber=true
else
IsNumber=false
end if
end function
'正则表达式判断是否匹配
Function RegPatrn(patrn, strng)
RegPatrn = false
Di ......
3、纯ASP代码生成图表函数——折线图
<%dim total(7,3)
total(1,0)="中国经营报"
total(2,0)="招聘网"
total(3,0)="51Job"
total(4,0)="新民晚报"
total(5,0)="新闻晚报"
total(6,0)="南方周末"
total(7,0)="羊城晚报"
total(0,1)="#FF0000,1.5,1,2,公司1"'参数1线条的颜色，参数2线条的宽度，参数3� ......
