当前位置:编程学习 > JAVA >>

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

补充:web前端 , JavaScript ,
CopyRight © 2022 站长资源库 编程知识问答 zzzyk.com All Rights Reserved
部分文章来自网络,