ASP实现倒计时功能

mskaishi="2012-2-21-12-10-00" '秒杀开始

msjieshu="2012-2-22-12-11-00" '结束时间          

dqshijian=replace(date() ,"/","-")&"-"&replace(time(),":","-") '当前时间

'response.Write("现在时间是：  "&dqshijian)

'response.Write("<BR>秒杀开始时间是"&mskaishi&"<br>秒杀结束时间是"&msjieshu)

kaishi=split(mskaishi,"-")

jieshu=split(msjieshu,"-")

dangqian=split(dqshijian,"-")

a0=kaishi(0)-dangqian(0) '年  距离开始 <1时候成立

a1=kaishi(1)-dangqian(1) '月  距离开始

a2=kaishi(2)-dangqian(2) '日  距离开始

a3=kaishi(3)-dangqian(3) '时  距离开始

a4=kaishi(4)-dangqian(4) '分  距离开始

a5=kaishi(5)-dangqian(5) '秒  距离开始

b0=jieshu(0)-dangqian(0) '年  距离结束 】>-1成立

b1=jieshu(1)-dangqian(1) '月  距离结束 】

b2=jieshu(2)-dangqian(2) '日  距离结束 】

b3=jieshu(3)-dangqian(3) '时  距离结束 】

b4=jieshu(4)-dangqian(4) '分  距离结束 】

b5=jieshu(5)-dangqian(5) '秒  距离结束 】

'response.Write("<br>--------------------------------------------------------------<br>")

fengyu=fengyu+" "

julikaishishijian=+(a0*365*30*24*60*600+a1*30*24*60*60+a2*24*60*60+a3*60*60+a4*60+a5)

julijieshushijian=+(b0*365*30*24*60*600+b1*30*24*60*60+b2*24*60*60+b3*60*60+b4*60+b5)

if julikaishishijian<1 then

 if julijieshushijian>-1 then

 'response.Write("已经开始啦<br>距离开始有"&TimeToData(-julikaishishijian)&"秒")

 'response.Write("<br>距离结束时间还有"&TimeToData(julijieshushijian))

 %>

   <!---- <DIV id="time"></DIV>----->

<%fengyu=fengyu+"<DIV id='sheng"&zhaoyingjie&"'></DIV>"%>

    <%

 else

 fengyu=fengyu+"结束了"&vbcrlf

 end if

else

 fengyu=fengyu+"还没有开始"&vbcrlf

 'response.Write("还没有开始呢距离开始有"&TimeToData(julikaishishijian))

end if

'response.Write("<br>距离开始还有"&kaishi(0)-dangqian(0)&"年")

'for i=0 to ubound(kaishi)

'response.write mystr(i)

'next

'response.end

fengyu=fengyu+vbcrlf+"<SCRIPT LANGUAGE="&chr(34)&"JavaScript"&chr(34)&">"&vbcrlf

fengyu=fengyu+"function time() " &vbcrlf

fengyu=fengyu+"{  "&vbcrlf

fengyu=fengyu+"var now,h,m,s; " &vbcrlf

fengyu=fengyu+"now=new Date();  "&vbcrlf

fengyu=fengyu+"h = now.getHours(); " &vbcrlf

fengyu=fengyu+"m =now.getMinutes(); " &vbcrlf

fengyu=fengyu+"s = now.getSeconds();  "&vbcrlf

fengyu=fengyu+"if(h<10) h="&chr(34)&"0"&chr(34)&"+h;  "&vbcrlf

fengyu=fengyu+"if(m<10) m="&chr(34)&"0"&chr(34)&"+m;  "&vbcrlf

fengyu=fengyu+"if(s<10) s="&chr(34)&"0"&chr(34)&"+s;  "&vbcrlf

fengyu=fengyu+"setTimeout("&chr(34)&"time();"&chr(34)&", 1000);  "&vbcrlf

fengyu=fengyu+"}  "&vbcrlf

fengyu=fengyu+"time();"&vbcrlf

fengyu=fengyu+"var strm"&zhaoyingjie&"="&chr(34)&""&msjieshu&""&chr(34)&";"&vbcrlf

fengyu=fengyu+"function timem"&zhaoyingjie&"()  "&vbcrlf

fengyu=fengyu+"{"&vbcrlf

fengyu=fengyu+"var arr"&zhaoyingjie&"=strm"&zhaoyingjie&".split("&chr(34)&"-"&chr(34)&"); " &vbcrlf

fengyu=fengyu+"var now"&zhaoyingjie&"=new Date(arr"&zhaoyingjie&"[0],arr"&zhaoyingjie&"[1],arr"&zhaoyingjie&"[2],arr"&zhaoyingjie&"[3],arr"&zhaoyingjie&"[4],arr"&zhaoyingjie&"[5]); "&vbcrlf

 

fengyu=fengyu+"var now=new Date(); "&vbcrlf

fengyu=fengyu+"var h,m,s,dif;"&vbcrlf

fengyu=fengyu+"now.setMonth(now.getMonth()+1);"&vbcrlf

fengyu=fengyu+"dif= now"&zhaoyingjie&".getTime()-now.getTime(); "&vbcrlf

fengyu=fengyu+"h = dif / (60 * 60 * 1000); "&vbcrlf

fengyu=fengyu+"m = (dif % (60 * 60 * 1000))/(60 * 1000);"&vbcrlf

fengyu=fengyu+"s = ((dif % (60 * 60 * 1000))%(60 * 1000))/1000;"&vbcrlf

fengyu=fengyu+"if(dif>0)"&vbcrlf

fengyu=fengyu+"{"&vbcrlf

fengyu=fengyu+" document.getElementById("&chr(34)&"sheng"&zhaoyingjie&""&chr(34)&").innerHTML="&chr(34)&"剩余<span>"&chr(34)&"+ parseInt(h) + "&chr(34)&"</span>小时<span>"&chr(34)&" + parseInt(m) + "&chr(34)&"</span>分<span>"&chr(34)&"+parseInt(s)+"&chr(34)&"</span>秒"&chr(34)&"; 
"&vbcrlf

fengyu=fengyu+" setTimeout("&chr(34)&"timem"&zhaoyingjie&"()"&chr(34)&", 1000); "&vbcrlf

fengyu=fengyu+"}"&vbcrlf

fengyu=fengyu+"else"&vbcrlf

fengyu=fengyu+"{"&vbcrlf

fengyu=fengyu+" document.getElementById("&chr(34)&"sheng"&zhaoyingjie&""&chr(34)&").innerHTML="&chr(34)&"秒杀结束"&chr(34)&";"&vbcrlf

fengyu=fengyu+"}"&vbcrlf

fengyu=fengyu+"} "&vbcrlf

fengyu=fengyu+"</SCRIPT>"&vbcrlf

fengyu=fengyu+"<script language="&chr(34)&"javascript"&chr(34)&">timem"&zhaoyingjie&"();</script> "&vbcrlf

'response.Write(fengyu)