<html>
<head>
<meta http-equiv="Content-Type" content="text/htmlcharset=gb2312" />
<link href="http://purl.org/dc" rel="schema.DC" />
<title>日历</title
</head>
<body bgcolor="#FFFFFF">
<%
' 要调用的函数声明
'根据年份及月份得到每月的总天数
Function GetDaysInMonth(iMonth, iYear)
Select Case iMonth
Case 1, 3, 5, 7, 8, 10, 12
GetDaysInMonth = 31
Case 4, 6, 9, 11
GetDaysInMonth = 30
Case 2
If IsDate("February 29, " &iYear) Then
GetDaysInMonth = 29
Else
GetDaysInMonth = 28
End If
End Select
End Function
'得到一个月开始的日期.
Function GetWeekdayMonthStartsOn(dAnyDayInTheMonth)
Dim dTemp
dTemp = DateAdd("d", -(Day(dAnyDayInTheMonth) - 1), dAnyDayInTheMonth)
GetWeekdayMonthStartsOn = WeekDay(dTemp)
End Function
'得到当前一个月的上一个月.
Function SubtractOneMonth(dDate)
SubtractOneMonth = DateAdd("m", -1, dDate)
End Function
'得到当前一个月的下一个月.
Function AddOneMonth(dDate)
AddOneMonth = DateAdd("m", 1, dDate)
End Function
' 函数声明结束
Dim dDate ' 日历显示的日期
Dim iDOW ' 每一月开始的日期
Dim iCurrent ' 当前日期
Dim iPosition ' 表格中的当前位置
' 得到选择的日期并检查日期的合法性
If IsDate(Request.QueryString("date")) Then
dDate = CDate(Request.QueryString("date"))
Else
If IsDate(Request.QueryString("month") &"-" &Request.QueryString("day") &"-" &Request.QueryString("year")) Then
dDate = CDate(Request.QueryString("month") &"-" &Request.QueryString("day") &"-" &Request.QueryString("year"))
Else
dDate = Date()
If Len(Request.QueryString("month")) <>0 Or Len(Request.QueryString("day")) <>0 Or Len(Request.QueryString("year")) <>0 Or Len(Request.QueryString("date")) <>0 Then
Response.Write "您所选择的日期格式不正确，系统会使用当前日期.<BR><BR>"
End If
End If
End If
'得到日期后我们先得到这个月的天数及这个月的起始日期.
iDIM = GetDaysInMonth(Month(dDate), Year(dDate))
iDOW = GetWeekdayMonthStartsOn(dDate)
%>
<table width="180" height="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td><table width="150" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="5"></td>
</tr>
</table>
<table width="180" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td align="center" colspan="7"><table border="0" cellpadding="0" cellspacing="0"width="100%">
<tr>
<td height="22" align="right"><a href="rl.asp?date=<%= SubtractOneMonth(dDate) %>"><img src="../images/dot_left.gif" width="15" height="14" border="0" /></a></td>
<td align="center"><font color="999999"><b><%= MonthName(Month(dDate)) &" " &Year(dDate) %></b></font></td>
<td><a href="rl.asp?date=<%= AddOneMonth(dDate) %>"><img src="../images/dot_right.gif" width="15" height="14" border="0" /></a></td>
</tr>
</table></td>
</tr>
<tr>
<td width="25" height="22" align="center"><font
color="d08c00"><b>日</b></font></td>
<td width="25" align="center"><b><font color="999999">一</font></b></td>
<td width="25" align="center"><b><font color="999999">二</font></b></td>
<td width="25" align="center"><b><font color="999999">三</font></b></td>
<td width="25" align="center"><b><font color="999999">四</font></b></td>
<td width="25" align="center"><b><font color="999999">五</font></b></td>
<td width="25" align="center"><b><font color="d08c00">六</font></b></td>
</tr>
<%
' 如果这个月的起始日期不是周日的话就加空的单元.
If iDOW <>1 Then
Response.Write vbTab &"<TR>" &vbCrLf
iPosition = 1
Do While iPosition <iDOW
Response.Write vbTab &vbTab &"<TD> </TD>" &vbCrLf
iPosition = iPosition + 1
Loop
End If
' 绘制这个月的日历
iCurrent = 1
iPosition = iDOW
Do While iCurrent <= iDIM
' 如果是一行的开头就使用 TR 标记
If iPosition = 1 Then
Response.Write vbTab &"<TR>" &vbCrLf
End If
' 如果这一天是我们选择的日期就高亮度显示该日期.
If iCurrent = Day(dDate) Then
Response.Write vbTab &vbTab &"<TD BGCOLOR=#eeeeee height=18 align=center><B>" &iCurrent &"</B></TD>" &vbCrLf
Else
Response.Write vbTab &vbTab &"<TD height=18 align=center><A HREF=""./rl.asp?date=" &Month(dDate) &"-" &iCurrent &"-" &Year(dDate) &""">" &iCurrent &"</A></TD>" &vbCrLf
End If
' 如果满一周的话表格就另起一行
If iPosition = 7 Then
Response.Write vbTab &"</TR>" &vbCrLf
iPosition = 0
End If
iCurrent = iCurrent + 1
iPosition = iPosition + 1
Loop
' 如果一个月不是以周六结束则加上相应的空单元.
If iPosition <>1 Then
Do While iPosition <= 7
Response.Write vbTab &vbTab &"<TD> </TD>" &vbCrLf
iPosition = iPosition + 1
Loop
Response.Write vbTab &"</TR>" &vbCrLf
End If
%>
</table>
<table width="150" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="5"></td>
</tr>
</table></td>
</tr>
</table>
一、.获取上下文对象
var cxt = document.getElementById(‘元素名’).getContect(‘2d’)
IE8或更早的浏览器不支持元素。
二、 drawClock() – 实现画时钟
1. clearRect() 清空给定矩形内的指定像素。
context.clearRect(x,y,width,height)
属性 | 值
-----|------------
x,y | 要清除的矩形左上角点的(x,y)坐标
width,height| 要清除的矩形宽度和高度，单位为像素12345
2.new Date() — 得到系统时间
var sec = now.getSeconds() var min = now.getMinutes() var hour = now.getHours() 123
3.画时钟的形状
cxt.beginPath() cxt.lineWidth = 10 cxt.strokeStyle = "blue" cxt.arc(550, 310, 300, 0, 360, false) cxt.closePath() cxt.stroke()123456
beginPath()的作用是canvas的绘制方法，都会以上一次beginPath之后的所有路径为基础进行绘制。
closepath()是关闭路径，而不是结束路径，它会试图从当前路径的终点连一条路径到七、起点，让整个路径闭合起来。
cxt.lineWidth() ： 画笔的宽度
cxt.strokeStyle() : 设置或返回用于笔触的颜色、渐变或模式。
属性值：color 指示绘图笔触颜色的 CSS 颜色值。默认值是 #000000。
gradient 用于填充绘图的渐变对象（线性或放射性）
pattern 用于创建 pattern 笔触的 pattern 对象
stroke ()绘制已定义的路径
arc() 方法创建弧/曲线（用于创建圆或部分圆）。如需通过 arc() 来创建圆，请把起始角设置为 0，结束角设置为 2*Math.PI。
context.arc(x,y,r,sAngle,eAngle,counterclockwise)
参数
描述
x 圆的中心的 x 坐标。
y 圆的中心的 y 坐标。
r 圆的半径。
sAngle 起始角，以弧度计。（弧的圆形的三点钟位置是 0 度）。
eAngle 结束角，以弧度计。
counterclockwise 可选。规定应该逆时针还是顺时针绘图。False = 顺时针，true = 逆时针。
4）drawScale — 自定义函数画刻度
function drawScale(size, width, color, value, startx, starty, endx, endy){for(var i = 0i <sizei++){
drawPointer(width, color, value, i, startx, starty, endx, endy)
} } 12345
5. 画时钟刻度依托点
function drawPointer(width, color, value, angle, startx, starty, endx, endy){cxt.save() //先保存当前画布
cxt.lineWidth = width //设置画笔的宽度
cxt.strokeStyle = color //设置画笔的颜色
cxt.translate(550, 310) //重置异次元空间的原点坐标
cxt.rotate(value * angle * Math.PI / 180) //设置旋转的角度，参数是弧度
cxt.beginPath()
cxt.moveTo(startx, starty)
cxt.lineTo(endx, endy)
cxt.closePath() //先闭合路径，再画线
cxt.stroke() //开始画线
cxt.restore() //将旋转后的线段返回给画布 } 12345678910111213
translate() 方法重新映射画布上的 (0,0) 位置。
-
JS代码如下：
//获取上下文文档对象 var clock = document.getElementById('clock')var cxt = clock.getContext('2d')
//画指针 function drawPointer(width, color, value, angle, startx, starty, endx, endy){
cxt.save() //先保存当前画布
cxt.lineWidth = width //设置画笔的宽度
cxt.strokeStyle = color //设置画笔的颜色
cxt.translate(550, 310) //重置异次元空间的原点坐标
cxt.rotate(value * angle * Math.PI / 180) //设置旋转的角度，参数是弧度
cxt.beginPath()
cxt.moveTo(startx, starty)
cxt.lineTo(endx, endy)
cxt.closePath() //先闭合路径，再画线
cxt.stroke() //开始画线
cxt.restore() //将旋转后的线段返回给画布 }
//画刻度 function drawScale(size, width, color, value, startx, starty, endx, endy){
for(var i = 0i <sizei++){
drawPointer(width, color, value, i, startx, starty, endx, endy)
}
}
//为表盘的中心填充颜色 function drawFill(){
cxt.save()
cxt.beginPath()
cxt.arc(550, 310, 7, 0, 360, false)
cxt.closePath()
cxt.fillStyle = "red"
cxt.fill()
cxt.restore()
}
//画时钟 function drawClock(){
cxt.clearRect(0, 0, 1350, 620) //清空整个画布
var now = new Date() //获取系统时间，取出时,分,秒
var sec = now.getSeconds()
var min = now.getMinutes()
var hour = now.getHours()
min += sec / 60
hour += min / 60
if(hour >12) hour -= 12
cxt.beginPath()
cxt.lineWidth = 10
cxt.strokeStyle = "blue"
cxt.arc(550, 310, 300, 0, 360, false)
cxt.closePath()
cxt.stroke()
drawScale(12, 7, "pink", 30, 0, -280, 0, -260) //画时刻度
drawScale(60, 5, "pink", 6, 0, -280, 0, -270) //画分刻度
drawPointer(7, "purple", hour, 30, 0, 12, 0, -210) //画时针
drawPointer(5, "yellow", min, 6, 0, 15, 0, -240) //画分针
drawPointer(4, "red", sec, 6, 0, 17, 0, -250) //画秒针
//细化秒针,为秒针加箭头
drawPointer(3, "red", sec, 6, -7, -235, 0, -255)
drawPointer(3, "red", sec, 6, 7, -235, 0, -255)
drawFill()
}
drawClock()
setInterval(drawClock, 1000) //setInterval()方法中表示每隔1000ms，就执行drawClock一次 1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071
