• 首页
• 服务器租用
• 企业邮箱
• 虚拟主机
• 网站程序
• 营销推广
• 网站建设
• 域名注册
• 前端开发
• 网站备案

• 当前位置：创新互联 >> 常见问题 >> 网站程序 >> asp程序 >> asp制作的日历程序

asp制作的日历程序

• 作者：创新互联 文章来源：网站程序部 点击数： 更新时间：2012-01-04
• 　　我们在制作网站的时候，如果融入日历程序，那会怎么样呢？创新互联网站建设纯ASP打造的日历程序，可自行美化，这里小编仅提供最简单的CSS样式。。。
  <style>
  body{font-size:12px; margin:20px 0 0 20px; padding:0}
  tr,td{text-align:center;}
  </style>
  <%
  '=================================
  '说明：日历文件
  '=================================
  '取出对应的年月博客日志数据
  '=======================
  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 = "<a href='calendar.asp?year="&nowyear - 1&"&month="&nowmonth&"'> &lt;&lt;</a>&nbsp;"
  willshowmonthmonth = nowmonth
  If willshowmonthmonth - 1 <= 0 Then willshowmonthmonth = 2
  calendar = calendar & "<a href='calendar.asp?year="&nowyear&"&month="&willshowmonthmonth - 1&"'> &lt;</a>&nbsp;"
  If willshowmonthmonth + 1 > 12 Then willshowmonthmonth = 11
  calendar = calendar & "<a href='calendar.asp?year="&nowyear&"&month="&willshowmonthmonth + 1&"''> &gt;</a>&nbsp;"
  calendar = calendar & "<a href='calendar.asp?year="&nowyear + 1&"&month="&nowmonth&"'> &gt;&gt;</a>&nbsp;"
  calendar = calendar & "<table bgcolor=#000000 cellspacing=1 width=200><tr bgcolor=#ffffff><td colspan=7>"&nowyear&"-"&nowmonth&"-"&day(now)&"</td></tr>"&VBCRLF
  calendar = calendar & " <tr bgcolor=#ffffff>"&VBCRLF
  calendar = calendar & "<td>日</td>"&VBCRLF
  calendar = calendar & "<td>一</td>"&VBCRLF
  calendar = calendar & "<td>二</td>"&VBCRLF
  calendar = calendar & "<td>三</td>"&VBCRLF
  calendar = calendar & "<td>四</td>"&VBCRLF
  calendar = calendar & "<td>五</td>"&VBCRLF
  calendar = calendar & "<td>六</td>"&VBCRLF
  calendar = calendar & "</tr>"&VBCRLF
  calendar = calendar & VBCRLF&"<tr bgcolor=#ffffff>"&VBCRLF
  '把前面的空白补充出来
  nowmonthfirstiweekday = weekday(nowyear&"-"&nowmonth&"-1") - 2 '本月第一天的星期
  For i=0 To nowmonthfirstiweekday
  calendar = calendar & "<td bgcolor=#efefef>&nbsp;</td>"&VBCRLF
  Next
  '开始循环写日期
  t=1
  For i=1 To monthdays
  If year(now) = year(nowyear&"-"&nowmonth&"-"&i) and day(now) = day(nowyear&"-"&nowmonth&"-"&i) Then '高亮显示今日
  calendar = calendar & "<td bgcolor=#cccccc><a href=''>"&i&"</a></td>"&VBCRLF
  Else
  calendar = calendar & "<td>"&i&"</td>"&VBCRLF
  End If
  If weekday(nowyear&"-"&nowmonth&"-"&i) = 7 Then
  t=t+1
  calendar = calendar & "</tr><tr bgcolor=#ffffff>"&VBCRLF
  End if
  Next
  For i=1 To (7*t-(nowmonthfirstiweekday+1+monthdays))
  calendar = calendar & "<td bgcolor=#ffffff></td>"&VBCRLF
  Next
  calendar = calendar & VBCRLF&"</tr>"
  calendar = calendar & "</table>"&VBCRLF
  Response.Write calendar
  %>
• 浅谈ASP实现数字字符混合验证码 :上一篇
  asp时间比较问题，用时间函数比较方法 :下一篇