ENGLISH 意见建议 网站地图 网站帮助
广泛智力汇聚   高效成果传播   先进机制培育
联盟首页  |  协同开发  |  开放源码库  |  安全告警  |  开源导航  |  文档中心  |  服务支持  |  共创论坛  |  关于联盟


注册会员 网站帮助
    您的位置 »
    今天是: 2010年11月22日    
项目搜索

完全匹配   
开源软件
软件分类表
新发布软件
其它网站镜像
代码片断
协同开发
文档
论坛
寻求协助
热点项目
站点状态
编译工厂

联系我们
关于联盟
代码片段库:
查看代码片段

浏览 | 提交新的代码片段 | 创建代码包

页面内的日历显示

类型:
Full Script		 类别:
HTML Manipulation
许可证:
GNU General Public License		 语言:
JavaScript
 
描述:
用文字链接在页面中打开相应的时间表，然后选择，做程序时用

该代码片段的版本系列:

片段ID 下载版本 提交时间 提交人 删除
46601.02003-10-13 22:59cbd001

点击"下载版本"来下载该代码片段.

最新版本的代码片段: 1.0


脚本说明:
第一步：把如下代码加入<body>区域中
<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 mm<8 and mm/2=fix(mm/2) then dlookup=30
	if mm>7 and mm/2<>fix(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=fix(yyr/400) then leapyear=1
end function

function namedate2(mmddyy)
	ddate=mmddyy
	yys=mid(ddate,1,4)
	mms=mid(ddate,5,2)
	dds=mid(ddate,7,2) * 1
	ndate=mlookup2(mms) & " " & dds & ", " & yys
	namedate2=ndate
end function

sub init()
	document.all.mm.value=month(now())
	document.all.yy.value=year(now())
	document.all.dd.value=day(now())
	call pcalendar()
end sub

sub pcalendar()
	mnt=document.all.mm.value
	yyr=document.all.yy.value
	ddy=document.all.dd.value
	fday=weekday(mnt & "/1/" & yyr)
	lday=dlookup(mnt, yyr)

	innerHTML="<a class='tdy' href='javascript: showPcmonth()'>  " & mlookup(mnt) &  "   " & yformat(yyr) & " </a>"
	document.all.my.innerHTML=innerHTML

	innerHTML="<a class='tdy' href='javascript: hidePcmonth()'> " & yformat(yyr) & " </a>"
	document.all.y.innerHTML=innerHTML

	for a=1 to 6				' six weeks
		for b=1 to 7			' seven days
			c=c+1
			if c>=fday then
				d=d+1
			else 	
				d=0
			end if
			targetId=a & b
			if d<=lday then 
				if d=day(now()) and int(mnt)=month(now()) and int(yyr)=year(now()) then
					innerHTML="<a class='tdz' "
				else
					innerHTML="<a class='cal' "
				end if
				innerHTML=innerHTML & "href='javascript: outday(" & d & ")'> " & d & " </a>"
				if d=0 then innerHTML=""
				document.all(targetId).innerHTML=innerHTML
			else
				document.all(targetId).innerHTML=""
			end if
		next
		fday=1
	next	
end sub

sub prevyr()
	showpcmonth()
	document.all.yy.value=document.all.yy.value-1
	call pcalendar()
end sub

sub nextyr()
	showpcmonth()
	document.all.yy.value=document.all.yy.value+1
	call pcalendar()
end sub

sub prevmo()
	showpcal()
	document.all.mm.value=document.all.mm.value-1
	if document.all.mm.value=0 then 
		document.all.mm.value=12
		document.all.yy.value=document.all.yy.value-1
	end if
	call pcalendar()
end sub

sub nextmo()
	showpcal()
	document.all.mm.value=document.all.mm.value+1
	if document.all.mm.value=13 then 
		document.all.mm.value=1
		document.all.yy.value=document.all.yy.value+1
	end if	
	call pcalendar()
end sub

sub outday(dd)
	mms=document.all.mm.value
	yys=document.all.yy.value
	dds=document.all.dd.value
	'dout=yys & right("0" & mms, 2) & right ("0" & dd,2)
	dout= mms & "/" & dd & "/" & yys
	dtgo=document.all.cinput.value
	document.all(dtgo).value=dout	
	call hidePCal()
end sub

sub showPCalE(ddd) 
	ddate=document.all(ddd).value
	yys=year(ddate)
	mms=month(ddate)
	dds=day(ddate)

	if yys-document.all("yy").value<>0 or mms-document.all("mm").value<>0 then
		document.all("yy").value=yys
		document.all("mm").value=mms
		pcalendar()	
	end if

	showPCal()
	document.all("cinput").value=ddd
end sub

sub cmonth(mnt)
	document.all.mm.value=mnt
	hidePCmonth()
	call pcalendar()	
end sub

sub showPCmonth()
	document.all("pcmonth").style.display=""
end sub

sub hidePCmonth()
	showpcal()
	document.all("pcmonth").style.display="none"
end sub

sub showPCal()
	document.all("ppcalendar").style.display=""
end sub

sub hidePCal()	
	document.all("ppcalendar").style.display="none"
	document.all("pcmonth").style.display="none"	
end sub

</SCRIPT>

<DIV id=ppcalendar style="display: none">
<TABLE class="cal" bgColor=black cellPadding=0 cellSpacing=0 height=18>
  <TBODY>
  <TR>
    <TD class="cal" width=20><input class="cal" type="button" value="<" onclick="javascript: prevmo()"></TD>
    <TD class="cal" id=my width=160>Month Year </TD>
    <TD class="cal" width=20><input class="cal" type="button" value=">" onclick="javascript: nextmo()"></TD>
</TR></TBODY></TABLE>
<TABLE class="cal" bgColor=#555555 cellPadding=0 cellSpacing=0>
  <TBODY>
  <TR>
    <TD class="cal">Su</TD>
    <TD class="cal">Mo</TD>
    <TD class="cal">Tu</TD>
    <TD class="cal">We</TD>
    <TD class="cal">Th</TD>
    <TD class="cal">Fr</TD>
    <TD class="cal">Sa</TD></TR>
  <TR>
    <TD></TD></TR></TBODY></TABLE>
<TABLE class="cal" bgColor=black cellPadding=0 cellSpacing=0 height=120>
  <TBODY>
  <TR>
    <TD class="cal" id=11> </TD>
    <TD class="cal" id=12> </TD>
    <TD class="cal" id=13> </TD>
    <TD class="cal" id=14> </TD>
    <TD class="cal" id=15> </TD>
    <TD class="cal" id=16> </TD>
    <TD class="cal" id=17> </TD></TR>
  <TR>
    <TD class="cal" id=21> </TD>
    <TD class="cal" id=22> </TD>
    <TD class="cal" id=23> </TD>
    <TD class="cal" id=24> </TD>
    <TD class="cal" id=25> </TD>
    <TD class="cal" id=26> </TD>
    <TD class="cal" id=27> </TD></TR>
  <TR>
    <TD class="cal" id=31> </TD>
    <TD class="cal" id=32> </TD>
    <TD class="cal" id=33> </TD>
    <TD class="cal" id=34> </TD>
    <TD class="cal" id=35> </TD>
    <TD class="cal" id=36> </TD>
    <TD class="cal" id=37> </TD></TR>
  <TR>
    <TD class="cal" id=41> </TD>
    <TD class="cal" id=42> </TD>
    <TD class="cal" id=43> </TD>
    <TD class="cal" id=44> </TD>
    <TD class="cal" id=45> </TD>
    <TD class="cal" id=46> </TD>
    <TD class="cal" id=47> </TD></TR>
  <TR>
    <TD class="cal" id=51> </TD>
    <TD class="cal" id=52> </TD>
    <TD class="cal" id=53> </TD>
    <TD class="cal" id=54> </TD>
    <TD class="cal" id=55> </TD>
    <TD class="cal" id=56> </TD>
    <TD class="cal" id=57> </TD></TR>
  <TR>
    <TD class="cal" id=61> </TD>
    <TD class="cal" id=62> </TD>
    <TD class="cal" id=63> </TD>
    <TD class="cal" id=64> </TD>
    <TD class="cal" id=65> </TD>
    <TD class="cal" id=66> </TD>
    <TD class="cal" id=67> </TD></TR></TBODY></TABLE>
</DIV>

<DIV id=pcmonth style="DISPLAY: none">
<TABLE class="cal" bgColor=black cellPadding=0 cellSpacing=0 height=18>
  <TBODY>
  <TR>
    <TD class="cal"  width=20><input class="cal" type="button" value="<" onclick="javascript: prevyr()"></TD>
    <TD class="cal"  id=y width=160>Month Year </TD>
    <TD class="cal"  width=20><input class="cal" type="button" value=">" onclick="javascript: nextyr()"></TD>
  </TD></TR></TBODY></TABLE>
<TABLE class="cal" bgColor=#555555 cellPadding=0 cellSpacing=0>
  <TBODY>
  <TR>
    <TD class="cal" >Select a month</TD></TR>
  <TR>
    <TD></TD></TR></TBODY></TABLE>
<TABLE class="cal" bgColor=black cellPadding=0 cellSpacing=0 height=120>
  <TBODY>
  <TR>
    <TD class="cal" ><A class="cal" href="javascript: cmonth(1)"> Jan </A></TD>
    <TD class="cal" ><A class="cal" href="javascript: cmonth(2)"> Feb </A></TD>
    <TD class="cal" ><A class="cal" href="javascript: cmonth(3)"> Mar </A></TD>
    <TD class="cal" ><A class="cal" href="javascript: cmonth(4)"> Apr </A></TD></TR>
  <TR>
    <TD class="cal" ><A class="cal" href="javascript: cmonth(5)"> May </A></TD>
    <TD class="cal" ><A class="cal" href="javascript: cmonth(6)"> Jun </A></TD>
    <TD class="cal" ><A class="cal" href="javascript: cmonth(7)"> Jul </A></TD>
    <TD class="cal" ><A class="cal" href="javascript: cmonth(8)"> Aug </A></TD></TR>
  <TR>
    <TD class="cal" ><A class="cal" href="javascript: cmonth(9)"> Sep </A></TD>
    <TD class="cal" ><A class="cal" href="javascript: cmonth(10)"> Oct </A></TD>
    <TD class="cal" ><A class="cal" href="javascript: cmonth(11)"> Nov </A></TD>
    <TD class="cal" ><A class="cal" href="javascript: cmonth(12)"> Dec </A></TD></TR></TBODY>
</TABLE>
</DIV>

<INPUT name=mm type=hidden value="3"> 
<INPUT name=dd type=hidden value="10"> 
<INPUT name=yy type=hidden value="1977">
<INPUT name=cinput type=hidden>

<script language=vbscript>
sub ck(xt)
k=document.all(xt).value
document.all(xt).value=formatdatetime("11/12/1999",2)
end sub
</script>
<input type="text" name="tdat2" value="3/10/77">
<a href="javascript: showPCalE('tdat2')">显示日历</a>



第二步：把<body>中的内容改为：
<body  onload="init()" onmouseup="hidepcal()">

提交新版本

如果您修改了一个代码片段并且觉得很应该让别人共享,您可以把这作为这个代码片段的最新版本提交上来.


联盟团体会员
合作伙伴
© 共创软件联盟 版权所有
联盟服务条款 | 联盟隐私权规则 | 联系我们
电话: (8610)68313388-5949 | 传真: (8610)88377936
京ICP备05056057号