梅花雪的日历控件怎样才能控制不选择今日以前的日期

murongchilde 2003-10-16 10:52:48
应该怎样修改呢?才能只选择今日以后(包含今日)的日期,而今日以前的日期都为不可选!
...全文
43 7 打赏 收藏 转发到动态 举报
写回复
用AI写文章
7 条回复
切换为时间正序
请发表友善的回复…
发表回复
超级大笨狼 2004-01-19
  • 打赏
  • 举报
回复
哈哈,TrueAndFalse(彩旗飘飘) 你也是2004-01-19 03:56:00 回复的啊
看来你很快就能变成彩星飘飘了
从这两天回答帖子的情况看
对你的涨分速度看好!
TrueAndFalse 2004-01-19
  • 打赏
  • 举报
回复
狼哥真勇!大过年的,也不歇歇!
超级大笨狼 2004-01-19
  • 打赏
  • 举报
回复
http://www.adr.gov.cn/download/ddd.htm
http://www.adr.gov.cn/download/ccc.htm
两个时间输入界面,此外送给大家一个VBS版本的日历
<table border = 0 cellpadding = 0 cellspacing = 0>
<tr>
<td>
<table border = 0 cellpadding = 0 cellspacing = 0 width = 60 height = 70 style = 'position:absolute ;visibility:hidden' bgcolor = #FFFFE7>
<tr>
<td align = center>
<font style = 'cursor:hand ;color:#FF0000 ;font-family:宋体 ;font-size:14pt ;line-height:120%' > </font>
</td>
</tr>
<tr>
<td align = center>
<font style ='cursor:hand ;color:#2000FF ;font-family:宋体 ;font-size:9pt ;line-height:110%'> </font>
</td>
</tr>
</table>
<table border = 0 cellpadding = 0 cellspacing = 0 width = 61 bgcolor = #D6D3CE height = 70>
<tr>
<td valign = top width = 100% height = 100%>
<table border = 1 cellpadding = 0 cellspacing = 0 width = 58 bgcolor = #FFFFE7 height = 67>
<tr>
<td align = center width = 100% height = 100%>
<font id = C1 style = "font-family:宋体; font-size:7pt; line-height:120%"> </font></br>
<font id = C2 style = "color:#FF0000; font-family:Arial ;font-size:14pt ;line-height:120%"> </font></br>
<font id = C3 style = "font-family:宋体 ;font-size:9pt ;line-height:120%"> </font></br>
<font id = C4 style = "color:#100080 ;font-family:宋体; font-size:8pt ;line-height:120%"> </font>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td></tr>
</table>
<SCRIPT language=vbs>
function YM() '年月
YM = "<font color = #3A6EA5>"
if Weekday(date) = 0 then YM = "<font color = #C00000>"
if Weekday(date) = 6 then YM = "<font color = #00C000>"
YM= YM & Year(date) & "年" & Month(date) & "月</font>"
end function

function DD() '日
DD= "<font color = #FF0000>"
if Weekday(date)=0 then DD = "<font color = #C00000>"
if Weekday(date)=6 then DD = "<font color = #00C000>"
DD= DD & day(date) & "</font>"
end function

function HMS() '时分秒
HMS=Hour(Now) & ":"
dim mm:mm=Minute(Now)
dim ss:ss=Second(Now)
if mm<10 then HMS=HMS & "0" & mm else HMS=HMS & mm
if ss<10 then HMS=HMS & "0" & ss else HMS=HMS & ss
end function

function WW() '星期
WW= "<font color = #0000DF>"
Dim w:w=Weekday(date)
if w = 0 then WW = "<font color = #C00000>"
if w = 6 then WW = "<font color = #00C000>"
WW= WW & WeekDayName(w,true) & "</font>"
end function

sub CCC() '刷新时间
C1.innerHTML = YM()
C2.innerHTML = DD()
C3.innerHTML = WW()
C4.innerHTML = HMS()
end sub
CCC
window.setInterval "CCC", "1000" ,"vbs"
</SCRIPT>
个人认为VBS比JS的代码易读,短小,功能方便
我用JS只为了改别人的垃圾代码,如果自己开发,首选VBS
JS版本对照:
<SCRIPT language=javascript>
<!--
function Year_Month()
{
var now = new Date();
var yyyy = now.getYear();
var mmmm = now.getMonth() + 1;
var cl = '<font color = "#3A6EA5">';
if ( now.getDay() == 0 )
cl = '<font color = "#C00000">';
if ( now.getDay() == 6 )
cl = '<font color = "#00C000">';
return( cl + yyyy + '年' + mmmm + '月</font>' );
}
function Date_of_Today()
{
var now = new Date();
var cl = '<font color = "#FF0000">';
if ( now.getDay() == 0 )
cl = '<font color = "#C00000">';
if ( now.getDay() == 6 )
cl = '<font color = "#00C000">';
return( cl + now.getDate() + '</font>' );
}
function CurentTime()
{
var now = new Date();
var hh = now.getHours();
var mm = now.getMinutes();
var ss = now.getTime() % 60000;
ss = ( ss - ( ss % 1000 ) ) / 1000;
var clock = hh + ':';
if( mm < 10 )
clock += '0';
clock += mm + ':';
if( ss < 10 )
clock += '0';
clock += ss;
return( clock );
}
function Day_of_Today()
{
var day = new Array();
day[0] = "星期日";
day[1] = "星期一";
day[2] = "星期二";
day[3] = "星期三";
day[4] = "星期四";
day[5] = "星期五";
day[6] = "星期六";
var now = new Date();
var cl = '<font color = "#0000DF">';
if ( now.getDay() == 0 )
cl = '<font color = "#C00000">';
if ( now.getDay() == 6 )
cl = '<font color = "#00C000">';
return( cl + day[ now.getDay() ] + '</font>' );
}
function refreshCalendarClock()
{
document.all.calendarClock1.innerHTML = Year_Month();
document.all.calendarClock2.innerHTML = Date_of_Today();
document.all.calendarClock3.innerHTML = Day_of_Today();
document.all.calendarClock4.innerHTML = CurentTime();
}
var
webUrl = webUrl;
document.write( '<table border = "0" cellpadding = "0" cellspacing = "0"><tr><td>' );
document.write( '<table id = "CalendarClockFreeCode" border = "0" cellpadding = "0" cellspacing = "0" width = "60" height = "70" style = "position:absolute; visibility:hidden" bgcolor = "#FFFFE7">' );
document.write( '<tr><td align = "center"><font style = "cursor:hand; color:#FF0000; font-family:宋体; font-size:14pt; line-height:120%"' );
if( webUrl != 'netflower' )
{
document.write( '</td></tr><tr><td align = "center"><font style = "cursor:hand; color:#2000FF; font-family:宋体; font-size:9pt; line-height:110%"' );
}
document.write( '</td></tr></table>' );
document.write( '<table border = "0" cellpadding = "0" cellspacing = "0" width = "61" bgcolor = "#D6D3CE" height = "70">' );
document.write( '<tr><td valign = "top" width = "100%" height = "100%">' );
document.write( '<table border = "1" cellpadding = "0" cellspacing = "0" width = "58" bgcolor = "#FFFFE7" height = "67">' );
document.write( '<tr><td align = "center" width = "100%" height = "100%">' );
document.write( '<font id = "calendarClock1" style = "font-family:宋体; font-size:7pt; line-height:120%"></font><br/>' );
document.write( '<font id = "calendarClock2" style = "color:#FF0000; font-family:Arial; font-size:14pt; line-height:120%"></font><br/>' );
document.write( '<font id = "calendarClock3" style = "font-family:宋体; font-size:9pt; line-height:120%"></font><br/>' );
document.write( '<font id = "calendarClock4" style = "color:#100080; font-family:宋体; font-size:8pt; line-height:120%"></font>' );
document.write( '</td></tr></table>' );
document.write( '</td></tr></table>' );
document.write( '</td></tr></table>' );
refreshCalendarClock();
setInterval( 'refreshCalendarClock()', 1000);
-->
</SCRIPT>
xxrl 2003-10-16
  • 打赏
  • 举报
回复
我改进了一下,满足你的要求
www.tjhgc.com/ActiveCalendar.js
pimple 2003-10-16
  • 打赏
  • 举报
回复
可以的呀.http://www.witrun.com/job/re.asp?id=66
zhanghao5188 2003-10-16
  • 打赏
  • 举报
回复
寫一個控制語句不就是了!!
murongchilde 2003-10-16
  • 打赏
  • 举报
回复
To: zhanghao5188(linux) 我的javascript有点菜
pimple(╭●ò●╮) 你恐怕没听懂我的意思

感谢xxrl(孔曰成仁,孟曰取E) ,但我下载试验了一下好像不可以,提示javascript错误。
您改的地方在哪里呢?
另:能不能改一下3.0版本的?我都是用3.0版本的

28,390

社区成员

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧