ASP+JavaScript的完整的日历使用

文章作者：
责任编辑：rosan　录入时间：2006-10-12 23:43:12 来源：
频道声明：本频道的文章除部分特别声明禁止转载的专稿外，可以自由转载.但请务必注明出出处和原始作者文章版权归本频道与文章作者所有.对于被频道转载文章的个人和网站,我们表示深深的谢意.

百特科技[http://www.PCbyte.cn]专业的空间、主机提供商，域名注册绝对优惠！

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

此新闻共有7页上一页 1 2 3 4 5 6 7 下一页