ASP+JS日历源代码

我需要一个像博客那样的日历列表～并突出显示今天的日期，而且有日志的那一天也要突出显示并有超链接～～～是不是要求太高了呢～谢谢解答……

2026年09月26日 21:33

有1个网友回答

网友（1）：

直接保存成 asp文件运行就可以

日历</title<br></head><br><body bgcolor="#FFFFFF"><br><%<br>' 要调用的函数声明<br>'根据年份及月份得到每月的总天数<br>Function GetDaysInMonth(iMonth, iYear)<br> Select Case iMonth<br> Case 1, 3, 5, 7, 8, 10, 12<br> GetDaysInMonth = 31<br> Case 4, 6, 9, 11<br> GetDaysInMonth = 30<br> Case 2<br> If IsDate("February 29, " & iYear) Then<br> GetDaysInMonth = 29<br> Else<br> GetDaysInMonth = 28<br> End If<br> End Select<br>End Function<br>'得到一个月开始的日期.<br>Function GetWeekdayMonthStartsOn(dAnyDayInTheMonth)<br> Dim dTemp<br> dTemp = DateAdd("d", -(Day(dAnyDayInTheMonth) - 1), dAnyDayInTheMonth)<br> GetWeekdayMonthStartsOn = WeekDay(dTemp)<br>End Function<br>'得到当前一个月的上一个月.<br>Function SubtractOneMonth(dDate)<br> SubtractOneMonth = DateAdd("m", -1, dDate)<br>End Function<br>'得到当前一个月的下一个月.<br>Function AddOneMonth(dDate)<br> AddOneMonth = DateAdd("m", 1, dDate)<br>End Function<br>' 函数声明结束<br><br>Dim dDate ' 日历显示的日期<br>Dim iDOW ' 每一月开始的日期<br>Dim iCurrent ' 当前日期<br>Dim iPosition ' 表格中的当前位置<br><br>' 得到选择的日期并检查日期的合法性<br>If IsDate(Request.QueryString("date")) Then<br> dDate = CDate(Request.QueryString("date"))<br>Else<br> If IsDate(Request.QueryString("month") & "-" & Request.QueryString("day") & "-" & Request.QueryString("year")) Then<br> dDate = CDate(Request.QueryString("month") & "-" & Request.QueryString("day") & "-" & Request.QueryString("year"))<br> Else<br> dDate = Date()<br> <br> If Len(Request.QueryString("month")) <> 0 Or Len(Request.QueryString("day")) <> 0 Or Len(Request.QueryString("year")) <> 0 Or Len(Request.QueryString("date")) <> 0 Then<br> Response.Write "您所选择的日期格式不正确，系统会使用当前日期.<BR><BR>"<br> End If<br> <br> End If<br>End If<br><br>'得到日期后我们先得到这个月的天数及这个月的起始日期.<br>iDIM = GetDaysInMonth(Month(dDate), Year(dDate))<br>iDOW = GetWeekdayMonthStartsOn(dDate)<br><br>%><br><table width="180" height="100%" border="0" cellpadding="0" cellspacing="0"><br> <tr><br> <td><table width="150" border="0" align="center" cellpadding="0" cellspacing="0"><br> <tr> <br> <td height="5"> </td><br> </tr><br> </table><br> <table width="180" border="0" align="center" cellpadding="0" cellspacing="0"><br> <tr> <br> <td align="center" colspan="7"><table border="0" cellpadding="0" cellspacing="0"width="100%"><br> <tr> <br> <td height="22" align="right"><a href="rl.asp?date=<%= SubtractOneMonth(dDate) %>"><img src="../images/dot_left.gif" width="15" height="14" border="0" /></a></td><br> <td align="center"><font color="999999"><b><%= MonthName(Month(dDate)) & " " & Year(dDate) %></b></font></td><br> <td><a href="rl.asp?date=<%= AddOneMonth(dDate) %>"><img src="../images/dot_right.gif" width="15" height="14" border="0" /></a></td><br> </tr><br> </table></td><br> </tr><br> <tr> <br> <td width="25" height="22" align="center"><font<br> color="d08c00"><b>日</b></font> </td><br> <td width="25" align="center"><b><font color="999999">一</font></b> </td><br> <td width="25" align="center"><b><font color="999999">二</font></b> </td><br> <td width="25" align="center"><b><font color="999999">三</font></b> </td><br> <td width="25" align="center"><b><font color="999999">四</font></b> </td><br> <td width="25" align="center"><b><font color="999999">五</font></b> </td><br> <td width="25" align="center"><b><font color="d08c00">六</font></b> </td><br> </tr><br> <%<br>' 如果这个月的起始日期不是周日的话就加空的单元.<br>If iDOW <> 1 Then<br> Response.Write vbTab & "<TR>" & vbCrLf<br> iPosition = 1<br> Do While iPosition < iDOW<br> Response.Write vbTab & vbTab & "<TD> </TD>" & vbCrLf<br> iPosition = iPosition + 1<br> Loop<br>End If<br><br>' 绘制这个月的日历<br>iCurrent = 1<br>iPosition = iDOW<br>Do While iCurrent <= iDIM<br> ' 如果是一行的开头就使用 TR 标记<br> If iPosition = 1 Then<br> Response.Write vbTab & "<TR>" & vbCrLf<br> End If<br> <br> ' 如果这一天是我们选择的日期就高亮度显示该日期.<br> If iCurrent = Day(dDate) Then<br> Response.Write vbTab & vbTab & "<TD BGCOLOR=#eeeeee height=18 align=center><B>" & iCurrent & "</B></TD>" & vbCrLf<br> Else<br> Response.Write vbTab & vbTab & "<TD height=18 align=center><A HREF=""./rl.asp?date=" & Month(dDate) & "-" & iCurrent & "-" & Year(dDate) & """>" & iCurrent & "</A></TD>" & vbCrLf<br> End If<br> <br> ' 如果满一周的话表格就另起一行<br> If iPosition = 7 Then<br> Response.Write vbTab & "</TR>" & vbCrLf<br> iPosition = 0<br> End If<br> <br> iCurrent = iCurrent + 1<br> iPosition = iPosition + 1<br>Loop<br><br>' 如果一个月不是以周六结束则加上相应的空单元.<br>If iPosition <> 1 Then<br> Do While iPosition <= 7<br> Response.Write vbTab & vbTab & "<TD> </TD>" & vbCrLf<br> iPosition = iPosition + 1<br> Loop<br> Response.Write vbTab & "</TR>" & vbCrLf<br>End If<br>%><br> </table><br> <table width="150" border="0" align="center" cellpadding="0" cellspacing="0"><br> <tr> <br> <td height="5"> </td><br> </tr><br> </table></td><br> </tr><br></table></p> </div> </div> <div class="clear"></div> </div> </div> </div> <div class="wendaright"> <div class="wdluluerwema"> <div class="wdxgwttop">相关问答</div> <div class="wdxgwtnr"> </div> <div class="clear"></div> </div>  <div class="wdluluerwema"> <div class="wdxgwttop">最新问答</div> <div class="wdxgwtnr"> <div class="wdxgwtcont"> <div class="wdxgtitle"><a href="https://qq.ffidc.pw/274098653.html">天族背包怎样开完？求高人解答！！！！！</a></div> </div> <div class="wdxgwtcont"> <div class="wdxgtitle"><a href="https://qq.ffidc.pw/1375813454426020179.html">炒期货是合法行为吗？</a></div> </div> <div class="wdxgwtcont"> <div class="wdxgtitle"><a href="https://qq.ffidc.pw/1818854907143426348.html">迈瑞,迈瑞克瑞斯莫斯科是什么意思</a></div> </div> <div class="wdxgwtcont"> <div class="wdxgtitle"><a href="https://qq.ffidc.pw/883729391656415812.html">汉代长城唯一新造的部分具有什么功能</a></div> </div> <div class="wdxgwtcont"> <div class="wdxgtitle"><a href="https://qq.ffidc.pw/577967739.html">金施尔康怎么样？</a></div> </div> <div class="wdxgwtcont"> <div class="wdxgtitle"><a href="https://qq.ffidc.pw/1502794297689139819.html">越野车哪款最好最省油</a></div> </div> <div class="wdxgwtcont"> <div class="wdxgtitle"><a href="https://qq.ffidc.pw/1677641313654263587.html">孕妇梦见死蛇有什么预兆</a></div> </div> <div class="wdxgwtcont"> <div class="wdxgtitle"><a href="https://qq.ffidc.pw/927521450956175819.html">手机收到了短信：此验证码只用于登录你的微信，验证码提供给他人将导致微信被盗。后面是验证码</a></div> </div> <div class="wdxgwtcont"> <div class="wdxgtitle"><a href="https://qq.ffidc.pw/625895977121349212.html">高考志愿填报问一问</a></div> </div> <div class="wdxgwtcont"> <div class="wdxgtitle"><a href="https://qq.ffidc.pw/142995851.html">梦幻西游100J女衣价格</a></div> </div> </div> </div> </div> <div class="clear"></div> <div class="footer">  <div class="fanhuitop"><a href="#top" ref="nofollow"><img src="https://qq.ffidc.pw/static/old/img/fhtop.png" title="返回顶部"></a></div> <div class="dibu"> <div class="dibu"> </div> </div> <div class="banquan"> <p>内容全部来源于网络收集，如有侵权，请联系网站删除！</p> <p>QQ：24596024</p> <br> </div> </div> </div> </div> <script> var _hmt = _hmt || []; (function() { var hm = document.createElement("script"); hm.src = "https://hm.baidu.com/hm.js?8bf6ab1f1572ba5d8a7994e6bcedc57b"; var s = document.getElementsByTagName("script")[0]; s.parentNode.insertBefore(hm, s); })(); </script> </body> </html>