📄 dateinput.asp
字号:
<%
dim sYear
dim sMonth
if request("sYear")="" then
sYear=year(date())
sMonth=month(date())
else
sYear=request("sYear")
sMonth=request("sMonth")
end if
sub InitCalendar()'初始化日历
dim I
dim J
dim WeekNum
dim StartWeek'本月1号的星期数
dim MonthDay'本月的天数
StartWeek=Weekday(sYear &"-"& sMonth &"-01")
if sMonth=12 then
MonthDay=datediff("d",sYear&"-" &sMonth&"-01",(sYear+1)&"-01-01")
else
MonthDay=datediff("d",sYear&"-" &sMonth&"-01",sYear&"-" &(sMonth+1) &"-01")
end if
if (MonthDay+StartWeek) mod 7=0 or (MonthDay+StartWeek) mod 7=1 then'获得本月的周数
WeekNum=(MonthDay+StartWeek)/7
else
WeekNum=int(MonthDay+StartWeek)/7+1
end if
DayNo=1
for I=1 to WeekNum '按周(行)填写内容
response.Write("<tr align='center' height='20'>")
for J=1 to 7
if DayNo>MonthDay then '判断是否超过本月天数
response.Write("<td > </td>")
else
if (J< StartWeek and I=1)then
response.Write("<td> </td>")
else
if year(date)=sYear and month(date)=sMonth and day(date)=DayNo then
Acls="today"
else
Acls="unnamed1"
end if
'if J=1 or J=7 then '判断是否是周末
'response.Write("<td width='71' valign='top' bgcolor='#D9DBEF'><a href='disdayplan.asp?sYear="& sYear & "&sMonth=" & sMonth & "&sDay=" & DayNo &"' class='"&Acls&"'>"& DayNo &"号</a>"& "</td>")
'else
response.Write("<td width='71' valign='top' valign='bottom'><a href='#' class='"&Acls&"' onClick=opener.document."& request("Accept") &".value='"&sYear&"-"&sMonth&"-"&DayNo &"';window.close();>"& DayNo &"号</a>"& "</td>")
'end if
DayNo=DayNo+1
end if
end if
next
response.Write("</tr>")
next
end sub
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>日期选择</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">
<!--
td {
font-size: 12px;}
.unnamed1:visited {color: #333366;text-decoration: none;}
.unnamed1:link {color: #333366;text-decoration: none;}
.unnamed1:hover {color: #8A8DAC;text-decoration: underline;}
.today{
color:#ee0000;
text-decoration:none;
font-weight: bold;
}
-->
</style>
<script language="JavaScript">
<!--
function changenum(obj,h)
{
//frmquery.sMonth.value=(frmquery.sMonth.value-0)++;
if (h==1){
frmquery.item(obj).value++;
if (frmquery.item('sMonth').value==13) frmquery.item('sMonth').value=12;
if (frmquery.item('sYear').value>=2050) frmquery.item('sYear').value=2050;
}
else
{
frmquery.item(obj).value--;
if (frmquery.item('sMonth').value==0) frmquery.item('sMonth').value=1;
if (frmquery.item('sYear').value<=1900) frmquery.item('sYear').value=1900;
}
frmquery.submit();
}
function checknum()
{
//frmquery.sMonth.value=(frmquery.sMonth.value-0)++;
if (frmquery.item('sMonth').value>=13) frmquery.item('sMonth').value=12;
if (frmquery.item('sMonth').value<=0) frmquery.item('sMonth').value=1;
if (frmquery.item('sYear').value<=1900) frmquery.item('sYear').value=1900;
if (frmquery.item('sYear').value>=2050) frmquery.item('sYear').value=2050;
}
//-->
</script>
</head>
<body leftmargin="0" topmargin="0" bgcolor="#E7CCA1">
<table width="320" height="155" border="0" align="center" cellpadding="0" cellspacing="0" >
<tr>
<td height="31" align="center"> 日 期 选 择</td>
</tr>
<tr>
<td height="22"><table border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="28" align="center" valign="middle" bordercolor="#FFFFFF">
<table width="170" height="12" border="0" align="center" cellpadding="0" cellspacing="0">
<form name="frmquery" method="post" action=""><tr>
<td width="17%" height="10" rowspan="2" align="right" valign="middle"><input name="sYear" type="text" onChange=checknum() value=<%response.Write(sYear)%> size="4" maxlength="4" align="middle"></td>
<td width="9%" height="10" valign="bottom"><a href="javascript:changenum('sYear',1)"><img src="../images/up.gif" width="15" height="15" border="0"></a></td>
<td width="120" height="10" rowspan="2" align="right" valign="middle"> 年
<input name="sMonth" type="text" size="2" maxlength="2" align="middle" onChange=checknum() value=<%response.Write(sMonth)%>>
</td>
<td width="9%" height="10" valign="bottom"><a href="javascript:changenum('sMonth',1)"><img src="../images/up.gif" width="15" height="15" border="0"></a></td>
<td width="141" height="10" rowspan="2" valign="top"> 月 <input type="submit" name="Submit" value="查 询" onFocus=checknum() style="width:0px;">
<input type="hidden" name="Accept" value="<%=request("Accept")%>"></td>
</tr>
<tr>
<td height="9" valign="top"><a href="javascript:changenum('sYear',0)"><img src="../images/down.gif" width="15" height="15" border="0"></a></td>
<td valign="top"><a href="javascript:changenum('sMonth',0)"><img src="../images/down.gif" width="15" height="15" border="0"></a></td>
</tr>
</form></table>
</td>
</tr>
<tr>
<td valign="top" ><table width="400" border=1 borderColor=#333E01 cellPadding=5 cellSpacing=0 style="BORDER-COLLAPSE: collapse">
<tr align="center" bgcolor="#9CA663">
<td width="41" height="30"><font color="#FFFFFF">星期日</font></td>
<td width="41" ><font color="#FFFFFF">星期一</font></td>
<td width="41"><font color="#FFFFFF">星期二</font></td>
<td width="41" ><font color="#FFFFFF">星期三</font></td>
<td width="41"><font color="#FFFFFF">星期四 </font></td>
<td width="41"><font color="#FFFFFF">星期五</font></td>
<td width="41" ><font color="#FFFFFF">星期六</font></td>
</tr>
<%InitCalendar%>
</table></td>
</tr>
</table>
</td>
</tr>
<tr>
<td height="38" align="center" valign="middle"><font color="#FF0000">今天是 <%=Date%></font>
</td>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -