<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>无标题文档</title>
</head>
<body>
<table width="180" cellpadding="0" cellspacing="1" align=center>
<%
If Trim(Request("ReqDate"))="" or ( not IsDate(Trim(Request("ReqDate"))) ) then
CurrentDate=Date
else
CurrentDate=Trim(Request("ReqDate"))
end if
PreviousMonthDate=DateAdd("m",-1,CurrentDate)
NextMonthDate=DateAdd("m",1,CurrentDate)
%>
<tr align="LEFT" bgcolor="#dddddd">
<td width="14%" height="19" align="center">
<a href="blogList.asp?ReqDate=<%=PreviousMonthDate%>&hiddenID=<%getUserName(3)%>"><<</a> </td>
<td colspan="5" align="center" bgcolor="#dddddd"><%=year(CurrentDate)&"年"&month(CurrentDate)&"月"%></td>
<td width="14%" align="center" bgcolor="#dddddd">
<a href="blogList.asp?ReqDate=<%=NextMonthDate%>&hiddenID=<%getUserName(3)%>">>></a> </td>
</tr>
<tr align="LEFT" bgcolor="#CCCCCC">
<td width="14%" height="19"> 日</td>
<td width="14%"> 一</td>
<td width="14%"> 二</td>
<td width="14%"> 三</td>
<td width="14%"> 四</td>
<td width="14%"> 五</td>
<td width="14%"> 六</td>
</tr>
<%
ym=year(CurrentDate)&"-"&month(CurrentDate)&"-"
i=1
do while i<33
j=1
response.write("<tr bgcolor=ffffff height=19>")
do while j<8
If IsDate(ym&i) then
CurrentWeekDay=weekday(ym&i)
if j=CurrentWeekDay then
LinkText=i
if i<>Day(now) then
response.write("<td> "&LinkText&"</td>")
else
response.write("<td bgcolor=ffaaaa> "&LinkText&"</td>")
end if
i=i+1
else
response.write("<td></td>")
end if
else
response.write("<td></td>")
i=i+1
'exit do
end if
j=j+1
loop
response.write("</tr>")
loop
%>
</table>
</body>
</html>