javascript+HTML仿造VB里的MonthView控件
2016-01-29 17:43
javascript+HTML仿造VB里的MonthView控件,javascript+HTML仿造VB里的MonthView控件
<head
<titleMonthView Demo</title
<script language=javascript
/*********************************** 程序功能：日期选择
特点 ：Javascript+HTML仿造VB里的MonthView控件
作者 ：ken
联系 ：boboshu@21cn.com
开发日期：2002-8-5
***********************************/
var languageName="cn" //内容显示的语言 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("星期日","星期一","星期二","星期三","星期四","星期五","星期六")
arrWeekCaption_en = new Array("Sun","Mon","Tue","Wed","Thu","Fri","Sat")
arrMonthCaption_cn= new Array("一月","二月","三月","四月","五月","六月","七月","八月","九月","十月","十一月","十二月")
arrMonthCaption_en= new Array("January","February","March","April","May","June","July","August","September","October","November","December")
function MonthView(){}
/******************************* 初始化控件
*******************************/
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('next')"</td'
output+='
