📄 time.asp
字号:
<meta http-equiv="Content-Type" content="text/html; charSet=gb2312">
<table width="161" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="27"><img src="Image/top1.gIf" width="27" height="21"></td>
<td width="111" valign="baseline" background="Image/top2.gIf">
<div align="center">万年历查看</div></td>
<td width="37"><img src="Image/top3.gIf" width="37" height="21"></td>
</tr>
<tr>
<td colspan="3">
<table width="175" height="120" border="0" cellpadding="0" cellspacing="0" class="wenbenkuang">
<tr>
<td height="120" align="center">
<table width="140" border="0" align="center" cellpadding="0" cellspacing="0"
bordercolor="#BDBAAD">
<tr>
<td width="20"><div align="center">日</div></td>
<td width="20"><div align="center">一</div></td>
<td width="20"><div align="center">二</div></td>
<td width="20" height="20"><div align="center">三</div></td>
<td width="20"><div align="center">四</div></td>
<td width="20"><div align="center">五</div></td>
<td width="20" height="15"><div align="center">六</div></td>
</tr>
<tr>
<%
years=Year(times)
months=Month(times)
If months=1 or months=3 or months=5 or months=7 or months=8 or months=10 or months=12 Then
sum=31
Else
If months=2 Then
If years Mod 100<>0 and years Mod 4=0 or years Mod 400=0 Then
sum=29
Else
sum=28
End If
Else
sum=30
End If
End If
today=WeekDay(times) '
week=today-1
days=Day(times)
If days-today<0 Then
mi=today-days+1
Else
mi=7-((days-today) mod 7)+1
End If
If mi=0 Then mi=7 End If
mx=cint((sum+mi-1)/7)
a=(sum+mi-1) mod 7
If a<>0 and (cdbl(a)/7)<0.5 Then mx=mx+1 End If
If mi<>1 and mi<>8 Then
For i=1 To mi-1
%>
<td> <table border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="68" height="15"></td>
</tr>
<tr>
<td height="15"> </td>
</tr>
</table></td>
<%
Next
End If
sum1=8-mi
For m=1 To sum1
%>
<td> <table border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="68" height="15" bgcolor="<% If riqi=0 Then %>
<% If m=days Then%><%="#ffcc99"%><% End If %> <%Else%>
<% If m=riqi Then %><%="#ffcc99"%> <% End If %> <% End If %>">
<div align="center"><a href="index.asp?date=<%=m%>"><%=m%></a></div></td>
</tr>
<tr>
<td height="5"> </td>
</tr>
</table></td>
<%Next%>
</tr>
<%
If mx=6 Then
For j=2 To mx-1
%>
<tr>
<% For i=1 To 7 %>
<td> <table border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="68" height="15" bgcolor="<% If riqi=0 Then %>
<% If (j-2)*7+(8-mi)+i=days Then%><%="#ffcc99"%> <% End If %>
<%Else%><% If (j-2)*7+(8-mi)+i=riqi Then %><%="#ffcc99"%>
<% End If %> <% End If %>">
<div align="center">
<%If (j-2)*7+(8-mi)+i<=sum Then %>
<a href="index.asp?date=<%=(j-2)*7+(8-mi)+i%>">
<%=(j-2)*7+(8-mi)+i%></a>
<% End If %>
</div></td>
</tr>
<tr>
<td height="7"> </td>
</tr>
</table></td>
<%Next%>
</tr>
<%
Next
Else
For j=2 To mx
%>
<tr>
<%For i=1 To 7 %>
<td> <table border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="68" height="15" bgcolor="<% If riqi=0 Then %>
<% If (j-2)*7+(8-mi)+i=days Then%> <%="#ffcc99"%><% End If %>
<%Else%>
<% If (j-2)*7+(8-mi)+i=riqi Then %>
<%="#ffcc99"%> <% End If %> <% End If %>">
<div align="center">
<%If (j-2)*7+(8-mi)+i<=sum Then %>
<a href="index.asp?date=<%=(j-2)*7+(8-mi)+i%>">
<%=(j-2)*7+(8-mi)+i%></a>
<% End If %>
</div></td>
</tr>
<tr>
<td height="7"> </td>
</tr>
</table></td>
<%Next%>
</tr>
<%Next%>
<tr>
<%
End If
If mx=6 Then
For i=1 To sum-((mx-2)*7+(8-mi))
%>
<td> <table border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="15" bgcolor="<% If riqi=0 Then %>
<% If (mx-2)*7+(8-mi)+i=days Then%><%="#ffcc99"%> <% End If %>
<%Else%><% If (mx-2)*7+(8-mi)+i=riqi Then %>
<%="#ffcc99"%> <% End If %> <% End If %>">
<a href="index.asp?date=<%=(mx-2)*7+(8-mi)+i%>">
<%=(mx-2)*7+(8-mi)+i%></a> </td>
</tr>
<tr>
<td height="7"> </td>
</tr>
</table></td>
<%Next%>
<td colspan="<%=7-(sum-((mx-2)*7+(8-mi))) %>">
<table border="0" align="center" cellpadding="0" cellspacing="0" width=100%>
<tr>
<td height="15" align="right">
<img src="Image/Forum_up.gIf" width="10" height="10"
onClick="javascript:minus.submit()">
<%=Session("year")%>年<%=Session("month")%>月
<img src="Image/Forum_nav.gIf" width="10" height="10"
onClick="javascript:add.submit()"> </td>
</tr>
<tr>
<td height="17"></td>
</tr>
</table></td>
<%
Else
%>
<td colspan="7">
<table border="0" align="center" cellpadding="0" cellspacing="0" width=100%>
<tr>
<td height="15" align="right">
<img src="Image/Forum_up.gIf" width="10" height="10"
onClick="javascript:minus.submit()">
<%=Session("year")%>年<%=Session("month")%>月
<img src="Image/Forum_nav.gIf" width="10" height="10"
onClick="javascript:add.submit()"> </td>
</tr>
<tr>
<td height="7"></td>
</tr>
</table></td>
<%End If%>
<Form name="add" method="post" action="deal.asp?date=<%=day(times)%>">
<input type="hidden" name="add" value="1">
</Form>
<Form name="minus" method="post" action="deal.asp">
<input type="hidden" name="minus" value="1">
</Form>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</table>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -