caledar.asp

该资料包含大量网络开发的案例和源代码

<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style>
td { font-family: "宋体"; font-size:9pt}
</style>
<table width="150" cellpadding="0" cellspacing="1" bgcolor="dddddd" align="center">
<%
'dim arr
'strurl=trim("JavaScript:location.href")
'arr=split(strurl,"?")
'strurl
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"><input type="button" value="<<" onclick="JavaScript:location.href='../blog/main.asp?ReqDate=<%=PreviousMonthDate%>'" class="input1"></td>
    <td colspan="5" align="center"><%=year(CurrentDate)&"年"&month(CurrentDate)&"月"%></td>
    <td width="14%" align="center"><input type="button" value=">>" onclick="JavaScript:location.href='../blog/main.asp?ReqDate=<%=NextMonthDate%>'" class="input1"></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
    If Datediff("d",ym&i,now)>-1 then
     LinkText="<a href='../blog/blog_show.asp?ShowID="&userid&"'target='_blank'>"&i&"</a>"
    else
     LinkText=i
    end if
    if i<>Day(now) then
     response.write("<td>&nbsp;"&LinkText&"</td>")
    else
     response.write("<td bgcolor=ffaaaa>&nbsp;"&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>