<Html>
<Head>
<Title> MonthView Demo </title>
<Script language = javascript>
/************************************ Program functions: date Selection
Features: The MonthView control in VB is simulated using Javascript and HTML.
Author: ken
Contact: boboshu@21cn.com
Development Date: 2002-8-5
***********************************/
Var languageName = "cn" // language of the content display value: "cn" "en"
Var currentMonth, currentYear
Var nowDate, nowMonth, nowYear
D = new Date ();
NowDate = d. getDate ()
NowMonth = d. getMonth ()
NowYear = d. getYear ()
CurrentMonth = nowMonth
CurrentYear = nowYear
ArrWeekCaption_cn = new Array ("Sunday", "Monday", "Tuesday", "Wednesday", "Thursday", "Saturday ")
ArrWeekCaption_en = new Array ("Sun", "Mon", "Tue", "Wed", "Thu", "Fri", "Sat ")
ArrMonthCaption_cn = new Array ", "August September", "August October", "August November", "August December ")
ArrMonthCaption_en = new Array ("January", "February", "March", "April", "May", "June", "July", "August ", "September", "October", "November", "December ")
Function MonthView (){}
/******************************** Initialize the control
*******************************/
Function MonthView. initialize (){
Output = <table cellpadding = 0 cellspacing = 2 style = "border: 1 solid black; width: 300; cursor: default" id = "tblMonthView" onselectstart = "return false">
Output + = <tr>
Output + = <td>
Output + = <table width = "100%" cellpadding = 0 cellspacing = 0>
Output + = <tr style = "padding-top: 10; padding-bottom: 10; background: menu;" id = "trCaption">
Output + = <td> <input type = "button" value = "3" style = "height: 22; font-family: webdings" onclick = "MonthView. showCurrentDate (preview) "> </td>
Output + = <td align = "center"> <span id = "spanCurrentMonth" style = "font-size: 12; "> </span> <span style =" padding-left: 10; font-size: 12 "id =" spanCurrentYear "> </span> </td>
Output + = <td align = "right"> <input type = "button" value = "4" style = "height: 22; font-family: webdings "onclick =" MonthView. showCurrentDate (ext) "> </td>