ASP+JavaScript的完整的日历使用

枫

级别: 经院博士

发帖: 3975

铜板: 4727

人品值: 1147

贡献值: 565

交易币: 0

好评度: 3833

信誉值: 0

金币: 0

所在楼道: 学一楼

只看楼主更多操作楼层直达

0 发表于: 2006-07-09

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

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

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

日历

//检查字符串是否为日期，返回值：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 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) && (31>=day) && (1=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
top.opener..value =Yr+-+Mo+-+Dy+ +userform.hour.value+:+userform.minute.value+:+userform.second.value;

top.opener..value =Yr+-+Mo+-+Dy;

top.window.close();

}

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

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

}

function saveDate()
{

top.opener..value =+ +userform.hour.value+:+userform.minute.value+:+userform.second.value;

top.opener..value =;

top.window.close();
}

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 =
for i=1 to 12
if selMo = i then
selstr = selstr & & MonthName(i)
else
selstr = selstr & & MonthName(i)
end if
next
selstr = selstr &
writeMonths = selstr
end function

function writeYears(selYear)
dim i, selstr
selstr =
for i=1900 to 2100
if selYear = i then
selstr = selstr & & i & 年
else
selstr = selstr & & i & 年
end if
next
selstr = selstr &
writeYears = selstr
end function

prevMonthLastDate=GetLastDay((Mo-1),Yr)
currMonthLastDate=GetLastDay(Mo,Yr)
startwith=(prevMonthLastDate-GetFirstDayOffset(Mo, Yr))

%>

日

一

二

三

四

五

六

, ,,false); >

startwith then%>

, , ,false); >

+right(0+cstr(i),2)+时+
else
response.write +right(0+cstr(i),2)+时+
end if
next
%>

+right(0+cstr(i),2)+分+
else
response.write +right(0+cstr(i),2)+分+
end if
next
%>

+right(0+cstr(i),2)+秒+
else
response.write +right(0+cstr(i),2)+秒+
end if
next
%>

var strDate = +-+right((0+),2)+-+right((0+),2);
if (f_chkDate(strDate))
document.all.ok.disabled = false;
else
document.all.ok.disabled = true;

第二步:保存下列文件为: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 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) && (31>=day) && (1=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;
}

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

1.获取日期:

f_get_date(document.all.myTime);

2.获取日期和时间

f_get_datetime(document.all.myTime);

转自： ASP教程采集