| 标题 | asp制作的日历程序 |
| 范文 | 纯ASP打造的日历程序，可自行美化，这里仅提供最简单的CSS样式。。。 <% '================================= '说明：日历文件 '================================= '取出对应的年月博客日志数据 '======================= Ryear = CInt(request.querystring("year")) Rmonth = CInt(request.querystring("month")) If Ryear = 0 Or Ryear = NULL Then Ryear = year(now) If Rmonth = 0 Or Rmonth = NULL Then Rmonth = month(now) nowtime = Ryear&"-"&Rmonth&"-1" '得到本月第一天 nowyear = year(nowtime) '年份 nowmonth = month(nowtime) '月份 nowweekday = weekday(nowtime) - 1 '当前礼拜 '获取2月天数 febdays = 28 If nowyear / 4 = 0 Then febdays = 29 '获取本月天数 If nowmonth = 1 then monthdays = 31 ElseIf nowmonth = 2 Then monthdays = febdays ElseIf nowmonth = 3 Then monthdays = 31 ElseIf nowmonth = 4 Then monthdays = 30 ElseIf nowmonth = 5 Then monthdays = 31 ElseIf nowmonth = 6 Then monthdays = 30 ElseIf nowmonth = 7 Then monthdays = 31 ElseIf nowmonth = 8 Then monthdays = 31 ElseIf nowmonth = 9 Then monthdays = 30 ElseIf nowmonth = 10 Then monthdays = 31 ElseIf nowmonth = 11 Then monthdays = 30 Else monthdays = 31 End If calendar = " << " willshowmonthmonth = nowmonth If willshowmonthmonth - 1 <= 0 Then willshowmonthmonth = 2 calendar = calendar & " < " If willshowmonthmonth + 1 > 12 Then willshowmonthmonth = 11 calendar = calendar & " > " calendar = calendar & " >> " calendar = calendar & " "&VBCRLF calendar = calendar & " "&VBCRLF calendar = calendar & " "&nowyear&"-"&nowmonth&"-"&day(now)&" 日& |
| 随便看 |
|
在线学习网范文大全提供好词好句、学习总结、工作总结、演讲稿等写作素材及范文模板，是学习及工作的有利工具。