function setdate(strdate)
    dim tem,str
    str=split(strdate,"-")  '把日期按-号分割成如：2008，9，4；
    tem=str(0)&"-"
    if len(str(1))=1 then  '如果第2个字符串是1个数量，则：
       str(1)="0"&str(1)   '在前面加0；
    end if
    tem=tem&str(1)&"-"
    if len(str(2))=1 then  '道理同上；
       str(2)="0"&str(2)
    end if
    tem=tem&str(2)
    setdate=tem
end function

说明：日期格式是这样的：2008-9-8 18:30:21
通过自定义函数setdate(current_date),得到这样的格式：2008-09-8 18:30:21，月份可以实现2位09，日子却不能得到2位，这是为何？

[[it] 本帖最后由 nicechlk 于 2008-10-26 18:39 编辑 [/it]]

哦，是这样！
如果是我的那种日期+时间格式，有办法么？

嗯，我明白了！
先把时间日期通过函数FormatDateTime转换成字符串，再处理。
谢谢！

6楼的方法甚好，谢谢！
不过，
tem1=split(str(0),&"-")  '把日期分割,如:2008 , 9 , 4
tem2=split(str(1),&":")  '把时间分割,如:18 , 30 , 21
这里不能有“&”，可能是你手误。

呵呵，暇不掩玉！

皇马果然asp高人。。。。佩服中。。。