asp中字符串截取并判断位数

我的问题是这样的，我用系统日期函数 date 自动获取当前的日期，写入数据库里的格式是这样的：2010-8-5，我用的是Access数据库，在数据库里，如果吧字段设置为日期，默认会是2010-08-05，我现在想把用DATE函数的值2010-8-5也统一改成2010-08-05 的格式，就是判断月和日的位数，如果是单独一位，就在前面加0，这个功能要怎么实现啊？请高手指教~！

Function times(publish_time)
  dim time_array
  dim first_array
  first_array=split(publish_time," ")
  middle=first_array(0)
 time_array=split(middle,"-")
 if len(time_array(1))=1 then time_array(1)="0"&time_array(1)
 if len(time_array(2))=1 then time_array(2)="0"&time_array(2)
 'response.Write(time_array(1))
 publish_time=time_array(0)&"-"&time_array(1)&"-"&time_array(2)
 response.Write(publish_time)
end Function