**显示8位日期代码**

<% dim date1,date2,date3 
date1=year(date)
if len(Month(date))=1 then
date2="0"&Month(date)
else
date2=Month(date)
end if
if len(day(date))=1 then
date3="0"&day(date)
else
date3=day(date)
end if
response.write date1&"-"&date2&"-"&date3
%>