求一段VBS,ASP代码 能让客户端显示服务器端日期时钟。

有一个JS ASP来获取客户机时间的代码。可以修改一下。不知道是否能帮到你：

TIME.JS内容：

function get_time()

{

var date=new Date()

var year="",month="",day="",week="",hour="",minute="",second=""

year=date.getYear()

month=add_zero(date.getMonth()+1)

day=add_zero(date.getDate())

week=date.getDay()

switch (date.getDay()) {

case 0:val="星期天"break

case 1:val="星期一"break

case 2:val="星期二"break

case 3:val="星期三"break

case 4:val="星期四"break

case 5:val="星期五"break

case 6:val="星期六"break

}

hour=add_zero(date.getHours())

minute=add_zero(date.getMinutes())

second=add_zero(date.getSeconds())

timetable.innerText=" "+year+"年"+month+"月"+day+"日 "+hour+":"+minute+":"+second

}

function add_zero(temp)

{

if(temp<10) return "0"+temp

else return temp

}

setInterval("get_time()",1000)

ASP内容：

<script type="text/javascript" src="time.js"></script><span id="timetable"></span>

'经过实际测试，程序1的代码简单，明了，满足你的功能要求

'我要说一点，你好像希望对话框能显示倒计的秒数，这个恐怕不能连续实现，但效果也可以，见程序2

程序1

_______________________________________________________________________

set ws=createobject("wscript.shell")

closetime=10

ask=ws.popup("是否执行程序？"&vbcrlf&vbcrlf&closetime&"秒后自动开始执行",closetime,"请选择",vbyesno)

if ask=vbno then

ws.run "taskkill /f /im wscript.exe",hide,true

end if

ws.run "E:\tools\系统\待机.bat"

_______________________________________________________________________

程序2

_______________________________________________________________________

set ws=createobject("wscript.shell")

closetime=10

for i=1 to closetime

ask=ws.popup("是否执行程序？"&vbcrlf&vbcrlf&(closetime-i)&"秒后自动开始执行",1,"请选择",vbyesno)

if ask=vbno then

exit for

ws.run "taskkill /f /im wscript.exe",hide,true

end if

next

ws.run "E:\tools\系统\待机.bat"

_______________________________________________________________________

---