'---格式化日期
Function format(datetime)
date2=split(datetime,"-")
if len(date2(1))=1 then
date2(1)=0&date2(1)
end if
if len(date2(2))=1 then
date2(2)=0&date2(2)
end if
format=date2(0)&"-"&date2(1)&"-"&date2(2)
End Function
<script language="vbScript">
<!--
myDate = "2003-4-1"
myArr = split(mydate,"-")
for i = 2 to ubound(myArr)
if len(myArr(i)) = 1 then
myArr(i) = "0" & myArr(i)
end if
next
msgbox(join(myArr,"-"))
//-->
</script>