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;
   <%else%>
    top.opener.<%= datecntrl %>.value ="<%= Yr & "-" & right("0"+cstr(Mo),2) & "-" & right("0"+cstr(Dy),2) %>";
   <%end if%>
   top.window.close();
  }
  
  </SCRIPT>
 </HEAD>
 <BODY 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=" 确定 " >   <INPUT TYPE="button" VALUE=" 取消 " >
   </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

function f_get_date(object_name){
 var object_value="";
 eval("object_value="+object_name+".value");
if(!f_chkDate(object_value)){
  var v_today=new Date();
  object_value=v_today.getYear()+"-"+(v_today.getMonth()+1)+"-"+(v_today.getDate());
 }
open('calendar.asp?type=date&object='+object_name+'&value='+object_value,'calendar','resizable=yes,toolbar=no,scrollbars=no,directories=no,menubar=no,width=180,height=240');
}
//获取日历时间函数
function f_get_datetime(object_name){
 var object_value="";
 eval("object_value="+object_name+".value");
 open('calendar.asp?type=datetime&object='+object_name+'&value='+object_value,'calendar','resizable=yes,toolbar=no,scrollbars=no,directories=no,menubar=no,width=210,height=270');
}

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

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

        <script language="javascript" src="JavaScriptdate.js"></script>

        <input class="input" style="cursor:hand"; name="myTime" type="text" id="myTime" size="16" value="" readonly="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>

时间： 2024-10-07 09:08:35

ASP+JavaScript的完整的日历使用的相关文章

ASP+&amp;#106avascript的完整的日历使用

asp+|日历 第一步:保存下列文件为:CALENDAR.ASP <%@ LANGUAGE = VBScript %><% Option Explicit %><%Function sFont(iSize,sFace,sColor,bScale) Dim sOutputStr sOutputStr = "<FONT" if sFace <> "" then sOutputStr = sOutputStr & &

ASP.net下的前台日历控件源代码

asp.net|控件|日历|源代码 #region 声明//----------------------------------------------------------------------//// 作者: 李淼(Nick.Lee)//// ASP.net下的前台日历控件源代码(不刷新页面) // 时间:2005-3-15 // boyorgril@msn.com// QQ:16503096//注意:引用请标明出处,谢谢//-------------------------------

ASP.net下的前台日历控件源代码(不刷新页面)

asp.net|控件|日历|刷新|页面|源代码 #region 声明//----------------------------------------------------------------------//// 作者: 李淼(Nick.Lee)//// ASP.net下的前台日历控件源代码(不刷新页面) // 时间:2005-3-15 // boyorgril@msn.com// QQ:16503096//注意:引用请标明出处,谢谢//-------------------------

javascript定时器完整实例

 这篇文章主要介绍了javascript定时器完整实现方法,以实例形式分析了定时器的嵌套调用技巧,具有一定参考借鉴价值,需要的朋友可以参考下     本文实例讲述了javascript定时器完整实现方法.分享给大家供大家参考.具体实现方法如下:   代码如下: <!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd"

ASP javascript Application对象的Contents和StaticObjects做Cache的一些经验_应用技巧

Application对象内置集合有为存放简单类型设计的Contents,默认Application("key")就可以使用. 不过Application.Contents不能存放对象,可以存vbs数组,但是在javascript下甚至数组都不能放. 使用Application.Contents时,只能用丑陋的如: for(var i=0;i<15000;i++){     Application.Lock();        // Application.Contents(i)

javascript定时器完整实例_javascript技巧

本文实例讲述了javascript定时器完整实现方法.分享给大家供大家参考.具体实现方法如下: 复制代码 代码如下: <!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd"> <html> <head> <meta http-equiv="Content-Type&qu

asp.net用ajax的日历扩展没有效果

问题描述 asp.net用ajax的日历扩展没有效果 asp.net的textbox添加了日历控件但是运行时没有弹出日历是怎么回事,急求高人指点

ASP javascript Application对象的Contents和StaticObjects做Cache的一些经验

Application对象内置集合有为存放简单类型设计的Contents,默认Application("key")就可以使用. 不过Application.Contents不能存放对象,可以存vbs数组,但是在javascript下甚至数组都不能放. 使用Application.Contents时,只能用丑陋的如: for(var i=0;i<15000;i++){     Application.Lock();        // Application.Contents(i)

用ASP.NET构建完整E-mail发送系统

asp.net 如果要你用ASP来做一个E-mail发送系统,你首先想到的一定是借助第三方开发的组件,但这样做会耗费你很多的银子.当然你也可以用Windows的自带的对象--CDONTS.NewMail对象来传送E-mail,这虽然是免费的,但却十分依赖操作平台,CDONTS.NewMail对象只存在Windows 200和NT底下,在Windows 95/98底下是没有这个对象.自从Microsoft公司推出了ASP.NET,E-mail的发送已经成为WEB程序设计的基本对象.本篇文章就是来讨