日历控件

calendar.htm:

<html>

<head>

</head>

<tr>

<tr>

</select>

</select></th>

</th>

</tr>

</table>

</table>

</th>

</tr>

</table>

</center></body>

</html>

sub window_onload()

seldate=date()

thismonth=cdate(year(date()) & "-" & month(date()) & "-1")

showcal thismonth, seldate

end sub

sub seltoday()

showcal cdate(year(date()) & "-" & month(date()) & "-1"), date()

window.external.raiseEvent date(),window.document

end sub

sub showm(sm)

showcal dateadd("m",sm,document.all.hshowmonth.value),document.all.hselday.value

end sub

sub changey()

selymd=document.all.sely.options(document.all.sely.selectedIndex).value & "-" & month(document.all.hshowmonth.value) & "-1"

showcal selymd,document.all.hselday.value

end sub

sub changem()

selymd=year(document.all.hshowmonth.value) & "-" & document.all.selm.options(document.all.selm.selectedIndex).value & "-1"

showcal selymd,document.all.hselday.value

end sub

sub document_onclick()

if window.event.srcElement.tagName="TD" or window.event.srcElement.tagName="FONT" then

if window.event.srcElement.tagName="TD" then

clickd1=cint(window.event.srcElement.children(0).innerText)

clickd2=cint(mid(window.event.srcElement.id,2,1))

elseif window.event.srcElement.tagName="FONT" then

clickd1=cint(window.event.srcElement.innerText)

clickd2=cint(mid(window.event.srcElement.parentElement.id,2,1))

end if

if clickd1>20 and clickd2=0 then

csm=dateadd("m", -1, cdate(document.all.hshowmonth.value))

elseif clickd1<15 and clickd2>3 then

csm=dateadd("m", +1, cdate(document.all.hshowmonth.value))

else

csm=document.all.hshowmonth.value

end if

csd=year(csm) & "-" & month(csm) & "-" & clickd1

showcal csm, csd

window.external.raiseEvent csd,window.document

end if

end sub

sub showcal(tm, sd)

document.all.hshowmonth.value=tm

document.all.hselday.value=sd

y=year(tm)

m=month(tm)

document.all.sely.selectedIndex=y-1920

document.all.selm.selectedIndex=m-1

k=1-weekday(tm)

chkd=""

for i=0 to 5

for j=0 to 6

k=k+1

if k<1 then

if year(dateadd("m",-1,tm))=year(sd) and month(dateadd("m",-1,tm))=month(sd) and day(dateadd("d",k-1,tm))=day(sd) then

document.all("d" & i & j).innerHTML="<font color=BLUE style='font-weight:Bold' face=Arial>" & day(dateadd("d",k-1,tm)) & "</font>"

else

document.all("d" & i & j).innerHTML="<font color=#B2B2B2 face=Arial>" & day(dateadd("d",k-1,tm)) & "</font>"

end if

elseif k>day(dateadd("d",-1,dateadd("m",1,tm))) then

k=1

chkd="Y"

document.all("d" & i & j).innerHTML="<font color=#B2B2B2 face=Arial>" & k & "</font>"

else

if chkd="Y" then

if year(dateadd("m",+1,tm))=year(sd) and month(dateadd("m",+1,tm))=month(sd) and k=day(sd) then

document.all("d" & i & j).innerHTML="<font color=BLUE style='font-weight:Bold' face=Arial>" & k & "</font>"

else

document.all("d" & i & j).innerHTML="<font color=#B2B2B2 face=Arial>" & k & "</font>"

end if

else

if year(tm)=year(sd) and month(tm)=month(sd) and k=day(sd) then

document.all("d" & i & j).innerHTML="<font color=BLUE style='font-weight:Bold' face=Arial>" & k & "</font>"

else

document.all("d" & i & j).innerHTML="<font color=BLACK face=Arial>" & k & "</font>"

end if

end sub

</script>

calendar.inc:

<OBJECT id=calendar style="LEFT: 310px; VISIBILITY: hidden; TOP: 237px; POSITION: ABSOLUTE;" type=text/x-scriptlet

height=160 width=245 data=../script/calendar.htm></OBJECT>

dim CanTarget

sub btdate(n)

If document.all.calendar.style.visibility="" Then

document.all.calendar.style.visibility="hidden"

Else

DivTop = document.body.scrolltop + window.event.Y + 30

document.all.calendar.style.top = Divtop

document.all.calendar.style.visibility=""

End If

CanTarget=n

end sub

sub calendar_onscriptletevent(n,o)

document.all.calendar.style.visibility="hidden"

document.all(CanTarget).value=n

end sub

</script>

调用:

Sub QueryTransfer(xlink)

QueryForm.encoding="application/x-www-form-urlencoded"

QueryForm.action = xlink

QueryForm.Submit

End Sub

</SCRIPT>