【网页特效-时间特效】用文字链接在页面中打开相应的时间表,然后选择.docVIP

【网页特效-时间特效】用文字链接在页面中打开相应的时间表,然后选择.txt两人之间的感情就像织毛衣，建立的时候一针一线，小心而漫长，拆除的时候只要轻轻一拉。。。。style type=text/css TABLE.cal { COLOR: #c0c0c0; WIDTH: 200px } TD.cal { FONT-FAMILY: tahoma; FONT-SIZE: 12pt; TEXT-ALIGN: center } INPUT.cal { COLOR: white; BACKGROUND: black; BORDER: none; WIDTH: 20 } A { TEXT-DECORATION: none; } A.cal:link { COLOR: white; } A.cal:visited { COLOR: white; } A.cal:active { COLOR: white; } A.cal:hover { COLOR: gray; } A.tdy:link { COLOR: #c5f9c5; } A.tdy:visited { COLOR: #c5f9c5; } A.tdy:active { COLOR: white; } A.tdy:hover { COLOR: gray; } A.tdz:link { COLOR: yellow; FONT-WEIGHT: bold; } A.tdz:visited { COLOR: yellow; FONT-WEIGHT: bold; } #ppcalendar { LEFT: 116px; POSITION: absolute; TOP: 100px } #pcmonth { LEFT: 116px; POSITION: absolute; TOP: 100px } /style SCRIPT language=vbscript function mlookup(mnt) select case mnt case 1 mlookup=J A N case 2 mlookup=F E B case 3 mlookup=M A R case 4 mlookup=A P R case 5 mlookup=M A Y case 6 mlookup=J U N case 7 mlookup=J U L case 8 mlookup=A U G case 9 mlookup=S E P case 10 mlookup=O C T case 11 mlookup=N O V case 12 mlookup=D E C end select end function function mlookup2(mnt) select case mnt case 1 mlookup2=January case 2 mlookup2=February case 3 mlookup2=March case 4 mlookup2=April case 5 mlookup2=May case 6 mlookup2=June case 7 mlookup2=July case 8 mlookup2=August case 9 mlookup2=September case 10 mlookup2=October case 11 mlookup2=November case 12 mlookup2=December end select end function function yformat(yyr) for a=1 to len(yyr) b=b+mid(yyr,a,1)+ next yformat=mid(b,1,len(b)-1) end function function dlookup(mm, yy) dlookup=31 if mm8 and mm/2=fix(mm/2) then dlookup=30 if mm7 and mm/2fix(mm/2) then dlookup=30 if mm=2 then lpyr=leapyear(yy) if lpyr=1 then dlookup=29 if lpyr=0 then dlookup=28 end if end function function leapyear(yyr) leapyear=0 if yyr/4=fix(yyr/4) then leapyear=1 if yyr/100=fix(yyr/100) then leapyear=0 if yyr/400=f