<%
dim s1,h,m,s
s1=80 '秒数
h=s1\3600
if h>=0 and h<10 then h="0"&h
m=(s1\60) mod 60
if m>=0 and m<10 then m="0"&m
s=s1 mod 60
if s>=0 and s<10 then s="0"&s
response.write h&":"&m&":"&s
%>