calendarexample.asp

来自「集合了学习asp的100个实例」· 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 - 源码说明

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

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

⌨️ 快捷键说明

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