ASP+JS日历源代码

2023-03-02 13:24:02JavaScript08

ASP+JS日历源代码,第1张

直接保存成 asp文件运行就可以

<html>

<head>

<title>日历</title

</head>

' 要调用的函数声明

'根据年份及月份得到每月的总天数

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

'得到日期后我们先得到这个月的天数及这个月的起始日期.

iDIM = GetDaysInMonth(Month(dDate), Year(dDate))

iDOW = GetWeekdayMonthStartsOn(dDate)

<tr>

<tr>

</tr>

</table>

<tr>

<tr>

</tr>

</table></td>

</tr>

<tr>

<td width="25" height="22" align="center"><font

color="d08c00"><b>日</b></font></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>

<tr>

</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

词库加载错误未能找到文件“E高铁采集器内存溢出ConfigurationDictStopwordstxt”

# 上一篇：平板怎么刷机呢

# 下一篇：电脑上的QQ如何升级