如何用正则表达式将形如2004-2-2或2004/2/2的日期格式化为2004-02-02的日期格式

Question

<%
  Dim a,b,c,d
  Dim i
  a="2004-2-2"
  if isdate(a) then
    a=cdate(a)
    d=cstr(year(a))
    if month(a) < 10 then
      b="0" & cstr(month(a))
    else
      b=cstr(month(a))
    end if
    if day(a) < 10 then
      c="0" & cstr(day(a))
    else
      c=cstr(day(a))
    end if
    response.write d & "-" & b & "-" & c
  end if
  
%>

Answer 1

times=date()
date1=day(times)
if (date1<=9) then 
 date1="0"&date1
end if
month1=month(times)
if (month1<=9) then 
 month1="0"&month1
end if
year1=year(times)
timelast=year1&"-"&month1&"-"&date1

Answer 2

<script>
var re = /(\/|-)(\d)\b/g;
alert("2004-2-2".replace(re,"-0$2"));
alert("2004/2/2".replace(re,"-0$2"));
</script>