| « | September 2026 | » | | 日 | 一 | 二 | 三 | 四 | 五 | 六 | | | 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 14 | 15 | 16 | 17 | 18 | 19 | 20 | 21 | 22 | 23 | 24 | 25 | 26 | 27 | 28 | 29 | 30 | | | | |
|
公告 |
| 努力学习C#。 |
| Blog信息 |
|
blog名称:Areyan's Blog
日志总数:31
评论数量:10
留言数量:-2
访问次数:140284
建立时间:2005年1月5日 |
| |
|
 [Script]calendar_vbs
电脑与网络
阿严 发表于 2005/3/21 13:11:37 |
| <%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%><% Dim AllMonth_str,toYear_num,toMonth_num,toDate_num,toDay_num,firstWeekDay Dim tempYear_num,tempMonth_num,tempDate_num Dim i,j,k,l AllMonth_str="JanFebMarAprMayJunJulAugSepOctNovDec" toYear_num=Year(Date) toMonth_num=Month(Date) toDate_num=Day(Date) tempYear_num=toYear_num tempMonth_num=toMonth_num tempDate_num=toDate_num month_str=Mid(AllMonth_str,tempMonth_num+1,3) firstWeekDay=(WeekDay(tempYear_num&","&tempMonth_num&",1")) tempMonth2_num=toMonth_num lastDay_num=28 Do While tempMonth2_num=tempMonth_num lastDay_num=lastDay_num+1 tempMonth2_num=Month(DateSerial(tempYear_num,tempMonth_num,lastDay_num)) Loop %><link href="style_txt.css" rel="stylesheet" type="text/css"><table width="140" border="0" align="center" cellpadding="0" cellspacing="0"> <tr class="calendar_txt"> <td width="20"> </td> <td><<</td> <td width="80"><div align="center"><%Response.Write(month_str&"."&tempYear_num)%></div></td> <td>>></td> <td width="20"> </td> </tr></table><table width="140" border="0" align="center" cellpadding="0" cellspacing="0"> <tr class="calendar_txt"> <td>日</td> <td>一</td> <td>二</td> <td>三</td> <td>四</td> <td>五</td> <td>六</td> </tr></table><% i=1 j=1 k=1 l=1 For i=1 To 6 %><table width="140" border="0" align="center" cellpadding="0" cellspacing="0"> <tr class="calendar_txt"><% For j=1 To 7 If k>=firstWeekDay And l<lastDay_num Then If l=toDate_num Then Response.Write("<td width='20' bgcolor='#99CC33'>"&l&"</td>") l=l+1 Else Response.Write("<td width='20'>"&l&"</td>") l=l+1 End If Else Response.Write("<td width='20'></td>") End If k=k+1 Next%> </tr></table><% next%> |
|
|