欢迎光临爱时尚女性网
 

ASP小日历源码

2012-6-15 编辑:knwz 来源:爱时尚女性网 阅读次数:1458
  导读: 小日历 星期日 星期一 星期二 星期三 星期四 星期五 星期六 =FirstDay(mMonth,mYear) and j ...
<%@ Language=VBScript %>

<br /> 小日历<br />

<%
Function CountDays(iMonth,iYear)
Select Case iMonth
case 1,3,5,7,8,10,12
CountDays=31
case 2
if IsDate("2/29/" & iYear) Then
燙ountDays=29
else
燙ountDays=28
end if
case 4,6,9,11
CountDays=30
End Select
End Function


Function FirstDay(iMonth,iYear)
FirstDay=WeekDay(iMonth & "/1/" & iYear)
End Function


dim mMonth,mYear
mMonth=Month(Date())
mYear=Year(Date())
mDate=Day(Date())
response.write "
" & mYear & "年" & mMonth & "月" & "

"
%>









<%
j=1
for i=1 to 42
response.write ""
if i mod 7=0 then
爎esponse.write ""
end if
next

%>
星期日 星期一 星期二 星期三 星期四 星期五 星期六
"
if i>=FirstDay(mMonth,mYear) and j<=CountDays(mMonth,mYear) then
if mDate=j then
response.write "" & j & " "
爀lse
response.write j
爀nd if
爅=j+1
else
爎esponse.write "   "
end if
response.write "




文章出自:爱时尚女性网www.aspjc.com,尊重版权是美德,转载请保留原地址,感谢合作!

 
 
链接交换请联系:QQ:790646582 首页链接要求百度快照在一周以内,不符合以上要求的各站,我们将定期把友情连接转入内页,谢谢合作。
Copyright @ 2012-2015 爱时尚女性网 保留所有权利吉ICP备14005127号-1 服务QQ:175529508 e-mail:zk8312@163.com
本站部分资源来自网友上传,如果无意之中侵犯了您的版权,请联系本站,本站将在3个工作日内删除。