ASP+JavaScript的完整的日历使用

第一步：保存下列文件为:CALENDAR.ASP

<%@ LANGUAGE = VBScript %>

<% Option Explicit %>

Function sFont(iSize,sFace,sColor,bScale)

Dim sOutputStr

sOutputStr = "<FONT"

if sFace <> "" then

sOutputStr = sOutputStr & " FACE='" & sFace & "'"

else

sOutputStr = sOutputStr & " FACE='Helv'"

end if

if iSize = "" then

iSize = 1

end if

if bScale then

iSize = cInt(iSize * 1)

end if

sOutputStr = sOutputStr & " SIZE=" & iSize

if sColor <> "" then

sOutputStr = sOutputStr & " COLOR=" & sColor

end if

sOutputStr = sOutputStr & ">"

sFont = sOutputStr

End Function

On Error Resume Next

Dim datecntrl, Dy, Mo, Yr, nextmonth, startwith, thisMo, thisYr, thisDate,the_type

Dim prevMonthLastDate, currMonthLastDate, i, j, lastnum, AnyDate,default_value

datecntrl= Request("object")

default_value=request("value")

the_type=request("type")

if the_type<>"datetime" then

the_type="date"

end if

if default_value="" then

Yr = year(date)

Mo = month(date)

Dy = day(date)

else

dim pos1

dim deal_value

deal_value=default_value

pos1=instr(deal_value,"-")

Yr = cint(mid(deal_value,1,pos1-1))

deal_value=mid(deal_value,pos1+1)

pos1=instr(deal_value,"-")

Mo = cint(mid(deal_value,1,pos1-1))

if trim(the_type)="date" then

Dy = cint(mid(deal_value,pos1+1))

else

dim H,M,S

deal_value=mid(deal_value,pos1+1)

pos1=instr(deal_value," ")

Dy=cint(mid(deal_value,1,pos1-1))

deal_value=mid(deal_value,pos1+1)

pos1=instr(deal_value,":")

H=cint(mid(deal_value,1,pos1-1))

deal_value=mid(deal_value,pos1+1)

pos1=instr(deal_value,":")

M=cint(mid(deal_value,1,pos1-1))

S=cint(mid(deal_value,pos1+1))

end if

nextmonth = false

<HTML>

<HEAD>

{ FONT-SIZE: 13px; COLOR: #000000;TEXT-DECORATION: none }

A:hover

{COLOR: #ff0000;

}

</style>

//检查字符串是否为日期，返回值：false、true

function f_chkDate(datestr)

{

var lthdatestr

if (datestr != "")

lthdatestr= datestr.length ;

else

lthdatestr=0;

var tmpy="";

var tmpm="";

var tmpd="";

//var datestr;

var status;

status=0;

if ( lthdatestr== 0)

return false;

if(lthdatestr>10)

return false;

for (i=0;i < lthdatestr;i++)

{ if (datestr.charAt(i)== '-')

{

status++;

}

if (status>2)

{

//alert("Invalid format of date!");

return false;

}

if ((status==0) && (datestr.charAt(i)!='-'))

{

tmpy=tmpy+datestr.charAt(i)

}

if ((status==1) && (datestr.charAt(i)!='-'))

{

tmpm=tmpm+datestr.charAt(i)

}

if ((status==2) && (datestr.charAt(i)!='-'))

{

tmpd=tmpd+datestr.charAt(i)

}

year=new String (tmpy);

month=new String (tmpm);

day=new String (tmpd);

//tempdate= new String (year+month+day);

//alert(tempdate);

if ((tmpy.length!=4) || (tmpm.length>2) || (tmpd.length>2))

{

//alert("Invalid format of date!");

return false;

}

if (!((1<=month) && (12>=month) && (31>=day) && (1<=day)) )

{

//alert ("Invalid month or day!");

return false;

}

if (!((year % 4)==0) && (month==2) && (day==29))

{

//alert ("This is not a leap year!");

return false;

}

if ((month<=7) && ((month % 2)==0) && (day>=31))

{

//alert ("This month is a small month!");

return false;

}

if ((month>=8) && ((month % 2)==1) && (day>=31))

{

//alert ("This month is a small month!");

return false;

}

if ((month==2) && (day==30))

{

//alert("The Febryary never has this day!");

return false;

}

return true;

}

function right(str,number)

{

return str.substr(str.length - number,str.length);

}

function setDate(Dy,Mo,Yr,vBool)

{

if (vBool)

{

if (Mo<10) Mo="0"+Mo;

if (Dy<10) Dy="0"+Dy;

<%if the_type="datetime" then%>

top.opener.<%= datecntrl %>.value =Yr+"-"+Mo+"-"+Dy+" "+userform.hour.value+":"+userform.minute.value+":"+userform.second.value;

<%else%>

top.opener.<%= datecntrl %>.value =Yr+"-"+Mo+"-"+Dy;

<%end if%>

top.window.close();

}

<%if the_type="datetime" then%>

self.location.href="calendar.asp?type=<%=the_type%>&object=<%= datecntrl %>&value="+Yr+"-"+right(("0"+Mo),2)+"-"+right(("0"+Dy),2)+" "+userform.hour.value+":"+userform.minute.value+":"+userform.second.value;

<%else%>

self.location.href="calendar.asp?type=<%=the_type%>&object=<%= datecntrl %>&value="+Yr+"-"+right(("0"+Mo),2)+"-"+right(("0"+Dy),2);

<%end if%>

}

function saveDate()

{

<%if the_type="datetime" then%>

top.opener.<%= datecntrl %>.value ="<%= Yr & "-" & right("0"+cstr(Mo),2) & "-" & right("0"+cstr(Dy),2) %>"+" "+userform.hour.value+":"+userform.minute.value+":"+userform.second.value;

<%else%>

top.opener.<%= datecntrl %>.value ="<%= Yr & "-" & right("0"+cstr(Mo),2) & "-" & right("0"+cstr(Dy),2) %>";

<%end if%>

top.window.close();

}

</SCRIPT>

</HEAD>

<TR>

<%= sFont("2","宋体","",True) %>

<%= writeYears(Yr) %>

</TD>

<%= sFont("2","宋体","",True) %>

<%= writeMonths(Mo) %>

</TD>

</TR>

</TABLE>

function nextDate(startwith, maxdays)

startwith = startwith + 1

if startwith > maxdays then

startwith = 1

end if

nextDate = startwith

end function

function GetLastDay(Mo,Yr)

if Mo=2 then

if (Yr Mod 4)=0 then

GetLastDay = 29

else

GetLastDay = 28

end if

elseif ((Mo = 0) OR (Mo = 1) OR (Mo = 3) OR (Mo = 5) OR (Mo = 7) OR (Mo = 8) OR (Mo = 10) OR (Mo = 12)) then

GetLastDay = 31

else

GetLastDay = 30

end if

end function

function GetFirstDayOffset(Mo,Yr)

GetFirstDayOffset = weekday(Mo & "/01/" & Yr)-1

end function

function writeMonths(selMo)

dim i, selstr

selstr = "<SELECT NAME='Months' onChange='setDate(" & Dy & ",this.selectedIndex+1," & Yr & ",false);'>"

for i=1 to 12

if selMo = i then

selstr = selstr & "<OPTION SELECTED>" & MonthName(i)

else

selstr = selstr & "<OPTION>" & MonthName(i)

end if

selstr = selstr & "</SELECT>"

writeMonths = selstr

end function

function writeYears(selYear)

dim i, selstr

selstr = "<SELECT NAME='Years' onChange='setDate(" & Dy & "," & Mo & ",this.options[this.selectedIndex].value,false);'>"

for i=1900 to 2100

if selYear = i then

selstr = selstr & "<OPTION SELECTED VALUE=" & i & ">" & i & "年"

else

selstr = selstr & "<OPTION VALUE=" & i & ">" & i & "年"

end if

selstr = selstr & "</SELECT>"

writeYears = selstr

end function

prevMonthLastDate=GetLastDay((Mo-1),Yr)

currMonthLastDate=GetLastDay(Mo,Yr)

startwith=(prevMonthLastDate-GetFirstDayOffset(Mo, Yr))

<TR>