calendarexample.asp

来自「100个asp简单学习例子」· ASP 代码 · 共 34 行

ASP
34 行
字号 
<%@ Language=VBScript %>
<%Option Explicit%>
<!-- #include file="calendar.asp" -->
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<TITLE>面向对象日历</TITLE>
</HEAD>
<BODY LINK="blue" ALINK="blue" VLINK="blue">
<%
Dim MyCalendar
Set MyCalendar = New Calendar
MyCalendar.Top = 50
MyCalendar.Left = 150
MyCalendar.Position = "absolute" 
MyCalendar.Height = "200" 
MyCalendar.Width = "300" 
MyCalendar.TitlebarColor = "darkblue" 
MyCalendar.TitlebarFont = "arial" 
MyCalendar.TitlebarFontColor = "white" 
MyCalendar.TodayBGColor = "skyblue" 
MyCalendar.ShowDateSelect = True 
MyCalendar.OnDayClick = "javascript:alert('你点击了: $date')"
Select Case Month(MyCalendar.GetDate())
  Case 1
    MyCalendar.Days(1).AddActivity "<small><b>New Years</b></small>", "limegreen"
  Case 12
    MyCalendar.Days(25).AddActivity "<small><b>Christmas</b></small>", "limegreen"
End Select
MyCalendar.Draw()
%>
</BODY>
</HTML>

calendarexample.asp - 源码说明

本页面展示了「100个asp简单学习例子」中的 calendarexample.asp 源码文件，采用 ASP 编程语言编写，共 34 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与100相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?