如何在网页中动态显示当前的系统日期和时间？

1、客户端的当前时间 
  <span   id=sTime></span>  
  <script>setInterval("document.all.sTime.innerText=new   Date().toLocaleString()",300)</script>

2、服务端的当前时间 
<%    
  dim   week    
  week   =   Array("一","二","三","四","五","六","日")  
  Response.Write(year(date)   &   "年   ")  
  Response.Write(month(date)   &   "月")  
  Response.Write(day(date)   &   "日     ")  
  Response.Write("星期"   &   week(weekday(date,vbmonday)-1))  
  %>

<script   lanugage="JavaScript">  
  <!--  
  function   showdate(syear,smon,sdate,sday){  
  var   enabled   =   0;  
  today   =   new   Date();  
  var   day;  
  var   date;  
  date   =   '';  
  if(today.getDay()==0)   day   =   "星期日"  
  if(today.getDay()==1)   day   =   "星期一"  
  if(today.getDay()==2)   day   =   "星期二"  
  if(today.getDay()==3)   day   =   "星期三"  
  if(today.getDay()==4)   day   =   "星期四"  
  if(today.getDay()==5)   day   =   "星期五"  
  if(today.getDay()==6)   day   =   "星期六"  
  if(syear){  
  date   =   "2000年";  
  }  
  if(smon){  
  date   =   date   +   (today.getMonth()   +   1   )   +   "月";  
  }  
  if(sdate){  
  date   =   date   +   today.getDate()   +   "日   ";  
  }  
  if(sday){  
  date   =   date   +   day   +"";  
  }  
  document.write(   date   );  
  }  
  //-->  
  </script>   <script   language="JavaScript">  
  showdate(1,1,1,1);  
  </script>

  formatdatetime(date,1)+weekdayname(weekday(date))

function   showDateTime()  
  {  
  today=new   Date();  
  var   day;   var   date;  
  if(today.getDay()==0)day="星期日"  
  if(today.getDay()==1)day="星期一"  
  if(today.getDay()==2)day="星期二"  
  if(today.getDay()==3)day="星期三"  
  if(today.getDay()==4)day="星期四"  
  if(today.getDay()==5)day="星期五"  
  if(today.getDay()==6)day="星期六"  
  date=(today.getYear())+"年"+(today.getMonth()   +   1   )+"月"+today.getDate()+"日   "+day+"";  
  document.write(date);  
  }  

简单了<%=now()%>就会显示服务器端的时间了
如果想在网页中动态显示当前的系统日期和时间就应该用客户端的时间，代码上面已经给了。如果用服务器上的时间总不至于让网页不停的刷新吧，你说是不是？

把下面这段程序放到网页中就行了：  
   
  <div   id=testDiv></div>  
  <script   language=vbscript>  
  dim   t  
  t=cdate("<%=now()%>")  
  sub   getTime()  
  t=   t   +   cdate("00:00:01")  
  document.all.testDiv.innerHTML=t  
  end   sub  
  call   getTime()  
  call   setInterval("call   getTime",1000,"vbscript")  
  </script>