¡Cómo utilizar vbscript para mostrar dinámicamente la hora en la página!
dim stt,edt
sub disp_clock()
dim hr,sx,hrs ,curtime
hr=hora(hora)
si hr<12 entonces
hrs=cstr(hr)
sx=" am"
else
hrs=cstr(hr-12)
sx=" pm"
finalizar si
curtime=hrs+ right(cstr(time),6)
yt.value=curtime+sx
Llamar a settimeout("disp_clock()",1000)
end sub
sub disp_msg()
dim hr,mn,sc,hrs,mns
edt=time
hr=hora(edt)
mn=minuto(edt)
sc=segundo(edt)-segundo(stt)
si sc<0 entonces
sc=6sc
mn=mn-1
finalizar si
mn=mn-minuto(stt) p>
p>
si mn<0 entonces
mn=6mn
hr=hr-1
finalizar si p>
hr= hr-hora(stt)
Si hr<0 entonces hr=24+hr
hrs=" "+cstr(hr)+"hora"
si hr=0 entonces hrs=""
mns=cstr(mn)+"minuto"
si mn=0 entonces mns=""
msgbox "Te has quedado en esta página"+hrs+mns+cstr(sc)+"Segundos!"
end sub
stt=time
disp_clock
Si solo desea mostrar la hora de forma dinámica, agregue el siguiente código a la página:
dim stt ,edt
sub disp_clock()
dim hr,sx,hrs,curtime
hr=hora(hora)
si hr< ;12 entonces
hrs=cstr(hr)
sx="am"
si no
hrs=cstr(hr-12 )
p>
sx="pm"
finalizar si
curtime=hrs+right(cstr(time),6)
yt.innerHTML= curtime+sx
llamar a settimeout("disp_
reloj()",1000)
end sub
<; /script>
Luego ingresa donde deseas mostrar la hora.