查人人中国名人网拉斯洛狗智商:asp 动态显示当前时间 VBS
来源：百度文库 编辑：查人人中国名人网 时间：2024/04/29 03:40:01
<SCRIPT Language="VBScript">
dim moTime
function showTime()
document.all.spnTime.innerText = Now()
end function
moTime = setInterval("showTime()",1000)
</SCRIPT>
<span id="spnTime">当前时间</span>
<!--动态时间开始
function get_time(){
var date = new Date();
var year = "", month = "", day = "", hour = "", minute = "", second = "";
year = date.getYear();
month = add_zero(date.getMonth() + 1);
day = add_zero(date.getDate());
hour = add_zero(date.getHours());
minute = add_zero(date.getMinutes());
second = add_zero(date.getSeconds());
time_div.innerText = year + "-" + month + "-" + day + " " + hour + ":" + minute + ":" + second ;
}
function add_zero(temp){
if(temp < 10) return "0" + temp;
else return temp;
}
setInterval("get_time()", 1000);
//-->动态时间结束
把这段javascript脚本代码放在<head>中，在显示的地方放个<div id="time_div"></div>或者<span id="time_div"/>就可以了
用客户端的VBS实现
<Span id="DDD"></Span>
<script langusge="vbscript">
setInterval("DateChange()",1000);
function DateChange()
document.getElementById("DDD").innerText=Date()
end function
</script>
<body>
<span id="clock"></span>
<script language=vbscript>
function showtime()
document.getElementById("clock").innerText=now()
end function
setInterval "showtime",1000
</script>
</body>
VB里调用函数好象不能加括号？
setInterval("now()",1000);