vb做的日历控件在网页上运行

zhwzhwid 2003-11-02 12:43:22

本人用vb做了日历控件在网页上运行（是把选择的时间放到文本框中），但不知如何在脚本中调用此文本框的值。有谁知道请告诉我！最好加一点代码说明，非常感谢。

...全文

66 2 打赏收藏转发到动态举报

写回复

用AI写文章

2 条回复

切换为时间正序

请发表友善的回复…

发表回复

超级大笨狼 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>

</SCRIPT>