<html>
<head>
<script type="text/vbscript">
dim sj
sj=hour(time)
Select Case sj
Case 5,6,7,8,9
document.write ("早晨好!欢迎进入VBSCRIPT世界。现在是"&date()&"的"&time())
Case 10,11
document.write ("上午好!欢迎进入VBSCRIPT世界。现在是"&date()&"的"&time())
Case 12,13
document.write ("中午好!欢迎进入VBSCRIPT世界。现在是"&date()&"的"&time())
Case 14,15,16,17,18
document.write ("下午好!欢迎进入VBSCRIPT世界。现在是"&date()&"的"&time())
Case 19,20,21,22,23,24,1,2,3,4
document.write ("晚上好!欢迎进入VBSCRIPT世界。现在是"&date()&"的"&time())
end Select
</script>
</head>
<body>
</body>
</html>
联系客服