js日历(JS日历特效)
ASP+JS日历源代码
直接保存成 asp文件 运行就可以
head
meta http-equiv="Content-Type" content="text/html; charset=gb2312" /
link href="" 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 "您所选择的日期格式不正确，系统会使用当前日期.BRBR"
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
tdtable 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
tda 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"bfont color="999999"一/font/b /td
td width="25" align="center"bfont color="999999"二/font/b /td
td width="25" align="center"bfont color="999999"三/font/b /td
td width="25" align="center"bfont color="999999"四/font/b /td
td width="25" align="center"bfont color="999999"五/font/b /td
td width="25" align="center"bfont 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=centerB" iCurrent "/B/TD" vbCrLf
Else
Response.Write vbTab vbTab "TD height=18 align=centerA 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
jsp怎么调用js日历控件！
举个例子（控件地址：）：
首先下载日期控件到你的服务器目录中，在你的页面中引入这个外部js：
script language="JavaScript" type="text/javascript" src="../../My97DatePicker/WdatePicker.js"//具体路径看实际情况/script
在文本控件中这样使用：
input id="d11" type="text" onClick="WdatePicker()"/点击这个input文本框时候就会弹出时间选择框
js 日历中的日期和星期怎么对应的
根据你的提问，是选择页面上一个日期，然后判断被选择的日期是星期几么? 如果是：我给出的js如下： // js code // code描述： // year和date好说，就是你页面选择的实际值。这里要注意month，假如你页面选择的为7月， // 这里 的month应当为 7-1...
帮忙改一下js日历的日期的显示格式
把 Calendar_GetDate 函数 修改为
function Calendar_GetDate(y,m,d)
{
m=parseInt(m)10 ? '0'+m:m; //加
d=parseInt(d)10 ? '0'+d:d;//加
if(!Calendar_obj2||d!=0){
if(d0){Calendar_obj.value=y+'-'+m+'-'+d;}
else{
var objEvent=divCalendar.event||arguments.callee.caller.arguments[0];
var srcElement=objEvent.srcElement;
if(!srcElement){srcElement=objEvent.target;}
Calendar_obj.value=y+'-'+m+'-'+srcElement.innerHTML;
}
}
else{
if(IsLeapYear(y) m==2){num=MonthDNum[m]+1;}
else{num=MonthDNum[m];}
Calendar_obj.value=y+'-'+m+'-1';
Calendar_obj2.value=y+'-'+m+'-'+num;
}
就加 m=parseInt(m)10 ? '0'+m:m; //加
d=parseInt(d)10 ? '0'+d:d;//加
这两行代码就可以了