<%
date1="2003-10-16"
date2 ="2004-2-1"
function addzero(Digital)
if(Len(digital)=1) then
digital= "0"&digital
end if
addzero=digital
end function
function newformatdate(datecurr)
if(IsDate(datecurr))then
newformatdate=Cstr(Year(datecurr))&addzero(Cstr(Month(datecurr)))&addzero(Cstr(Day(datecurr)))
else
newformatdate="非法的日期"
end if
end function
sting 15:59:07
Response.Write newformatdate(date1)
Response.Write newformatdate(date2)