教学在线系统

				
				
								if(session("start_time") = "")then
				response.Redirect("../Ready.asp")
				response.End()
				end if
					dim start_time,sec,min,hou
					start_time = session("start_time")
					sec = second(start_time)
					min = minute(start_time)
					hou = hour(start_time)
					sum = hou*3600 + min*60 + sec
					
					dim real_time,sec2,min2,hou2
					real_time = now()
					sec2 = second(real_time)
					min2 = minute(real_time)
					hou2 = hour(real_time)
					
					sum2 = hou2*3600 + min2*60 + sec2
					sum_cha = sum2 - sum
					aaa =sum_cha\3600
					bbb = (sum_cha mod 3600)\60
					ccc = (sum_cha mod 3600) mod 60
					if(ccc < 10)then
					ccc = "0"&ccc
					end if
					if(bbb < 10)then
					bbb = "0"&bbb
					end if
					if(aaa < 10)then
					aaa = "0"&aaa
					end if
					response.Write(""&aaa&":"&bbb&":"&ccc&"")
				%>