ASP+JavaScript的完整的日历使用-ASP教程,ASP应用-IDC资讯中心

第一步：保存下列文件为: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

end if

nextmonth = false

%>

<html>

<head>

<meta http-equiv="content-type" content="text/html; charset=gb2312">

<meta name="generator" content="microsoft frontpage 4.0">

<meta name="progid" content="frontpage.editor.document">

<style type="text/css">

a

{ font-size: 13px; color: #000000;text-decoration: none }

a:hover

{color: #ff0000;

}

</style>

<title>日历</title>

<script language="javascript">

//检查字符串是否为日期，返回值：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>

<body onload="javascript:window.focus()" bgcolor="#ccffff">

<form name="userform">

<table width="100%" cellpadding="2" cellspacing="0">

<tr>

<td align="left">

<%= sfont("2","宋体","",true) %>

<%= writeyears(yr) %>

</td>

<td align="right">

<%= sfont("2","宋体","",true) %>

<%= writemonths(mo) %>

</td>

</tr>

</table>

<table width="100%" border="1" bordercolor="silver" cellpadding="2" cellspacing="0">

<%

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

next

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

next

selstr = selstr & "</select>"

writeyears = selstr

end function

prevmonthlastdate=getlastday((mo-1),yr)

currmonthlastdate=getlastday(mo,yr)

startwith=(prevmonthlastdate-getfirstdayoffset(mo, yr))

%>

<tr>

<td width="20" height="20" bgcolor="gray" bordercolor="silver" bordercolordark="#ffffff" bordercolorlight="#000000">

<%= sfont("2","宋体","#ffffff",true) %>

<b>日</b>

</td>

<td width="20" height="20" bgcolor="gray" bordercolor="silver" bordercolordark="#ffffff" bordercolorlight="#000000">

<%= sfont("2","宋体","#ffffff",true) %>

<b>一</b>

</td>

<td width="20" height="20" bgcolor="gray" bordercolor="silver" bordercolordark="#ffffff" bordercolorlight="#000000">

<%= sfont("2","宋体","#ffffff",true) %>

<b>二</b>

</td>

<td width="20" height="20" bgcolor="gray" bordercolor="silver" bordercolordark="#ffffff" bordercolorlight="#000000">

<%= sfont("2","宋体","#ffffff",true) %>

<b>三</b>

</td>

<td width="20" height="20" bgcolor="gray" bordercolor="silver" bordercolordark="#ffffff" bordercolorlight="#000000">

<%= sfont("2","宋体","#ffffff",true) %>

<b>四</b>

</td>

<td width="20" height="20" bgcolor="gray" bordercolor="silver" bordercolordark="#ffffff" bordercolorlight="#000000">

<%= sfont("2","宋体","#ffffff",true) %>

<b>五</b>

</td>

<td width="20" height="20" bgcolor="gray" bordercolor="silver" bordercolordark="#ffffff" bordercolorlight="#000000" style="font-family: helv,arial; font-size: 10pt;">

<%= sfont("2","宋体","#ffffff",true) %>

<b>六</b>

</td>

</tr>

<% for j = 1 to 6 %>

<tr>

<% for i = 1 to 7 %>

<% if j = 1 then %>

<% startwith = nextdate(startwith, prevmonthlastdate) %>

<% if startwith = dy and startwith < 7 then %>

<td width="20" height="20" bgcolor="#aaaaaa" bordercolor="#aaaaaa" bordercolordark="#ffffff" bordercolorlight="#aaaaaa">

<% else %>

<td width="20" height="20" bordercolor="silver" bordercolordark="#ffffff" bordercolorlight="#000000">

<% end if %>

<% thisyr = yr %>

<%= sfont("2","宋体","",true) %>

<% if startwith < 7 then %>

<b>

<% thismo = mo %>

<% else %>

<% thismo = mo – 1 %>

<% if thismo = 0 then %>

<% thismo = 12 %>

<% thisyr = yr-1 %>

<% end if %>

<% end if %>

<a href="javascript:setdate( <%= startwith %>, <%= thismo %>,<%= thisyr %>,false);" >

<% response.write startwith %>

</a></b>

</td>

<% else %>

<% lastnum = startwith %>

<% startwith = nextdate(startwith, currmonthlastdate) %>

<% if lastnum > startwith then%>

<% nextmonth = true %>

<% end if %>

<% if startwith = dy and not nextmonth then %>

<td width="20" height="20" bgcolor="#aaaaaa" bordercolor="#aaaaaa" bordercolordark="#aaaaaa" bordercolorlight="#ffffff">

<% else %>

<td width="20" height="20" bordercolor="silver" bordercolordark="#ffffff" bordercolorlight="#000000">

<% end if %>

<% thisyr = yr %>

<% if not nextmonth then %>

<b>

<% thismo = mo %>

<% else %>

<% thismo = mo + 1 %>

<% if thismo = 13 then %>

<% thismo = 1 %>

<% thisyr = yr+1 %>

<% end if %>

<% end if %>

<%= sfont("2","宋体","",true) %>

<a href="javascript:setdate(<%= startwith %>, <%= thismo %>, <%= thisyr %>,false);" >

<% response.write startwith %>

</a></b>

</td>

<% end if %>

<% next %>

</tr>

<% next %>

</table>

<table>

<tr>

<td>

<%if the_type="datetime" then%>

<select size="1" name="hour">

<%

for i=0 to 23

if (i=h) then

response.write "<option selected value="+right("0"+cstr(i),2)+">"+right("0"+cstr(i),2)+"时"+"</option>"

else

response.write "<option value="+right("0"+cstr(i),2)+">"+right("0"+cstr(i),2)+"时"+"</option>"

end if

next

%>

</select>

<select size="1" name="minute">

<%

for i=0 to 59

if (i=m) then

response.write "<option selected value="+right("0"+cstr(i),2)+">"+right("0"+cstr(i),2)+"分"+"</option>"

else

response.write "<option value="+right("0"+cstr(i),2)+">"+right("0"+cstr(i),2)+"分"+"</option>"

end if

next

%>

</select>

<select size="1" name="second">

<%

for i=0 to 59

if (i=s) then

response.write "<option selected value="+right("0"+cstr(i),2)+">"+right("0"+cstr(i),2)+"秒"+"</option>"

else

response.write "<option value="+right("0"+cstr(i),2)+">"+right("0"+cstr(i),2)+"秒"+"</option>"

end if

next

%>

</select>

<%end if%>

</td>

</tr>

</table>

<center>

<input type="button" id="ok" value=" 确定 " onclick="savedate();">   <input type="button" value=" 取消 " onclick="top.window.close();">

</center>

</form>

<script language="javascript">

var strdate = <%=yr%>+"-"+right(("0"+<%=mo%>),2)+"-"+right(("0"+<%=dy%>),2);

if (f_chkdate(strdate))

document.all.ok.disabled = false;

else

document.all.ok.disabled = true;

</script>

</body>

</html>

第二步:保存下列文件为:javascriptdate.js

//检查字符串是否为日期，返回值：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;

}

year=new string (tmpy);

month=new string (tmpm);

day=new string (tmpd);

return true;

}

第三步:在页中加入如下示例:(使用页)

1.获取日期:

<script language="javascript" event="onclick" for="mytime">

f_get_date("document.all.mytime");

</script>

2.获取日期和时间

<script language="javascript" event="onclick" for="mytime">

f_get_datetime("document.all.mytime");

</script>

ASP+JavaScript的完整的日历使用-ASP教程,ASP应用

相关推荐

热门标签

热门文章

分类目录